fork download
copy 
  1. program ComputeU;
  2. uses Math; {Підключаємо модуль для тригонометричних функцій}
  3.  
  4. const
  5.   x: Real = 3.2; {Задаємо x як константу}
  6.  
  7. var
  8.   U: Real; {Змінна для результату}
  9.  
  10. begin
  11.   U := Cos(x) + Sin(x); {Обчислення виразу}
  12.   Writeln('U = ', U:0:6); {Вивід результату з 6 знаками після коми}
  13. end.
  14.  
Success #stdin #stdout 0.01s 5264KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
U = -1.056669
https://ideone.com/Wlm77s
language:
Pascal (fpc 3.0.4)
created:
3 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!