blob: 467f03c5ae231d31a31d18a5d610ddf4a639f5a0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
MODULE Ch2 EXPORTS Main;
IMPORT SIO,Text;
PROCEDURE SplitString(READONLY t:TEXT):BOOLEAN =
VAR Count:CARDINAL := 0;
BEGIN
FOR I := 0 TO Text.Length(t)-1 DO
IF Text.GetChar(t,I) IN SET OF CHAR{'a','e','i','o','u'} THEN
INC(Count)
END
END;
RETURN Count MOD 2 = 0
END SplitString;
BEGIN
SIO.PutBool(SplitString("perl")); SIO.Nl();
SIO.PutBool(SplitString("book")); SIO.Nl();
SIO.PutBool(SplitString("good morning")); SIO.Nl()
END Ch2.
|
