6

Value Parameters

There are three types of value parameters in Pascal.

Simple Types without –xl

Without –xl, simple types match, as in the following example:

The Pascal procedure, SimVal. p. t, f, c, i, r, and s are value parameters.

procedure SimVal( t, f: boolean;

c:char;

si: integer16;

i:integer; sr: shortreal;

r:real;

var reply: integer);

begin

Reply := 0; if t then

Reply := Reply + 1; if not f then

Reply := Reply + 8; if c='z' then

Reply := Reply + 64; if si=9 then

Reply := Reply + 512; if i=9 then

Reply := Reply + 4096; if sr=shortreal(9.9) then Reply := Reply + 32768;

if r=9.9 then

Reply := Reply + 262144; end; { SimVal }

112

Pascal 4.0 User’s Guide