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