TOPS-20 PASCAL Language Manual - Bitsavers

PASCAL STATEMENTS
Example
FOR I
:= 1 TO 10 DO
BEGIN
IF Real_Array[IJ
BEGIN
Result := 0.0;
GOTO 10
END;
0.0 THEN
Result := Result + 1.0/Real_Array[IJ
END;
10: Invertsum:= Result;
This example shows how you can use the GOTO statement to exit from a
loop. The loop computes the sum (Invertsum) of the inverses of the
elements of Rea] Array. If one of the elements is zero however, the
sum is set to-zero; and the GOTO statement forces an exit from the
loop.
5.7 THE PROCEDURE CALL
A procedure call specifies the actual parameters to a procedure and
executes the procedure. (See Chapter fi for a complete description of
procedures.)
Format
where:
procedure name [(actual parameter [,actual parameter ..• ] )]
procedure name
actual parameter
specifies the name of a procedure.
specifies a constant, an expression, the name
of a procedure or function, or a variable of
any type.
The procedure call associates the actual parameters in the list with
the formal parameters in the procedure declaration. It then transfers
control to the procedure.
The formal parameter list in the procedure declaration determines the
possible contents of the actual parameter list. The actual parameters
must be compatible with the formal parameters. Depending on the types
of the formal parameters, the actual parameters can be constants,
variables, expressions, procedure names, or function names. An
unindexed array name in a parameter list refers to the entire array.
PASCAL passes actual parameters by the mechanism specified in the
procedure declaration.
5-14