Нужно описать процедуру Smooth3(A,N) - QBasic

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

написать программу в qbasic, заранее спасибо)

Решение задачи: «Нужно описать процедуру Smooth3(A,N)»

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

DECLARE SUB p (a(), N)
N = 5
DIM a(N + 1) AS SINGLE
FOR i = 1 TO 5
INPUT a(i)
NEXT
CALL p(a(), N)
FOR i = 1 TO N
PRINT a(i)
NEXT i
END
 
SUB p (a(), N)
tt = a(1)
t = a(2)
a(1) = (a(1) + a(2)) / 2
a(N + 1) = (a(N) + a(N - 1)) / 2
FOR i = 2 TO N
a(i) = (tt + t + a(i + 1)) / 3: PRINT tt, t, a(i + 1)
tt = t
t = a(i + 1)
NEXT i
END SUB

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

Список элементов:

Объявление процедуры Smooth3(A,N)
Инициализация переменной N значением 5
Динамическое выделение массива a(N+1) для хранения пяти значений
Заполнение массива a(N+1) значениями с помощью цикла FOR и оператора INPUT
Вызов подпрограммы p(a(), N)
Вывод на экран значений массива a(N+1) с помощью цикла FOR и оператора PRINT
Конец основной программы
Объявление подпрограммы p(a(), N)
Инициализация временных переменных tt и t значениями a(1) и a(2) соответственно
Вычисление среднего значения a(1) и a(2) и присваивание его переменной a(1)
Вычисление среднего значения a(N) и a(N-1) и присваивание его переменной a(N+1)
Цикл FOR для обработки каждого элемента массива a(N+1) от индекса 2 до N
Вычисление промежуточного значения (tt+t+a(i+1))/3 и присвоение его переменной a(i)
Вывод на экран значений tt, t, a(i+1) с помощью оператора PRINT
Обновление значений временных переменных tt и t
NEXT i
Конец подпрограммы p(a(), N)
END
Ввод данных с клавиатуры для массива a(N+1)
Вывод на экран значений массива a(N+1)