Как вычислить и вывести на экран значения функции с указанным шагом - QBasic

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

Вычислите и выведите на экран значения функции y = f(x) в точках x0=xнач, x1=x0+h, x2=x1+h, … xN = xкон, где h =(xкон – xнач)/N. (Иными словами: затабулируйте функцию y = f(x) на отрезке [xнач ; xкон ] с шагом h.) Функция y = f(x) зависит от параметра a.  Результаты вычислений следует оформить в виде таблицы, снабженной заголовком и вывести на экран и в файл;  Задачу решить тремя различными способами (цикл с предусловием, цикл с постусловием, цикл с параметром). Все три решения оформить в одной программе, выбор способа предоставить пользователю. N=15 a=2 xнач=0 xкон=1 y=sqrt(a+sin(x))/((1/3)ln(4+cos(x)))

Решение задачи: «Как вычислить и вывести на экран значения функции с указанным шагом»

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

                            DEF fnf (x, a) = SQR(a + SIN(x)) / ((1 / 3) * LOG(4 + COS(x)))
DIM n AS INTEGER
DIM i AS INTEGER
OPEN "1.txt" FOR OUTPUT AS #1
CLS
INPUT "N = "; n
INPUT "A = "; a
PRINT " x1 < x2"
INPUT "x1=? x2="; x1, x2
 
h = (x2 - x1) / n
LOCATE 1, 25
PRINT "y=SQR(a+SIN(x)/((1/3)*LOG(4+COS(x))"
PRINT #1, "y=SQR(a+SIN(x)/((1/3)*LOG(4+COS(x))"
i = 0
 
FOR x = x1 TO x2 + h / 10 STEP h
   LOCATE 3 + i, 30
   PRINT USING "###.###   ###.######"; x; fnf(x, a)
   PRINT #1, USING "###.###   ###.######"; x; fnf(x, a)
   i = i + 1
NEXT x
 
CLOSE #1
END
                        