Запись формул в Паскаль

[Joistick]

Доброго Времени суток:

Помогите написать в Паскаль сию формулу

Картинка во вложении.

Я знаю что гиперболический синус необходимо разложить, но как это сделать, когда он находится в квадрате, ума не приложу.

Спасибо

[BDA]

sh := (exp(x + y) - exp(- x - y)) / 2;
a := (1 + sh * sh) / abs(x - 2 * y / (1 - x * x * y *y));

Неплохо бы проверять, что нет деления на ноль, но это оставляю на Вашу совесть.

[Joistick]

Спасибо, большое
А как это дело можно записать в виде кода?

Вот мой вариант, но что-то постоянно вылазят ошибки (во вложении)

Суть задачи в том, чтобы написать программку, которая бы считала по заданной формуле, при вводе чисел

[BDA]

Пожалуйста, а теперь некоторые замечания:
Во-первых, публикуйте прямо сам код, а не картинку.
Во-вторых, sh:= нужно делать уже после ввода х и у.
В-третьих, х и у должны быть вещественными, а не целыми.
В-четвертых, нулю может быть равен и модуль тоже.

Вы, молодец, раз пытаетесь написать сами. Осталось только исправить пару ошибок.

[Joistick]

Класс, спасибо)) Все заработало!!!