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

[engeneer]

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

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

елки-палки... при чем здесь нафиг извините школьники и repeat until?! Если некий дурень попытается вместо вещественной r ввести, например, текстовое значение, мне нужно чтобы прога не закрывалась, а выводила сообщение об ошибке. Этого я добился с помощью ключа {$I-}, {$I+}. А вот если вводится слишком большое значение (не помещающееся в переменную вещественного типа), то ключ {$I-}, {$I+} перестает работать и прога вылетает с сообщением об ошибке переполнения плавающей точки. А мне нужно, чтоб не вылетала. Так понятнее?

[puporev]

repeat
write('r=');
readln(r);
if r>? then
begin
writeln('Слишком большое значение, повторите ввод!');
readln;
end;
until r<?;

[engeneer]

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

repeat
write('r=');
readln(r);
if r>? then
begin
writeln('Слишком большое значение, повторите ввод!');
readln;
end;
until r<?;

Отлично!

var
 r:real;
begin
 readln(r);
 if r>1E39 then
 writeln('слишком большое значение');
end.

При вводе того же 1Е40 прога не доходит до строчки if r>1E39 then и выплевывается сообщение Error 205: Floating Point Overflow. То есть если запускать скомпилированный exeшник, то дурень, вводивший 1Е40 даже не поймет, - почему прога захлопнулось, а я хочу добиться, чтобы этот дурень получил сообщение об ошибке ввода, например "слишком большое значение"...

[puporev]

Что общего между Real и 1Е39? Используйте тип Extended.
Вот так все работает.

uses crt;
var
 r:extended;
begin
clrscr;
 repeat
 write('r=');
 readln(r);   
 if r>1E39 then  
 writeln('слишком большое значение, повторите ввод!');
 until r<=1E39;
writeln('r=',r);
readln
end.

[Stilet]

Что общего между Real и 1Е39? Используйте тип Extended.

Побойся Борланда - откуда Extended в паскале?

engeneer

Я тебе расскажу как такие чтуки проверяются: Получается строка, да да самая обычная строка, введенная в консоли, и анализируется - может ли она быть преобразована в число допустимого формата, если нет то это ошибка, и поверь мне это наилучшая "защита от дурука"

[puporev]

Не знаю что у Вас за Паскаль, у меня все нормально, посмотрите вложение.
Кстати, тот код, который я выложил, я сначала проверил в деле.

[Stilet]

Кстати, тот код, который я выложил, я сначала проверил в деле.

Я не против. Наверное у меня старый дистриб паскаля, но Экстендеды он не хавает.

[engeneer]

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

Побойся Борланда - откуда Extended в паскале?

Я тебе расскажу как такие чтуки проверяются: Получается строка, да да самая обычная строка, введенная в консоли, и анализируется - может ли она быть преобразована в число допустимого формата, если нет то это ошибка, и поверь мне это наилучшая "защита от дурука"

строки использовать не могу, об этом писал выше... про процедцры val и str я знаю...

[engeneer]

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

Что общего между Real и 1Е39? Используйте тип Extended.
Вот так все работает.

uses crt;
var
 r:extended;
begin
clrscr;
 repeat
 write('r=');
 readln(r);   
 if r>1E39 then  
 writeln('слишком большое значение, повторите ввод!');
 until r<=1E39;
writeln('r=',r);
readln
end.

в том-то и дело, что общего между 10Е40 и типом real ничего нет, но "дурак" ведь этого не знает...
кроме того, представим, что используется тип extended... а если дурак в переменную extended введет 10Е5000? опять вылет хз по каким причинам!

[Serge_Bliznykov]

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

а если дурак в переменную extended введет 10Е5000?

engeneer, Вы зря не хотите послушать то, что Вам говорят умные и, главное, опытные люди!
Поймите, защитить от ввода неверного значения на этапе readln(r); (если r : real / double / extended/ integer ...) НЕЛЬЗЯ!!!
Потому как дурак туда легко может написать вместо числа просто "Ку-ку" - и вы опять получите ошибку. Причём ошибку выдаст именно Паскаль! Единственный, гарантированный, удобный, мощный способ проверки - это вводить строку и потом её анализировать/конвертировать/проверять и т.д. и т.п.
Более того, можно будет сказать:- Уважаемый пользователь, введённая Вами строка: Ку-Ку не является допустимым числовым значением! Введите число от ... до ....)
Всё сказанное прошу расценивать как моё личное мнение (IMHO). Удачи!