fork download
  1. program A19;
  2. var k,m,i,n:integer;
  3. current_x,current_z:real;
  4. z,x,y,hx,hz,c:real;
  5.  
  6. function f(x,z:real):real;
  7. begin
  8. f:= x*x - z;
  9. end;
  10.  
  11. begin
  12. writeln ('x,z,chilso shagov z, chislo shagov x,dz,dx');
  13. readln (x,z,m,n,hz,hx);
  14. c:=x;
  15. for k:=0 to m do
  16. for i:=0 to n do begin
  17. current_x:= x + i*hx;
  18. current_z:= z + k*hz;
  19. y:= f(current_x,current_z);
  20. writeln (current_x:2:2,' ',current_z:2:2,' ',y:2:2);
  21. end;
  22. readln;
  23. end.
Success #stdin #stdout 0s 276KB
stdin
0 0 4 4 1 1
stdout
x,z,chilso shagov z, chislo shagov x,dz,dx
0.00 0.00 0.00
1.00 0.00 1.00
2.00 0.00 4.00
3.00 0.00 9.00
4.00 0.00 16.00
0.00 1.00 -1.00
1.00 1.00 0.00
2.00 1.00 3.00
3.00 1.00 8.00
4.00 1.00 15.00
0.00 2.00 -2.00
1.00 2.00 -1.00
2.00 2.00 2.00
3.00 2.00 7.00
4.00 2.00 14.00
0.00 3.00 -3.00
1.00 3.00 -2.00
2.00 3.00 1.00
3.00 3.00 6.00
4.00 3.00 13.00
0.00 4.00 -4.00
1.00 4.00 -3.00
2.00 4.00 0.00
3.00 4.00 5.00
4.00 4.00 12.00