Question

free pascal中的一道编程题目，只需解释一下。。。

pascal编程：赵、钱、孙、李、周五人围着一张圆桌吃饭。饭后，周回忆说：“赵坐在钱旁边，钱的左边是孙或李”；李回忆说：“钱坐在孙旁边，我挨着孙做。结果他们一句也没有说对，问他们是怎么做的？？
程序如下：
var zhao,qian,sun,li,zhou,a,i,j,k:longint;
begin
for zhao:=1 to 5 do
for qian:=1 to 5 do
for sun:=1 to 5 do
for li:=1 to 5 do
for zhou:=1 to 5 do
if zhao+qian+sun+li+zhou=15 then
if zhao*qian*sun*li*zhou=120 then
begin
if (qian mod 5+1=zhao)or((qian+3) mod 5+1=zhao) then continue; 他这里为什么要mod 5啊？
if ((qian+3) mod 5+1=sun)or((qian+3)mod 5+1=li) then continue;这里也是。
if ((sun+3) mod 5+1=qian) then continue;这里和下面都是
if ((sun+3) mod 5+1=li)or(sun mod 5+1=li) then continue;
writeln('zhao=',zhao,' qian=',qian,' sun=',sun,' li=',li,' zhou=',zhou);
end;
end.

有没有更加简便的方法啊？？？他这个好复杂可不可以不用continue？

Answer 1

//mod 5是因为这张桌子是圆的，而不是一条线，所以首尾相接，而mod 5+1就是判断第五个位置和第一个位置能否相容。
var
zhao,qian,sun,li,zhou:longint;
begin
for zhao:=1 to 5 do
for qian:=1 to 5 do
for sun:=1 to 5 do
for li:=1 to 5 do
for zhou:=1 to 5 do
if zhao+qian+sun+li+zhou=15 then
if zhao*qian*sun*li*zhou=120 then
if (qian mod 5+1<>zhao)and((qian+3) mod 5+1<>zhao) then
if ((qian+3) mod 5+1<>sun)and((qian+3)mod 5+1<>li) then
if (sun+3) mod 5+1<>qian then
if ((sun+3) mod 5+1<>li)and(sun mod 5+1<>li) then
writeln('zhao=',zhao,' qian=',qian,' sun=',sun,' li=',li,' zhou=',zhou);
end.

追问

又是你啊，呵呵

每次都是你回答

可以加一下QQ吗

方便交流

我会给你分的

上次你编的好复杂啊

对了

有没有别的方法啊。。

追答

294188580

追问

谢谢
那请问一下为什么有些要加3在mod5？啊

追答

这是一种很奇妙的思维方法，它实际上是用来算在圆周上当前位置的上一个位置，你可以枚举试试看：
当i=1时，(i+3)mod 5+1算出来是5，因为是圆周，所以成立；
当i=2,3,4,5时，(i+3)mod +1算出来分别是1,2,3,4,这个肯定成立。

追问

您看一下这题，好不好？教一下我，加你二十分。好不？

有本书的页码从1开始，小明算了算，总共出现了202个1，试编程求出这本书一共有多少页？

你可不可以用string做啊？

尽量简单点。。

追答

//分不分的无所谓，有问题尽管问，不过我不能经常在线

var
st:string;
page,tot:longint;
begin
page:=1;
tot:=1;
while tot0 then inc(tot);
end;
writeln(page);
end.

追问

可是错了啊

追答

//好吧是我错了，最近脑子不太好使，总是漏掉些细节，呵呵

var
  st:string;
  page,tot,tmp:longint;
begin
  page:=1;
  tot:=1;
  while tot<202 do begin
    inc(page);
    str(page,st);
    tmp:=pos('1',st);
    while tmp>0 do begin
      inc(tot);
      delete(st,1,tmp);
      tmp:=pos('1',st);
    end;
  end;
  writeln(page);
end.