program prog;
Uses CRT;
var
x, y, z, z1 : real;
procedure racun(x1, x2 : real; var y1, y2 : real);
begin
y1 :=x1+sqr(x2)+sqr(x1);
y2 :=x1*x2;
end;
begin
ClrScr;
Write('Unesi vrednost x, y : ');
ReadLn(x,y);
racun(x,y,z,z1);
x :=z;
y :=z1;
racun(x,y,z,z1);
WriteLn('Vrednost promenljivih z i z1 je : ',z:8:2,' ',z1:8:2);
ReadLn
End |