Вычислите значения переменных по заданным расчётным формулам - Turbo Pascal

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

Напишите программу Pascal Вычислите значения переменных по заданным расчётным формулам

Решение задачи: «Вычислите значения переменных по заданным расчётным формулам»

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

VAR
a,b,x,y,d:real;
begin
a := 3.2;
b := 17.5;
x := -4.8;
y := b * Sin(x)/Cos(x) - a/sin(x/a)/sin(x/a);
d := Cos(b*x/a);
writeln('Y=',y:8:2);
writeln('D=',d:8:2);
readln; 
end.

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

В данном коде объявлены пять переменных: a, b, x, y и d. Значения трех из них (a, b и x) присваиваются конкретные числовые значения. Переменная y вычисляется по формуле, которая включает в себя значения переменных a, b и x, а также функции Sin и Cos. Переменная d вычисляется по формуле, которая включает в себя значения переменных b и x, а также функцию Cos. Затем происходит вывод значений переменных y и d на экран с помощью функции Writeln. Функция readln используется для чтения ввода пользователя после вывода. В итоге, код вычисляет значения трех переменных (y и d) по заданным формулам и выводит их на экран.