lab8A

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
program Lab8_A2;
var x, y, g, g1, g2, g3, viraz: real;
procedure f(a, b: real; var g: real);
begin
g := a * a + b * b / a * a + 2 * a * a + 3 * b * b + 4;
end;
begin
writeln('Vvedit x, y'); read(x, y);
f(1.2, x, g1);
f(y, x, g2);
f(2 * x - 1, x * y, g3);
viraz := g1 + g2 - g3;
writeln('Viraz = ', viraz);
end.