Написать арифметические выражения - Turbo Pascal

Формулировка задачи:

Написать арифметическое выражение на языке Паскаль!

Решение задачи: «Написать арифметические выражения»

Листинг программы

function tg( x : real) : real;
begin
  tg := sin(x) / cos(x)
end;
 
var x,y : real;
begin
  x := 1;
  y := (sin(0.56)+tg(0.45))*ln(6.5)/( (exp(x)+sqr(sin(x)))*(tg(sqr(x))-2*x*cos(3*x)) );
  WriteLn(y:0:10);
  Readln
end.

Объяснение кода листинга программы

Создается функция tg, которая принимает один аргумент типа real и возвращает значение типа real.
Внутри функции tg используется функция sin и cos для вычисления синуса и косинуса аргумента функции tg.
Затем внутри функции tg используется оператор деления для вычисления отношения синуса к косинусу аргумента функции tg.
Далее создается переменная x типа real и присваивается ей значение 1.
Затем создается переменная y типа real и присваивается ей значение (sin(0.56)+tg(0.45))ln(6.5)/( (exp(x)+sqr(sin(x)))(tg(sqr(x))-2xcos(3*x)) ).
Внутри переменной y выполняется ряд вычислений:
- Вычисляется значение sin(0.56) и сохраняется в переменную y.
- Вычисляется значение cos(0.45) и сохраняется в переменную y.
- Вычисляется значение ln(6.5) и сохраняется в переменную y.
- Вычисляется значение exp(x) и сохраняется в переменную y.
- Вычисляется значение sqr(sin(x)) и сохраняется в переменную y.
- Вычисляется значение cos(3*x) и сохраняется в переменную y.
- Вычисляется значение tg(sqr(x)) и сохраняется в переменную y.
- Вычисляется значение 2xcos(3*x) и сохраняется в переменную y.
Затем выполняется запись значения переменной y в файл.
Наконец, выполется чтение из файла с помощью функции Readln.