Вычислить функцию, используя разложение в ряд - QBasic

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

1) sin(x)=(x/1!)-(x^3/3!)+(x^5/5!)-(x^7/7!)+... (1! - факториал) x - произвольное точность вычислений |-|=<10^(-3) n=1,2,3.... 2)Даны целые числа K,N и последовательность целых чисел: ,,...,. Получить суммы (++...), (++....+),...(+...+)

Решение задачи: «Вычислить функцию, используя разложение в ряд»

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

CLS 
RANDOMIZE TIMER 
 
INPUT "K = "; K
INPUT "N = "; N
DIM A(1 TO N, 1 TO K) AS INTEGER
 
FOR i = 1 TO N 
FOR j = 1 TO K
   A(i, j) = 20*RND - 10
   PRINT A(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR i = 1 TO N 
   S = 0
   FOR j = 1 TO K
      S = S + A(i, j)
      PRINT S;
   NEXT j
NEXT i
 
END

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

CLS - очистка экрана
RANDOMIZE TIMER - установка случайного числа для повторного вызова функции
INPUT K =; K - ввод значения K с клавиатуры
INPUT N =; N - ввод значения N с клавиатуры
DIM A(1 TO N, 1 TO K) AS INTEGER - создание массива A размером N на K
FOR i = 1 TO N - цикл по строкам массива A
FOR j = 1 TO K - цикл по столбцам массива A
A(i, j) = 20*RND - 10 - заполнение массива A значениями, полученными из разложения в ряд
PRINT A(i, j); - вывод значения элемента массива A на экран
NEXT j: PRINT - переход к следующей строке массива A
NEXT i: PRINT - переход к следующей странице вывода
FOR i = 1 TO N - цикл по строкам массива A
S = 0 - инициализация переменной S суммой элементов строки
FOR j = 1 TO K - цикл по столбцам массива A
S = S + A(i, j) - суммирование элементов строки
PRINT S; - вывод значения суммы на экран
NEXT j - переход к следующей строке массива A
NEXT i - переход к следующей странице вывода
END - завершение программы