作业帮 > 综合 > 作业

PASCAL 循环语句与穷举法 请高手用简单易懂的for语句解答 甲、乙、丙、丁四个人中有一个人是小偷,请根据

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 10:56:25
PASCAL 循环语句与穷举法 请高手用简单易懂的for语句解答 甲、乙、丙、丁四个人中有一个人是小偷,请根据
PASCAL 循环语句与穷举法
请高手用简单易懂的for语句解答
甲、乙、丙、丁四个人中有一个人是小偷,请根据四个人的谈话判断谁是小偷.已知四个人中有一个人说假话.
甲:我不是小偷.
乙:丙是小偷.
丙:丁是小偷.
丁:丙说谎.
for i:=1 to 4 do //枚举小偷是第i个人
begin
integer n;
n:=0;//计数器,记录真话的个数
if (i1) then inc(n);//判断甲说的话是否为真
if (i=3) then inc(n);//判断乙说的话是否为真
if (i=4) then inc(n);//判断丙
if (i4) then inc(n);//判断丁
if (n=3) then//根据统计结果判断第i个人是否为小偷
begin
write("第",i,"个人是小偷");
break;
end;
end;
一般不枚举说假话的人,因为那样不容易判断出谁是小偷.