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
comments (?)
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
https://ideone.com/vtNN7q
language:
Pascal (fpc 3.0.4)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!