fork download
copy 
  1. PROGRAM LAB4A (INPUT,OUTPUT);
  2. VAR
  3.   A,B,DX:REAL;
  4.   X,Y:REAL;
  5.   K,I:INTEGER;
  6. BEGIN
  7.   A:=-1;
  8.   B:=1;
  9.   DX:=0.1;
  10.    X:=A;
  11.    K:=TRUNC((B-A)/DX)+1;
  12.    FOR I:=1 TO K DO
  13.    BEGIN
  14.       IF 1+ABS(X) = 0 THEN
  15.        WRITELN('X=',X:8:5,'Y=NOT DEFINED')
  16.       ELSE
  17.        BEGIN
  18.            Y:=SQRT(1-ABS(X)/1+ABS(X));
  19.            WRITELN('X=',X:8:5,'Y=',Y:10:5)
  20.         END;
  21.       X:=X+DX;
  22.     END;
  23.  END.
  24.  
Success #stdin #stdout 0.01s 5280KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
X=-1.00000Y=   1.00000
X=-0.90000Y=   1.00000
X=-0.80000Y=   1.00000
X=-0.70000Y=   1.00000
X=-0.60000Y=   1.00000
X=-0.50000Y=   1.00000
X=-0.40000Y=   1.00000
X=-0.30000Y=   1.00000
X=-0.20000Y=   1.00000
X=-0.10000Y=   1.00000
X=-0.00000Y=   1.00000
X= 0.10000Y=   1.00000
X= 0.20000Y=   1.00000
X= 0.30000Y=   1.00000
X= 0.40000Y=   1.00000
X= 0.50000Y=   1.00000
X= 0.60000Y=   1.00000
X= 0.70000Y=   1.00000
X= 0.80000Y=   1.00000
X= 0.90000Y=   1.00000
X= 1.00000Y=   1.00000
https://ideone.com/3p1OUa
language:
Pascal (fpc 3.0.4)
created:
12 days 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!