Разрядность мантиссы в различных языках

[nzeemin]

Вот такой вопрос на StackOverflow-RU
http://ru.stackoverflow.com/questions/513132/
благодаря которому имеем способ обнаружения разрядности мантиссы.

REAL Y=2.0, X=1.0, E=1.0;
DO (E=E/2.0; Y=X+E;
) WHILE (Y<>1.0)

Предлагаю применить этот алгоритм для получения точности чисел в различных диалектах Бейсика и других языков, используемых на советских компьютерах.

Для Бейсик-Вильнюс на УКНЦ (кассета ПЗУ):

10 Y=2.0
11 X=1.0
12 E=1.0
20 E=E/2.0
25 Y=X+E
30 N=N+1
40 IF Y<>1.0 GOTO 20
50 PRINT N

Результат -- 25

[Advertiser]