TOPS-20 PASCAL Language Manual - Bitsavers

PASCAL STATE~ENTS
Example 4
:= 1 TO N DO
FOR Effiplo~ee
BEGIN
HRS : :::: 40;
FOR Da~ := Mon TO Fri DO
IF Sick(Employee,Da~J
THEN
HR!:l : :::: HR!3····B,
F' a y [: [ IT! P 1 () y f.;> f:~ J : :::: W a ~J f:'~ [ E III P 1 D ~J e f:.~ ] * HI:;: S
END;
You can combine compound statements as in this example. The inner FOR
statement computes the number of hours each employee worked from
Monday through Friday. The outer FOR statement resets hours to 40 for
each employee and computes each person's pay as the product of w~ge
and hours worked.
5.4.2 The REPEAT Statement
The REPEAT statement groups one or more statements for execution until
a specified condition is true.
Fo rma t
where:
REPEAT statement [;statement ... D UNTIL expression;
expression
specifies a Boolean expression.
Note that the format of the REPEAT statement eliminates the need for a
compound statement.
The expression is evaluated after the statements are executed.
Therefore, the REPEAT group is always executed at least once.
Example
REPEAT
READ(X);
IF (X IN (10 1 •• 1 9 1 ]) THEN
BEGIN
Di~it_Count := Di~it_Count t 1;
Di~it_Sum := Di~it_Sum t ORD(X) - ORD(IOI)
END
ELSE Char_Count := Char_Countt1
UNTIL EOLN(INPUT);
Assume that the variable X is of type Char, and the variables
Digit_Count, Digit_Sum, and Char Count are integers. The example
reads a character (X) from the terminal. If X is a digit, the count
of digits is incremented by one; and the sum of digits is increased
by the value of X. The ORD function is used to compute the value of
X. If X is not a digit, the variable Char Count is incremented by
one. The example continues processing characters from the terminal
until it reaches an end-of-line (EOLN) condition.
5-10