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

Question

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

Answer 1

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