TOPS-20 PASCAL Language Manual - Bitsavers

PASCAL STATEMENTS
Example 1
IF «X*37/Con~:;tant) + Factor) :> lO()O.O THEN
Answer := Answer - Factor;
If the value of the arithmetic expression is greater than 1000.0, a
new value is assigned to the variable Answer.
Example 2
IF (A :> B) AND ( B ~ C) THEN
D ::::: A···· C;
If both relational expressions are true, n is assigne~ the value of A
- c.
Exampl e 3
IF (Name 'SMITH') AND (INITIAL I ,.J I) THEN
BEGIN
Count := Count + 1;
Add re~:;~:;;
SlTIi thadd[ Count]l ! ::::
WFnTELN ('..} SMITH NO. I,Count, I L.IVE~) AT I AddT'f.-~ss)
This example counts the number of J SMITHs, prints each one's street
address, and stores it in an array.
Exampl e 4
IF Day = Thurs THEN
FOR I := 1 TO MaxEffip DO
Pay[IJ := Salary[IJ * (l-Tax_Rate-FICA);
If the current value of the variable Day is Thurs, the FOR loop is
executed, and values for Pay(I] are computed. If the value of Day is
not Thurs, the FOR loop is not execute~; and program control passes
to the statement following the end of the loop.
5.3.2 The IF-THEN-ELSE Statement
The IF-THEN-ELSE statement is an extension of the IF-THEN statement
that includes an alternative statement, the ELSE clause. The ELSE
clause is executed if the test condition is false.
Fo rma t
where:
IF expression THEN statementl ELSE statement2
expression
specifies a Boolean expression.
sta temen tl denotes the sta tement to be executed if the
exprt=ssion is true.
statement2 denotes the statement to be executed if the
expression is false.
5-5