Программа 2

Программа 2.4.

100 'РАСЧЁТ ГИСТОГРАММЫ ДЛЯ ДАННЫХ В ФОРМАТЕ С ПЛАВАЮЩЕЙ ТОЧКОЙ
110 '
120 DIM X[25000] 'Ячейки X[0]...X[25000] хранят значения отсчётов сигнала,
130 ' Величина каждого отсчёта находится в пределах 0.0...10.0.
140 DIM H%[999] 'Ячейки H%[0]...H%[999] предназначены для хранения отсчётов гистограммы
150 '
160 FOR I% = 0 TO 999 'Обнуление ячеек, выделенных под отсчёты гистограммы, необходимое для использования их в качестве накопителей
170 H%[I%] = 0
180 NEXT I%
190 '
200 GOSUB XXXX Некоторая подпрограмма, загружающая сигнал в массив X%[ ]
210 '
220 FOR I% = 0 TO 25000 ' 'Вычисление гистограммы для 25001 точки

230 BINNUM% = INT( X[I%] * 100 )
240 H%[ BINNUM%] = H%[ BINNUM%] + 1
250 NEXT I%
260 '
270 END