“記事本”的描述沒聽大懂,我大致理解為從妳要求的文件中讀入數據(幾個數字),然後進行排序,輸出到屏幕上。
以下是程序代碼,在Free Pascal下調試通過。由於數據類型限制,默認輸出保留4位小數。
Var
inf:string;
a:array[1..10000] of real;
i,j,k:longint;
tmp:real;
Begin
readln(inf);
assign(input,inf);reset(input);
i:=1;
while not eof do begin
read(a[i]);
inc(i);
end;
for k:= 1 to i do
for j:= k to i do
if a[k]>a[j] then begin
tmp:=a[k];
a[k]:=a[j];
a[j]:=tmp;
end;
for k:= 2 to i-1 do write(a[k]:0:4,'<');
writeln(a[i]:0:4);
end.