UC知道恳求！四大湖问题的Pascal程序代码！！
来源：百度知道 编辑：UC知道 时间：2024/05/30 00:25:23
此为题目：
上地理课时，四个学生回答我国四大淡水湖的大小时说：
甲：洞庭湖最大，洪泽湖最小，鄱阳湖第三。
乙：洪泽湖最大，洞庭湖最小，鄱阳湖第二，太湖第三。
丙：洪泽湖最小，洞庭湖第三。
丁：鄱阳湖最大，太湖最小，洪泽湖第二，洞庭湖第三。
对于每个湖的大小，每人仅答对了一个。请判断四个湖的大小。
各位编程高手，帮帮忙，给出此题的源程序吧，不胜感激！！
尊敬的
织田信长5159 -：
你的答案用编程编出有3个错啊！麻烦再帮忙改改，谢谢！
上地理课时，四个学生回答我国四大淡水湖的大小时说：
甲：洞庭湖最大，洪泽湖最小，鄱阳湖第三。
乙：洪泽湖最大，洞庭湖最小，鄱阳湖第二，太湖第三。
丙：洪泽湖最小，洞庭湖第三。
丁：鄱阳湖最大，太湖最小，洪泽湖第二，洞庭湖第三。
对于每个湖的大小，每人仅答对了一个。请判断四个湖的大小。
各位编程高手，帮帮忙，给出此题的源程序吧，不胜感激！！
尊敬的
织田信长5159 -：
你的答案用编程编出有3个错啊！麻烦再帮忙改改，谢谢！
program aa;
var
dong,hong,bo,tai:integer;
begin
for dong:=1 to 4 do
for hong:=1 to 4 do
if dong<>hong then for bo:=1 to 4 do
if (dong<>bo) and (hong<>bo) then begin
tai:=10-dong-bo-hong;
if (ord(dong=1)+ord(hong=4)+ord(bo=3)=1)and(ord
(hong=1)+ord(dong=4)+ord(bo=2)+ord(tai=3)=1)and(ord(hong=4)+ord
(dong=3)=1)and(ord(bo=1)+ord(tai=4)+ord(hong=2)+ord(dong=3)=1)
then
write('dong:',dong,' hong:',hong,' bo:',bo,' tai:',tai);
end;
end.
结果是：dong:2 hong:4 bo:1 tai:3