fork download
copy 
  1. program lab3;
  2. var x, y, U:real;
  3. begin
  4.   writeln(' x', ' y', ' U');
  5.   x:=-1;
  6.   repeat
  7.     y:=-1;
  8.   repeat
  9.     if (x-y<=-1) then
  10.       U:=y*exp(x)
  11.     else if (-1<x-y) and(x-y<1) then
  12.       U:=ln(x*x*x*x+1)
  13.     else U:=x*x-y;
  14.     writeln(x:5:2, ' ', y:5:2, ' ', U:5:3, ' ');
  15.     y:=y+0.2;
  16.     until y>0;
  17.   x:=x+0.4;
  18.   until x>1;
  19. end.
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 x y U
-1.00 -1.00 0.693 
-1.00 -0.80 0.693 
-1.00 -0.60 0.693 
-1.00 -0.40 0.693 
-1.00 -0.20 0.693 
-1.00 -0.00 0.693 
-0.60 -1.00 0.122 
-0.60 -0.80 0.122 
-0.60 -0.60 0.122 
-0.60 -0.40 0.122 
-0.60 -0.20 0.122 
-0.60 -0.00 0.122 
-0.20 -1.00 0.002 
-0.20 -0.80 0.002 
-0.20 -0.60 0.002 
-0.20 -0.40 0.002 
-0.20 -0.20 0.002 
-0.20 -0.00 0.002 
 0.20 -1.00 1.040 
 0.20 -0.80 0.840 
 0.20 -0.60 0.002 
 0.20 -0.40 0.002 
 0.20 -0.20 0.002 
 0.20 -0.00 0.002 
 0.60 -1.00 1.360 
 0.60 -0.80 1.160 
 0.60 -0.60 0.960 
 0.60 -0.40 0.760 
 0.60 -0.20 0.122 
 0.60 -0.00 0.122 
 1.00 -1.00 2.000 
 1.00 -0.80 1.800 
 1.00 -0.60 1.600 
 1.00 -0.40 1.400 
 1.00 -0.20 1.200 
 1.00 -0.00 1.000
https://ideone.com/8WlKgZ
language:
Pascal (fpc 3.0.4)
created:
4 hours 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!