Вычисление значения функции - QBasic (27368)

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

Помогите пожалуйста написать код(срочно) Заранее спасибо.

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

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

DECLARE FUNCTION t! (x!)
CLS
CONST a = 16.8
CONST c = .51
CONST z = 1
CONST f = 3.26
 
INPUT "X = "; x
 
PRINT "t ="; t(x)
END
 
FUNCTION t (x)
   IF x < 1 THEN
      t = EXP(x) + LOG(a + x)
   ELSEIF x > 2.2 THEN
      t = a * SIN(x ^ 2) / (f * x ^ 2 + c ^ 2) ^ (1 / 3)
   ELSE
      t = (a * x + z) ^ .25
   END IF
END FUNCTION

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

Объявление функции t с одним аргументом x.
Очистка экрана.
Объявление констант:
- a = 16.8
- c = .51
- z = 1
- f = 3.26
Ввод значения аргумента x с помощью функции INPUT.
Вывод значения функции t с помощью функции PRINT.
Определение функции t с аргументом x.
Проверка условия: если x < 1, то...
Вычисление значения функции t в случае, если x < 1.
... иначе, если x > 2.2, то...
Вычисление значения функции t в случае, если x > 2.2.
... иначе, если x <= 2.2, то...
Вычисление значения функции t в случае, если x <= 2.2.
... иначе, если x < 1, то...
Вычисление значения функции t в случае, если x < 1.
... иначе, если x > 2.2, то...
Вычисление значения функции t в случае, если x > 2.2.
... иначе, если x <= 2.2, то...
Вычисление значения функции t в случае, если x <= 2.2.
... иначе, если x < 1, то...
Вычисление значения функции t в случае, если x < 1.