Question

读入三个不同的整数,PASCAL编程按由小到大的顺序输出如题 谢谢了

编不出啊啊啊啊啊啊啊啊,急急急急........

Answer 1

Var a,b,c,h:integer; Begin readln(a,b,c); if a>b Then Begin h:=a;a:=b;b:=h; End; if b>c Then Begin h:=b;b:=c;c:=h; End;//在进行完以上两次判断及交换后，最大的数会被放到c当中 if a>b Then Begin//比较a,b的大小并把小的放到a中即完成排序 h:=a;a:=b;b:=h; End; writeln(a,' ',b,' ',c); End.