Вычислить значение функции - QBasic (27370)

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

Привет всем. В общем помогите, господа. Надо составить программу для вычисления функции на QBasic. Вот задача. (cos0,7x + 1)^sin5x + e^2x/2x Если что e^2x/2x это дробь. Заранее спасибо.

Решение задачи: «Вычислить значение функции»

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

INPUT x
IF ABS(x) < 3E-38 THEN
  PRINT "Функция не определена"
ELSE
  PRINT (COS(0.7*x + 1))^(SIN(5*x)) + EXP(2*x)/(2*x)
END IF

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

В начале кода стоит оператор INPUT, который предлагает пользователю ввести значение переменной x.
Затем идет условный оператор IF, который проверяет, является ли абсолютное значение переменной x меньше 3E-38.
Если это условие истинно, то выводится сообщение Функция не определена.
В противном случае выполняется блок команд, который начинается с оператора ELSE.
Внутри блока команд вычисляется значение функции, которое затем выводится на экран.
Значение функции равно возведению в степень косинуса от 0.7x + 1, умноженному на синус от 5x.
Значение функции также равно экспоненте от 2x, деленной на 2x.
Значение функции выводится на экран после того, как все вычисления были выполнены.