Вот такой вопрос на 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)
Для Бейсик-Вильнюс на УКНЦ (кассета ПЗУ):
Результат -- 25Код: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