fork download
copy 
  1. PROGRAM LAB4A (INPUT,OUTPUT);
  2. VAR
  3.   A,B,DX:REAL;
  4.   X,Y:REAL;
  5. BEGIN
  6.   A:=-1;
  7.   B:=1;
  8.   DX:=0.1;
  9.    X:=A;
  10.    WHILE X<=B DO
  11.    BEGIN
  12.     IF 1+ABS(X) = 0 THEN
  13.        WRITELN('X=',X:8:5,'Y=NOT DEFINED')
  14.     ELSE
  15.        BEGIN
  16.            Y:=SQRT(1-ABS(X)/1+ABS(X));
  17.            WRITELN('X=',X:8:5,'Y=',Y:10:5)
  18.         END;
  19.       X:=X+DX;
  20.     END;
  21.  END.
  22.  
Success #stdin #stdout 0s 5276KB
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/r3zHiv
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!