Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #72.7K
|
program p; var a,b:integer; c:real; forward p2; {for procedure p1 to call procedure p2} procedure p1 (x:integer; var y:integer); var c:integer; pt:^integer; {pointer declaration} begin { (1) } writeln(a,b,x,y); new (pt); if (x<2) and (y<2) then if x>y then begin y:=x; writeln(a,b,x,y); p2(x,b) end; dispose(pt); end; procedure p2 (x:integer; var …
|