Pascal试题紧急求解!！

来源：百度知道编辑：UC知道时间：2024/06/22 20:57:43

四个学生上地理课时，回答我国四大淡水湖的大小时这样说：
甲说：“a最大，b最小，c第三。”
乙说：“b最大，a最小，c第二，d第三。”
丙说：“b最小，a第三。”
丁说：“c最大，d最小b第二，a第三。”
对于每个湖的大小，每个学生只答对了一个，请编程来帮助判断这四个湖的大小。

var i,j,k,l:integer;

begin

for i:=1 to 4 do

for j:=1 to 4 do

for k:=1 to 4 do

for l:=1 to 4 do

begin

if [i,j,k,l]<>[1,2,3,4]then continue;

if ord(i=1)+ord(l=2)+ord(k=3)<>1 then continue;

if ord(i=2)+ord(l=1)+ord(j=3)+ord(k=4)<>1 then continue;

if ord(l=2)+ord(k=1)<>1 then continue;

if ord(i=3)+ord(l=4)+ord(j=2)+ord(k=1)<>1 then

Pascal试题 紧急求解!！