отключение проверки при вводе

[engeneer]

Всем добрый день.

Хотел спросить: можно как-то наглухо отключить проверку ввода-вывода, чтобы не было абсолютно никаких сообщений об ошибках ввода? Хотелось бы сделать нормальную "защиту от дурака" в проге.
Пробовал с помощью ключей {$I-} и {$I+}:

var
 r:real;
begin
{$I-}
 readln(r);
{$I+}
 writeln(IOResult);
end.

Однако при вводе, например, значения 1Е+39 () все-таки выдается сообщение о переполнении плавающей точки и прога останавливается. Хотелось бы все отключить наглухо и проводить проверку чем-то типа IOResult. Подскажите пожалуйста, если кто знает. Спасибо.

[Stilet]

{$Q-} вуключит проверку на переполнение

[eoln]

{$Q-} вуключит проверку на переполнение

Хм... Этот способ не работает
Можно просто перегонять из строки в число

var
  s:string;
  r: real;
  q: integer;
begin
  readln(s); //вводим число (как строку)
  val(s, r, q); //перегоняем в число
  if q<>0 then //ваши действия или бездействия при ошибке (q - код ошибки)
  readln;
end.

[engeneer]

Сообщение от eoln

Хм... Этот способ не работает
Можно просто перегонять из строки в число

var
  s:string;
  r: real;
  q: integer;
begin
  readln(s); //вводим число (как строку)
  val(s, r, q); //перегоняем в число
  if q<>0 then //ваши действия или бездействия при ошибке (q - код ошибки)
  readln;
end.

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

[Stilet]

Ты можеш четко и раскрыто задачу изложить.
Решений твоей проблемы - уйма, но что ты хочеш непонятно.

[Hollander]

Согласен с решением engeneer.
То что ты выключишь сообщение об ошибке, тебя не избавит от нее. Подумай, как ты дальше неверные данные обрабатывать будешь?
Или

Сообщение от Stilet

Ты можеш четко и раскрыто задачу изложить.
Решений твоей проблемы - уйма, но что ты хочеш непонятно.

+1

[engeneer]

Сообщение от Hollander

Подумай, как ты дальше неверные данные обрабатывать будешь?
Или

+1

Да никак не буду! В случае ошибки ввода прога выплевывает что-то типа "произошла ошибка ввода. для выхода нажмите любую клавишу" и выходит. Или второй вариант - возвращается к вводу переменной.

[puporev]

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

Если так, то это же совсем просто. Школьников все время тренируют на проверку правильности ввода. В таком случае определяется что можно вводить, а что нельзя и потом или в цикле repeat . . until, или через goto проверяется правильность ввода, при неправильном выдается сообщение и ввод повторяется, пока не будет введено допустимое значение.

[engeneer]

Сообщение от Stilet

Ты можеш четко и раскрыто задачу изложить.
Решений твоей проблемы - уйма, но что ты хочеш непонятно.

Если я скажу, что от переменной r вычисляется интеграл Френеля, - полегчает? Кроме того, к исполнению мат. части проги у меня претензий нет... Нужна лишь "защита от дурака" при вводе переменной r.

[puporev]

Совсем за дураков-то нас не считай, тоже где-то учились и что-то читали. Определи в каких пределах может изменяться r и сделай как я написал.