Табулирование функций (Часть 1) - QBasic

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

Здравствуйте, помогите пожалуйста составить программу для вычисления значений функции F(x) на отрезке [а, b] с шагом h. Результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции. Функции З.Ы. Модераторы плиз не баньте тему за две функции, лень было ночью делать еще одну тему

Решение задачи: «Табулирование функций (Часть 1)»

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

DECLARE FUNCTION f1! (x!)
DECLARE FUNCTION f2! (x!)
CLS
INPUT "[A; B] = "; a, b
h = (b - a) / 20
 
FOR i = 0 TO 20
   x = a + h * i
   PRINT USING "X = ##.##  Y1 = ##.###  Y2 = ##.###"; x; f1(x); f2(x)
NEXT
END
 
FUNCTION f1 (x)
   IF SIN(x) <> 0 THEN
      f1 = COS(x) / SIN(x) + 1
   END IF
END FUNCTION
 
FUNCTION f2 (x)
   IF SIN(x / 4) <> 0 THEN
      f2 = .5 * COS(x / 4) / SIN(x / 4) + 4
   END IF
END FUNCTION

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

Задаются две функции f1 и f2, которые будут табулироваться.
Задаются пределы для переменной x с помощью команды INPUT.
Вычисляется шаг h для перебора значений x от a до b.
Запускается цикл FOR, который выполняется 21 раз (от 0 до 20).
Внутри цикла переменная x последовательно принимает значения от a до b с шагом h.
Для каждого значения x вычисляются значения функций f1 и f2 и выводятся на экран.
Код функций f1 и f2 объявлен после команды DECLARE FUNCTION.
Функция f1 вычисляет значение f1(x) в зависимости от значения x.
Функция f2 вычисляет значение f2(x) в зависимости от значения x.
В конце программы вызывается команда END для завершения работы программы.