Оберон-клуб «ВЄДАsoft»

Твердыня модульных языков
Текущее время: 28 мар 2024, 21:08

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




Начать новую тему Ответить на тему  [ Сообщений: 28 ]  На страницу Пред.  1, 2, 3
Автор Сообщение
СообщениеДобавлено: 02 дек 2018, 14:32 
Не в сети

Сообщения: 350
Переводить не поможет, т.к. для 64-разрядных чисел можно придумать аналогичный пример. MAX(LONGINT)-MAX(LONGINT)+2 - в зависимости от расстановки скобок переполнение или будет, или не будет. Ну в общем, я надеюсь, Вы понимаете, что делаете, просто делайте аккуратненько :)


Вернуться к началу
 Профиль  
Ответить с цитатой  
СообщениеДобавлено: 02 дек 2018, 17:15 
Не в сети
Администратор
Аватара пользователя

Сообщения: 189
budden писал(а):
для 64-разрядных чисел можно придумать аналогичный пример

Да..да... Это я понимаю, поэтому изменил сканер, который отслеживает переполнение...
Код: "OBERON"
  1.  
  2. IF (INTEGER(k) >= MCB.minreal) AND (INTEGER(k) <= MCB.maxreal) THEN BEGIN
  3. sym := lx_real;
  4. i32 := INTEGER(k);
  5. i64 := k;
  6. END ELSE BEGIN
  7. i32 := 0;
  8. i64 := 0;
  9. MCB.Mark('bad real');
  10. END;
  11.  

Где к - INT64, поэтому ошибку покажет уже при вводе или при просчете конечного результата...
Естественно во время просчета MAX(INTEGER) * MAX(INTEGER) DIV 2 тоже могут быть проблемы, но буду пытаться отследить это :)


Вернуться к началу
 Профиль  
Ответить с цитатой  
СообщениеДобавлено: 20 дек 2018, 09:39 
Не в сети
Администратор
Аватара пользователя

Сообщения: 86
И где продолжение?))

_________________
Действия профессионала предсказуемы. Но в мире полно любителей!


Вернуться к началу
 Профиль  
Ответить с цитатой  
СообщениеДобавлено: 21 дек 2018, 10:54 
Не в сети
Администратор
Аватара пользователя

Сообщения: 189
Будет попозже...

У меня сейчас небольшие финансовые проблемы, надо 800 000 на 2 года под маленький процент, у нас тут бизнесменов нет которые могут проинвестировать? Под 3-4% в месяц? :cry:

Пока сделал студию для удобства, и вообщем понимаю почему Вирт отказался от некоторых конструкций и ввёл дополнительные ограничения...


Вложения:
studio.zip [151.21 КБ]
Скачиваний: 348
Вернуться к началу
 Профиль  
Ответить с цитатой  
СообщениеДобавлено: 23 дек 2018, 18:52 
Не в сети
Администратор
Аватара пользователя

Сообщения: 86
Ништяк) Поковыряем. Правда уже не сегодня.
И да, 800к рублей нету))

_________________
Действия профессионала предсказуемы. Но в мире полно любителей!


Вернуться к началу
 Профиль  
Ответить с цитатой  
СообщениеДобавлено: 24 дек 2018, 12:45 
Не в сети
Администратор
Аватара пользователя

Сообщения: 189
Изображение

Изображение

Новая концепция редактора, контекстное меню открывается при задержке мышки на управляющих пунктах меню.


Вернуться к началу
 Профиль  
Ответить с цитатой  
СообщениеДобавлено: 24 дек 2018, 19:25 
Не в сети
Администратор
Аватара пользователя

Сообщения: 86
Сделай опцию по клику. Лично меня будет раздражать.

_________________
Действия профессионала предсказуемы. Но в мире полно любителей!


Вернуться к началу
 Профиль  
Ответить с цитатой  
СообщениеДобавлено: 19 окт 2019, 17:43 
Не в сети
Администратор
Аватара пользователя

Сообщения: 189
Прикрепил исходник... Что б не потерять.


Вложения:
Комментарий к файлу: На всяк случай
frm_cross.zip [810.92 КБ]
Скачиваний: 301
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 28 ]  На страницу Пред.  1, 2, 3

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


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

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


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

Найти:
Перейти:  
cron
Создано на основе phpBB® Forum Software © phpBB Group
© VEDAsoft Oberon Club