fork download
copy 
  1. program Tema1;
  2.  
  3. uses
  4.   SysUtils, Math; // Math для работы с математическими функциями
  5.  
  6. var
  7.   x, y, z, psi: Extended;
  8.   Edit1, Edit2, Edit3: String;
  9. begin
  10.   // Заданные значения
  11.   Edit1 := '1.825e2';
  12.   Edit2 := '18.225';
  13.   Edit3 := '-3.298e-2';
  14.  
  15.   // Вывод начальных значений
  16.   Writeln('Начальные значения:');
  17.   Writeln('X = ', Edit1);
  18.   Writeln('Y = ', Edit2);
  19.   Writeln('Z = ', Edit3);
  20.  
  21.   // Преобразование строковых значений в числа
  22.   x := StrToFloat(Edit1);
  23.   y := StrToFloat(Edit2);
  24.   z := StrToFloat(Edit3);
  25.  
  26.   // Вычисление выражения
  27.   psi := Abs(1 / Sqr(x) - Power(y / x, 1/3)) +
  28.          (y - x) +
  29.          (Cos(y) - z / (y - x)) / (1 + Sqr(y - x));
  30.  
  31.   // Вывод результата
  32.   Writeln('Результат ψ = ', FloatToStrF(psi, fffixed, 8, 4));
  33. end.
Success #stdin #stdout 0.01s 5280KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Начальные значения:
X = 1.825e2
Y = 18.225
Z = -3.298e-2
Результат ψ = -163.8111
https://ideone.com/5cemps
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!