fork download
copy 
  1. program Lab02 (Input,Output);
  2. uses crt, math;
  3. var 
  4. x:real;
  5. y:real;
  6. z:real;
  7. z1,z2,z3,z4,z5:real;
  8. begin
  9. writeln('Please enter value for X');
  10. readln(x);
  11. writeln('Please enter value for Y');
  12. readln(y);
  13. z1:=power(y, x);
  14. z2:=abs(x);
  15. z3:=abs(y);
  16. z4:=z2+z3;
  17. z5:=sqrt(z4);
  18. z:=z1+z5;
  19. writeln('Result is z=',z);
  20. end.
Success #stdin #stdout 0s 5292KB
comments (?)
stdin
copy 
-0.851
1.250
stdout
copy 
Please enter value for X
Please enter value for Y
Result is z= 2.2765285014235550E+000
https://ideone.com/WFQ0Vg
language:
Pascal (fpc 3.0.4)
created:
2 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!