fork download
copy 
  1.  
  2. program Tema1;
  3.  
  4. uses
  5.   SysUtils;
  6.  
  7. var
  8.   x, y, z, a, b, c, u: Extended;
  9.   Edit1, Edit2, Edit3: String;
  10. begin
  11.   // Начальные значения
  12.   Edit1 := '3.4';
  13.   Edit2 := '0.74';
  14.   Edit3 := '19.43';
  15.  
  16.   // Вывод начальных значений
  17.   Writeln('Начальные значения:');
  18.   Writeln('X = ', Edit1);
  19.   Writeln('Y = ', Edit2);
  20.   Writeln('Z = ', Edit3);
  21.  
  22.   // Преобразование строковых значений в числа
  23.   x := StrToFloat(Edit1);
  24.   y := StrToFloat(Edit2);
  25.   z := StrToFloat(Edit3);
  26.  
  27.   // Вычисление арифметических выражений
  28.   a := Sqr(Sin(x + y) / Cos(x + y));
  29.   b := Exp(y - z);
  30.   c := Sqrt(Cos(Sqr(x)) + Sin(Sqr(z)));
  31.   u := a - b * c;
  32.  
  33.   // Вывод результата
  34.   Writeln('Результат u = ', FloatToStrF(u, fffixed, 8, 3));
  35. end.
  36.  
Success #stdin #stdout 0s 5268KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Начальные значения:
X = 3.4
Y = 0.74
Z = 19.43
Результат u = 2.409
https://ideone.com/V0yz4B
language:
Pascal (fpc 3.0.4)
created:
5 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!