Question

free pascal习题，请帮忙啊，非常急急急的

输入四个数，将他们由大到小输出

Answer 1

var a,b,c,d,k:real;
begin
read(a,b,c,d);
if a<b then
begin
k:=a;
a:=b;
b:=k; //如果a<b,就调换位置
end;
if b<c then
begin
k:=b;
b:=c;
c:=k;//……
end;
if c<d then
begin
k:=c;
c:=d;
d:=k;//……
end;//第一轮比较结束，此时最小的数在最后

if a<b then
begin
k:=a;
a:=b;
b:=k; //如果a<b,就调换位置
end;
if b<c then
begin
k:=b;
b:=c;
c:=k;//……
end;//第二轮比较结束，此时第二小的数在倒数第二的位置
if a<b then
begin
k:=a;
a:=b;
b:=k; //如果a<b,就调换位置
end;//第三轮比较结束，此时所有数都排好了

write（a，b，c，d）；
end.

额，鄙人技术拙劣，不知有没有解决你的问题……

追问

有点小错误

Answer 2

var a:array[1..4]of integer;
i,j:1..4;
t:integer;
begin
for i:=1 to 4 do read(a[i]);
for i:=1 to 3 do
for j:=i+1 to 4 do
if a[i]<a[j] then begin
t:=a[i];a[i]:=a[j];a[j]:=t
end;
for i:=1 to 4 do write(a[i],' ')
end.

追问

额，要用if语句

追答

if a[i]<a[j] then begin
t:=a[i];a[i]:=a[j];a[j]:=t
end;

这个不是if语句？