piksrt.pas

Delphi Pascal 数据挖掘领域算法包 数值算法大全

PROCEDURE piksrt(n: integer; VAR arr: glsarray);
(* Programs using routine PIKSRT must define the type
TYPE
   glsarray = ARRAY [1..np] OF real;
in the main routine, with np >= n.   *)
LABEL 10;
VAR
   j,i: integer;
   a: real;
BEGIN
   FOR j := 2 TO n DO BEGIN
      a := arr[j];
      FOR i := j-1 DOWNTO 1 DO BEGIN
         IF (arr[i] <= a) THEN GOTO 10;
         arr[i+1] := arr[i]
      END;
      i := 0;
10:      arr[i+1] := a
   END
END;