Обработка ошибок Опции

[-flover-]

Существует ли в паскале обработка ошибок, на подобии бейсиковской onerror?

[volvo]

Встроенная (я про Турбо-Паскаль, конечно, современные-то компиляторы имеют блок Try ... Except) - нет, добавить можно (с использованием ассемблерных вставок или директивы Inline)... Пример - тут:
как отлавливать исключение в Турбо Паскале 7.0

[Flover]

Мде(
Может есть способ проверить перед умножением двух чисел extended, будет переполнение или нет?

[Lapp]

есть способ проверить перед умножением двух чисел extended, будет переполнение или нет?

Конечно, есть. И конечно, не такой, как у andriano. Проверка на уровне "возможно" вряд ли устроит в реальной ситуации (даже если не ошибиться в диапазоне )..

Можно проверять логарифм. Как известно, логарифм произведения равен сумме логарифмов. Вычисли натуральные логарифмы модулей сомножителей и сложи их. Если получится меньше, чем примерно 11356.5 (значение можно уточнить, но это непринципиально), то смело умножай, если больше - то не стоит.. И есть еще одно "но": надо следить, чтоб никакой из сомножителей не был равен нулю, иначе логарифм выдаст ошибку. Но при хотя бы одном сомножителе, равном нулю, за переполнение произведения опасаться нечего, так что все в результате должно выглядеть примерно так:

if (a=0) or (b=0) or (Ln(Abs(a))+Ln(Abs(b))<=11356.5) then c:=a*b;

Если ты можешь приблизительно предсказать величину своих чисел, то можно обойтись без логарифмов. Например, если ты уверен, что все значения больше, скажем, единицы, то можно перемножить обратные величины. Это произведение нужно сравнить примерно с 5e-4932 :

if 1/Abs(a)/Abs(b)>5e-4932 then c:=a*b

Этот способ кажется проще, но в нем есть условности и подводные камни, так что я его не стал бы рекомендовать.

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