![](/images/backgrounds/286549/hp-sunsoft-pascal-4-0-users-manual-549395136x1.png)
6
There are three types of value parameters in Pascal.
Simple Types without
Without
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 |