Программа 24.1

100 ОБЫЧНАЯ СВЁРТКА ИЗОБРАЖЕНИЙ
110 '
120 DIM X[99,99]       'хранит входное изображение, 100´100 пикселей
130 DIM H[28,28]       'хранит ядро фильтра, 29´29 пикселей
140 DIM Y[127,127]     'хранит выходное изображение, 128´128 пикселей
150 '
160 FOR R% = 0 TO 127  'цикл по каждой строке и столбцу в выходном
170 FOR C% = 0 TO 127  'изображении, вычисляющий значение пикселей по уравнению (24.3)
180
190 Y[R%,C%] = 0       'используется как аккумулятор
200 '
210 FOR J% = 0 TO 28   'умножает каждый пиксель ядра на соответствующий
220 FOR K% = 0 TO 28   'пиксель входного изображения и прибавляет к аккумулятору
230 Y[R%,C%] = Y[R%,C%] + H[J%,K%] * X[R%-J%,C%-J%]
240 NEXT K%
250 NEXT J%
260 '
270 NEXT C%
280 NEXT R%
290 '
300 END