Proszę bardzo uważnie przeanalizować program i w wyznaczonym miejscu wpisać jakie wartości pojawią się na ekranie monitora. (chodzi o to żeby wpisać jakie wartości przyjmie x,y,z po każdej podanej funkcji lub procedurze)
Program egzamin;
var x,y,z :Word; koniec:Boolean;
procedure pisz(a,b,c:Word);
begin
writeln(a:4,b:4,c:4);
end;
function jeden(var a:Word; b:Word):Word;
var c:Word;
begin
a:=a+b; c:=a+1; b:=c+2;
jeden:=b-c;
end;
procedure dwa(var a,b:Word; c:Word);
begin
while c>a do
begin
a:=a-1; b:=a-b; c:=c-b;
end;
end;
procedure trzy(a: Word; var b,c:Word);
begin
repeat
koniec:=a>c;
a:=a+1; c:=c-1; b:=c+a;
until koniec;
end;
function cztery(var a,b:Word):Word;
begin
if a<b then b:=4 else b:=5;
case b of
1: a:=a+2;
4: a:=a+3;
5 a:=a+4;
end;
cztery:=a+b;
end;
Begin
x:=2; y:=3; z:=6 x:=jeden(y,z) pisz(z,x,y);
x:=10; y:=8; z:=15 dwa(x,y,z); pisz(z,y,x);
x:=2; y:=7; z:=3; trzy(x,y,z) pisz(z,y,x);
x=2; y:=3; z:=6; z:=jeden(x,y); pisz:(z,y,x);
Jeśli ktoś potrafi rozwiązać to zadanie, bardzo proszę o pomoc, zależy mi też na komentarzu skąd wzieły się wyniki, ponieważ na egzaminie będę miała inne dane :)