sort2.pas

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

PROGRAM Main;

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

VAR
   X            : INTEGER;
   Key     	: SortArray;

PROCEDURE MergeArray ( VAR Destination : SortArray;
		       Source1, Source2 : SortArray;
		       VAR D, S1, S2 : INTEGER;
  		       Mid, Upper : INTEGER );

BEGIN { PROCEDURE MergeArray }

   IF ( ( S1 <= Mid ) AND ( S2 <= Upper ) ) THEN
      D := D + 1;

END; { of Procedure MergeArray }


BEGIN { PROGRAM Main }


END.   { of PROGRAM Main }