OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Пятница, 29 Март, 2024 12:59

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Подскажите, что я делаю не так...
СообщениеДобавлено: Понедельник, 01 Май, 2023 23:53 

Зарегистрирован: Понедельник, 01 Май, 2023 23:44
Сообщения: 1
Пример.
Код:
MODULE test;
      IMPORT Log := StdLog;
   PROCEDURE Do* (n: INTEGER);
      VAR i: INTEGER;
   BEGIN
      FOR i := 1 TO n DO
         Log.Real(10.7 * i); Log.Ln;
      END;
   END Do;
END test.

"test.Do(10)"


Результат
    10.7
    21.4
    32.09999999999999
    42.8
    53.5
    64.19999999999999
    74.89999999999999
    85.59999999999999
    96.3
    107.0


Вложения:
Безымянный.jpg
Безымянный.jpg [ 68 КБ | Просмотров: 2241 ]
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Подскажите, что я делаю не так...
СообщениеДобавлено: Вторник, 02 Май, 2023 00:05 
Аватара пользователя

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 3774
Если вы хотите, чтобы вывод был с фиксированной плавающей точкой, то используйте команду RealForm, тогда в качестве аргумента expW с отрицательным значением возможно указать, сколько разрядов оставлять.
Код:
MODULE test;
      IMPORT Log := StdLog;
   PROCEDURE Do* (n: INTEGER);
      VAR i: INTEGER;
   BEGIN
      FOR i := 1 TO n DO
         Log.RealForm(10.7 * i, 16, 0, -2, " "); Log.Ln;
      END;
   END Do;
END test.


Команда Log.Real же эквивалентна Log.RealForm(x, 16, 0, 0, digitspace), и в этом случае ББ сам подбирает, сколько разрядов после плавающей точки отобразить, чтобы число было ближе к результату с точностью 16 во время преобразования в строку.


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2005-2024, участники конференции «OberonCore», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Без разрешения участников и ссылки на конференцию «OberonCore» любое воспроизведение и/или копирование высказываний полностью и/или по частям запрещено.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB