copy.pas

来自「this is a lp0 compilator new」· PAS 代码 · 共 29 行

PROGRAM Main;

TYPE
   SortArray = ARRAY [1..10] OF INTEGER;

VAR
   X            : INTEGER;
   Key     	: SortArray;


PROCEDURE ArrayCopy ( VAR Destination, Source : SortArray;
                      D, S, Max : INTEGER );

BEGIN

   IF ( S <= Max ) THEN
      BEGIN
         Destination[D] := Source[S];
         D := D + 1;
         S := S + 1;
         ArrayCopy ( Destination, Source, D, S, Max );
      END;

END;

BEGIN { PROGRAM Main }
END.   { of PROGRAM Main }