You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
235 B
Plaintext
14 lines
235 B
Plaintext
10 months ago
|
{ Parameter passing mechanism from the lab pdf }
|
||
|
|
PROGRAM parmechanism;
|
||
|
|
VAR a, b : integer;
|
||
|
|
|
||
|
|
PROCEDURE proc(VAR a:integer; b, c : integer);
|
||
|
|
BEGIN b := b + 2
|
||
|
|
; a := c*a + b
|
||
|
|
END;
|
||
|
|
|
||
|
|
BEGIN readln(a)
|
||
|
|
; b := 0
|
||
|
|
; proc(a,b,2)
|
||
|
|
; writeln(a,b)
|
||
|
|
END.
|