TOPS-20 PASCAL Language Manual - Bitsavers

PROCEDURES AND FUNCTIONS
This program fragment reads characters into the packed array P. The
procedure call to UNPACK assigns Prl] through PrIOl to the unpacked
array elements AD] through ArlOl. Then, for each ca11 to
PROCESS_ELEMENTS, one element of A is passea to the procedure.
DATE AND TIME
The predeclared procedures DATE and TIME assign the current date
time to a string variable.
and
Fo rma t
where:
DATE(string);
TIME(string) ;
string specifies a variable of type PACKED ARRAyrl .. 11]
CHAR.
OF
The folJowing example demonstrates the use of DATE and TIME:
(* Declarations *)
T ()da~3S __ Da te, CI..I l' rent .. _ Time
(* Procedure calls *)
PACKED ARRAY[1.+11J OF CHAR;
DATE(Toda~5_Date)~
TIME(Current_Time);
These two calls return results in the following format:
19-Jan--1980
14:20:25
The time is returned in 24-hour format. Thus, the time shown above is
14 hours, 20 minutes, 25 seconds. In the DATE procedure, if the day
of the month is a I-digit number, the leading zero does not appear in
the result; that is, a space appears before the date string.
6.1.2 Predeclared Functions
PASCAL provides functions that compute arithmetic values, test certain
Boolean conditions, transfer data from one type to another, and
perform other miscellaneous calculations. Predeclared functions
return a value as a resuJt. Table 6-2 summarizes the predeclared
functions.
Arithmetic functions perform mathematical computations. Parameters to
these functions can be integer, real, single-precision, 01
double-precision expressions. The arithmetic functions, except for
the absolute and square root functions, return a real value when the
parameter is an integer, single-precision, or real value. When the
parameter is a double-precision expression, the result is a
double-precision value. The absolute and square root functions return
a value of the same type as the parameter.
6-12