fork download 
  1. Program stor25;
  2. var x:real;
  3. n:byte;
  4.  
  5. function arcsin(x:real):real;
  6. begin
  7. arcsin:=arctan(x/sqrt(1-sqr(x)));
  8. end;
  9.  
  10. procedure z(x:real);
  11. begin
  12. writeln(x:4:2,^i,(arcsin(2*x)+abs(x))/(sqr(x)+1):4:2);
  13. end;
  14.  
  15. begin
  16.  
  17. writeln('x',^i,'z');
  18.  
  19. writeln; 
  20. x:=0;
  21. while x<=0.4 do begin
  22. z(x);
  23. x:=x+0.2;
  24. end;
  25.  
  26. writeln;
  27. x:=0.1;
  28. for n:=1 to 6 do begin
  29. z(x);
  30. x:=x+0.05;
  31. end;
  32.  
  33. end.
Success #stdin #stdout 0.01s 252KB
comments (?)
stdin 
Standard input is empty
stdout 
x	z

0.00	0.00
0.20	0.59

0.10	0.30
0.15	0.44
0.20	0.59
0.25	0.73
0.30	0.87
0.35	1.00
https://ideone.com/UNS2m
language:
Pascal (fpc 3.0.4)
created:
14 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!