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.
Answers & Comments
Verified answer
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