Программа 6.1

100 'СВЁРТКА, ПРЕДСТАВЛЕННАЯ СО СТОРОНЫ ВХОДА

110 '

120 DIM X[80]    'Сигнал на входе, 81 отсчёт

130 DIM H[30]    'Импульсная характеристика, 31 отсчёт

140 DIM Y[110]   'Сигнал на выходе, 111 отсчётов

150                          '

160 GOSUB XXXX   'Вызов подпрограммы загрузки X[ ] и H[ ]

170                          '

180 FOR I% = 0 TO 110        'Обнуление массива выходного сигнала

190 Y(I%) = 0        

200 NEXT I%

210                            '

220 FOR I% = 0 TO 80         'Цикл по всем элементам массива X[ ]

230 FOR J% = 0 TO 30         'Цикл по всем элементам массива H[ ]

240 Y[I%+J%] = Y[I%+J%] + X[I%]*H[J%]     '(не забудьте, в программе «*» -

                                                    'это знак умножения!)

250 NEXT J%

260 NEXT I%

270

280 GOSUB XXXX   'Вызов подпрограммы вывода результата из массива Y[ ]

290

300 END