Программа 4

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