Составить программку для вычисления арифметического выражения - Turbo Pascal

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

Составить программку для вычисления арифметического выражения.

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

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

uses crt;
var a,b,x,y:real;
begin
clrscr;
writeln('Введите значения a,b,x');
readln(a,b,x);
if b*x*sin(x)=0 then write('Значение не определено, деление на 0')
else
 begin
  y:=a*x*x/(b*x*sin(x));
  write('Значение=',y:0:3);
 end;
readln
end.

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

В начале кода подключается библиотека crt, которая используется для работы с консольным вводом и выводом.
Затем объявляются переменные a, b и x типа real, которые будут использоваться для хранения введенных пользователем значений.
С помощью функции clrscr() очищается экран перед вводом данных.
Далее выводится приглашение для ввода значений a, b и x.
С помощью функции readln() считываются введенные пользователем значения и сохраняются в переменных a, b и x.
Затем выполняется проверка условия bxsin(x) = 0. Если это условие истинно, то выводится сообщение о том, что значение не определено, так как произведено деление на ноль.
В противном случае, когда условие не выполняется, происходит вывод значения y, которое вычисляется как axx/(bxsin(x)).
Значение y выводится на экран с помощью функции write().
Конец программы завершается вызовом функции readln().