PASCAL 排序

Question

怎样用PASCAL对任意一组实数(用户输入)排序
我说的是实数(REAL)排序, 不是整数(INTEGER)排序, 而且对数值和一组多少数都没有限制

Answer 1

现在一般用两种排序
一种为‘冒泡排序’
一种为‘快速排序’
冒泡适用于排序量较少，快排用于大于1000个数的排序
冒泡：
program dd
var
a:arrray[0..10000] of integer;
i,j,k,n:integer;
begin
randomize;
readln(n);
for i:=1 to n begin
a[i]:=random(1000);
write(a[i]:4);
end;
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j]>a[j+1] then begin
a[0]:=a[j];
a[j]:=a[j+1];
a[j+1]:=a[0];
end;
writeln;
for i:=1 to n do
write(a[i]:4);
end.
快速排序：
program dd;
var
i,j,k,l,m,n:integer;
a:array[0..10000] of integer;
procedure pai(l,r:integer);
var
i,j,k:Integer;
begin
k:=a[l];
i:=l;
j:=r;
while i<j do begin
while (a[j]>=l) and (i<j) do
j:=j-1;
a[i]:=a[j];
while (a[i]<=l) and (i<j) do
i:=i+1;
a[j]:=a[i];
end;
a[i]:=k;
if i-1>l then pai (l,i-1);
if i+1<r then pai (i+1,r);
end;
begin
randomize;
readln(n);
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:4);
end;
pai(1,n);
writeln;
for i:=1 to n do
write(a[i]:4);
end.

Answer 2

有多种排序方法。
用得比较多的而且比较快的就是快速排序。
这里是快排的过程（a是要排序的数组）：
proceduer kp（l,r:integer);
var c,d,e,f:integer;
begin
c:=l;d:=r;e:=a[(l+r) div 2];
repeat
while a[c]<e do inc(c);
while a[d]>e do dec(d);
if c<=d then begin
f:=a[c];a[c]:=a[d];a[d]:=f;
inc(c);
dec(d);
end;
until c>d;
if c<r then kp(c,r);
if l<d then kp(l,d);
end;

Answer 3

简单的选择排序；
program selectsort;
var a:array[1..100]of longint;
i,j,n,temp:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do
for j:=i to n do
if a[i]>a[j] then begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp;
end;
for i:=1 to n do write(a[i],' ');
end.

Answer 4

我也是刚学,给你个思路把
var
i,j:integer;
a:array[1..100]of integer;(最多100个数)
begin
readln(i);(输入有几个数)
for i:=1 to i do
readln(a[i]);
之后的就是排序了~~我也不怎么懂的说..

Answer 5

keyi用快排