fork download
copy 
  1. program z;
  2. var x, y, w, t: real;
  3. begin
  4. t:=0.26;
  5. w:=3.14;
  6. x:=sin(w*t)/cos(w*t);
  7. if x<0 then y:=-4 else 
  8. if (x>=0) and (x<1) then y:=(x*x+3*x+4) else
  9. y:=sqr(x*x+3*x+4);
  10. writeln(y);
  11. end.
Success #stdin #stdout 0s 288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 6.92913053515315E+001
https://ideone.com/TZvM6G
language:
Pascal (fpc 3.0.4)
created:
7 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!