blob: 2011a74d072b565d42fb887d8c4807cedc21af35 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
MODULE Ch1;
IMPORT Out;
VAR
A1:ARRAY 6 OF INTEGER;
A2:ARRAY 3 OF INTEGER;
A3:ARRAY 5 OF INTEGER;
PROCEDURE Init;
BEGIN
A1[0] := 1; A1[1] := 0; A1[2] := 3;
A1[3] := 0; A1[4] := 0; A1[5] := 5;
A2[0] := 1; A2[1] := 6; A2[2] := 4;
A3[0] := 0; A3[1] := 1; A3[2] := 0;
A3[3] := 2; A3[4] := 0;
END Init;
PROCEDURE PrintArray(VAR Arr:ARRAY OF INTEGER);
VAR I:LONGINT;
BEGIN
FOR I := 0 TO LEN(Arr)-1 DO
Out.Int(Arr[I],0);
Out.Char(' ');
END;
Out.Ln;
END PrintArray;
PROCEDURE MoveZero(VAR Arr:ARRAY OF INTEGER);
VAR I,Count:LONGINT;
BEGIN
Count := 0;
FOR I := 0 TO LEN(Arr)-1 DO
IF Arr[I] # 0 THEN Arr[Count] := Arr[I]; INC(Count) END;
END;
WHILE Count < LEN(Arr) DO Arr[Count] := 0; INC(Count) END;
END MoveZero;
BEGIN
Init;
MoveZero(A1);
MoveZero(A2);
MoveZero(A3);
PrintArray(A1);
PrintArray(A2);
PrintArray(A3);
END Ch1.
|
