?? sort.txt
字號:
Procedure SORT(N:integer; var RA:array of real);
Label 99;
var
I,J,L,IR:integer; RRA:real;
begin
L:= N div 2 + 1;
IR:=N;
While true do
begin
If L > 1 Then
begin
L:=L - 1;
RRA:=RA[L];
end
Else
begin
RRA:=RA[IR];
RA[IR]:=RA[1];
IR:=IR - 1;
If IR = 1 Then
begin
RA[1]:=RRA;
goto 99;
end;
end;
I:=L;
J:=L + L;
While J <= IR do
begin
If J < IR Then
If RA[J] < RA[J + 1] Then J:=J + 1;
If RRA < RA[J] Then
begin
RA[I]:=RA[J];
I:=J;
J:=J + J;
end
Else
J:=IR + 1;
end;
RA[I]:=RRA;
end;
99: end;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -