blob: 25ca2758396eb60d1ffc806484121190a3aeaa51 (
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
|
MODULE Ch1 EXPORTS Main;
IMPORT IO,Text;
VAR
A1:ARRAY[0..2] OF TEXT := ARRAY OF TEXT{"abc","xyz","tsu"};
A2:ARRAY[0..2] OF TEXT := ARRAY OF TEXT{"rat","cab","dad"};
A3:ARRAY[0..2] OF TEXT := ARRAY OF TEXT{"x","y","z"};
PROCEDURE IsAlphabeticalOrder(READONLY t:TEXT):BOOLEAN =
BEGIN
FOR I := 1 TO Text.Length(t)-1 DO
IF Text.GetChar(t,I) < Text.GetChar(t,I-1) THEN RETURN FALSE END
END;
RETURN TRUE
END IsAlphabeticalOrder;
PROCEDURE OddOneOut(READONLY A:ARRAY OF TEXT):INTEGER =
VAR
Count:INTEGER := 0;
BEGIN
FOR I := FIRST(A) TO LAST(A) DO
IF NOT IsAlphabeticalOrder(A[I]) THEN INC(Count) END
END;
RETURN Count
END OddOneOut;
BEGIN
IO.PutInt(OddOneOut(A1)); IO.Put("\n");
IO.PutInt(OddOneOut(A2)); IO.Put("\n");
IO.PutInt(OddOneOut(A3)); IO.Put("\n");
END Ch1.
|
