Программа 6

Программа 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