Программа 6

Программа 6.2

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 'Цикл по всем элементам массива Y[ ]

190 Y[I%] = 0 'Обнуление массива выходного сигнала

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

210 IF (I%-J% < 0) THEN GOTO 240

220 IF (I%-J% > 80) THEN GOTO 240

230 Y(I%) = Y(I%) + H(J%) t X(I%-J%)

240 NEXT J%

250 NEXT I%

260 '

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

280 '

290 END