Question

用PASCAL语言实现三个数从大到小排列并输出

急急

Answer 1

我的程序不仅能对三个数进行排序，而且能对500000个数进行排序。
首先输入一个数N，表示有N个数（你的要求的话就是输入3）
然后输入N个数后加回车就是了。
基本思路就是快速排序。

program sort_Hewr;

const
maxn=500000;

var
a:array[0..maxn]of longint;
n,i:longint;

procedure qsort(x,y:longint);
var
i,j,k:longint;
begin
i:=x;
j:=y;
k:=a[(x+y) shr 1];
repeat
while a[i]<k do inc(i);
while a[j]>k do dec(j);
if i<=j then begin
a[0]:=a[i];
a[i]:=a[j];
a[j]:=a[0];
inc(i);
dec(j);
end;
until i>j;
if x<j then qsort(x,j);
if i<y then qsort(i,y);
end;

begin
readln(n);
for i:=1 to n do read(a[i]);
readln;
qsort(1,n);
for i:=1 to n do begin
if i>1 then write(' ');
write(a[i]);
end;
writeln;
end.

Answer 2

var
a,b,:integer;
begin
readln(a,b,c)
if a<b then begin d:=a;a=b;b:=d; end;
if b<c then begin d:=b;b:=c;c:=d; end;
if a<c then begin d:=a;a:=c;c:=d; end;
writeln(a,' ',b,' ',c);
readln;
end;

Answer 3

楼上真是高射炮打蚊子。。。。nlog2n和n^2在n=3的情况下。。。写哪个合适？更何况快排写不好就成了死循环。。。

Answer 4

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

Answer 5

var
a,b,c,d:longint;
begin
readln(a,b,c);
if a>b then begin d:=a;a:=b;b:=d; end;
if b>c then begin d:=b;b:=c;c:=d; end;
if a>c then begin d:=a;a:=c;c:=d; end;
writeln(a,' ',b,' ',c);
end.