fork download
copy 
  1. program Project1;
  2.  
  3.     uses
  4.       SysUtils;
  5.     var x,y:real;
  6.     begin
  7.        write('x='); readln(x);
  8.        if(x>1) then 
  9.  
  10.            y:=cos(x)/(x*x*x+3*sin(x)+8)
  11.  
  12.        else
  13.  
  14.            y:=x*x*x+3*sin(x)+8;
  15.  
  16.       writeln('y=', y:0:3);
  17.        Readln;
  18.     end.
Success #stdin #stdout 0s 432KB
comments (?)
stdin
copy 
23
stdout
copy 
x=y=-0.000
https://ideone.com/yvnXSK
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!