fork download
copy 
  1. program CalculateExpression;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils, Math;
  7.  
  8. var
  9.   x, y, z, t, result: Extended;
  10.  
  11. begin
  12.   x := 14.26;
  13.   y := -1.22;
  14.   z := 3.5 * Power(10, -2);
  15.   t := 0.564849;
  16.  
  17.   result := (2 * Cos(x - (Pi / 6))) / ((0.5 + Power(Sin(y), 2))) * (1 + Power(z,2) / (3 - Power(z, 2) / 5));
  18.  
  19.   Writeln('Результат выражения: ', result:0:6);
  20. end.
Success #stdin #stdout 0.01s 5296KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Результат выражения: 0.564846
https://ideone.com/cc5sSi
language:
Pascal (fpc 3.0.4)
created:
13 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!