关于Free Pascal IDE编程 ？

Question

关于Free Pascal IDE编程 

Answer 1

【算法】用1,2,3,4,5分别代表百米、二百米、跳高、跳远和铅球5个项目，用a,b,c,d,e分别代表五人。如b=3 表示乙获跳高冠军。用多重循环穷举出来。【答案】甲 乙 丙 丁 戊1 2 4 3 5【参考程序】vara,b,c,d,e:byte;beginfor a:=1 to 5 dofor b:=1 to 5 doif a<>b thenfor c:=1 to 5 doif (a<>c) and (b<>c thenfor d:=1 to 5 doif (a<>d) and (b<>d) and (c<>d) thenbegine:=15-a-b-c-d;if (ord(b=5)+ord(d=3)=1) and(ord(a=1)+ord(e=4)=1) and(ord(c=4)+ord(d=2)=1) and(ord(b=3)+ord(e=5)=1) thenwriteln('a:',a,'b:',b,'c:',c,'d:',d,'e:',e);end;end.