Используя алгоритмический язык, составить алгоритм для вычисления z=x^2+y^2 где х = [1; 2] с шагом h=0,1 и y = [2; 3] с шагом h=0,2.

Const x0=1; xk=2; h1=0.1; y0=2; yk=3; h2=0.2;

var x, y, z:real; i, j:integer;

begin

x:=1-h1;

for i:=1 to round ((xk-x0) / h1) + 1 do

begin

x:=x+h1;

y:=2-h2;

for j:=1 to round ((yk-y0) / h2) + 1 do

begin

y:=y+h2;

z:=x*x+y+y;

writeln (x:3:1, y:5:1, z:7:3) ;

end;

end;

end.

Результат:

1.0 2.0 5.000

1.0 2.2 5.400

1.0 2.4 5.800

1.0 2.6 6.200

1.0 2.8 6.600

1.0 3.0 7.000

1.1 2.0 5.210

...

2.0 2.6 9.200

2.0 2.8 9.600

2.0 3.0 10.000