Программа 4.1. Программа, иллюстрирующая накопление ошибки округления в процессе вычислений с плавающей точкой

100 X = 1                     'инициализация X

110

120 FOR I% = 0 TO 2000

130 A = RND                   'запись в А и В

140 B = RND                   'случайных значений

150

160 X = X + A                 'добавление к Х значений А и В

170 X = X + B

180 X = X – A                 'обратное вычитание А и В - отмена

190 X = X – B                 'предыдущих действий

200

210 PRINT X                   'в идеале Х должен быть равен 1

220 NEXT I%                   

230 END