Реализация функции - Pascal ABC

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

Реализация функции

Решение задачи: «Реализация функции»

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

var a,b,x,y:real;
begin
writeln('Введите a,b,x');
readln(a,b,x);
if(a<=0)or(b=0)or(cos(x)=0)then write('Y не определено')
else
 begin
  y:=abs(x-b)/2/sqrt(a)-sin(x)/cos(x)/b/b;
  write('y=',y:0:3);
 end;
end.

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

Объявлены четыре переменные типа real: a, b, x, y.
Выводится сообщение с просьбой ввести значения переменных a, b, x.
Считываются значения переменных a, b, x.
Выполняется проверка: если a <= 0 или b = 0 или cos(x) = 0, то выводится сообщение Y не определено.
Иначе выполняется расчёт значения переменной y по формуле: y := abs(x-b)/2/sqrt(a)-sin(x)/cos(x)/b/b.
Выводится сообщение с значением переменной y, отформатированным до трех знаков после запятой.