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

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

Составить разветвляющуюся блок-схему и программу для вычисления значения функции для заданных значениях параметров в системах Qbasic и MathCad. Сравнить ответы с = arctg а; а, х - любые.

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

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

CLS
INPUT "BBEDITE a="; a
INPUT "BBEDITE x="; x
INPUT "BBEDITE c="; c
IF x < a ^ -2 THEN
u = EXP(2 * x) + SQR(a ^ 4 + x ^ 2)
ELSE
u = (SQR(a * x ^ 4 + 4 * x)) / TAN(a + x) + c ^ (1 / 3)
END IF
PRINT "U="; u
END

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

CLS — команда очистки экрана
INPUTBBEDITE a=; a — ввод значения переменной a с помощью функции INPUT, запрос на ввод значения переменной a
INPUTBBEDITE x=; x — ввод значения переменной x с помощью функции INPUT, запрос на ввод значения переменной x
INPUTBBEDITE c=; c — ввод значения переменной c с помощью функции INPUT, запрос на ввод значения переменной c
IF x < a ^ -2 THEN — условие, при котором выполняется блок кода внутри фигурных скобок
u = EXP(2 * x) + SQR(a ^ 4 + x ^ 2) — вычисление значения переменной u в случае выполнения условия
ELSE — условие, при котором выполняется блок кода внутри фигурных скобок
u = (SQR(a * x ^ 4 + 4 * x)) / TAN(a + x) + c ^ (1 / 3) — вычисление значения переменной u в случае невыполнения условия
PRINTU=; u — вывод значения переменной u на экран
END — завершение программы