Помощь - Поиск - Пользователи - Календарь
Полная версия: Проверка строки->числа на Max значение
Форум «Всё о Паскале» > Pascal, Object Pascal > Теоретические вопросы
>hamka<
Требуется проверить число на max значение longint'а (т.е. число не должно выходить за пределы типа). Но изначально число вводится как строка, и при переводе в число ( если оно > max) происходит "вылет" из программы. Каким образом лучше проверить введенную строчку пользователем на longint? Может алгоритм какой есть? Я пробывала прямо проверять по байтам, но получается какой-то маразм и оч. увеличивается код.
volvo
Ну, если в строке гарантированно содержатся только символы '0' .. '9', то можно попробовать сделать так:
Код
var s: string;
 is_over: boolean;
begin
 readln(s);

 if length(s) = 9 then
   is_over := (s > '2147483647')
 else is_over := (length(s) > 9);

 { здесь is_over показывает, произойдет ли переполнение }
 writeln('overflow: ', is_over);
end.
>hamka<
Дело в том, что в строке может содержаться, что угодно, и цифры, и буквы и другие символы.
Михаил Густокашин
тогда можно засовывать в extended и при превышении константы maxlongint ругаться.
volvo
Цитата(>hamka< @ 24.02.05 11:45)
Но изначально число вводится как строка, и при переводе в число ( если оно > max) происходит "вылет" из программы.

Тогда вопрос поставлен неправильно... И ничего другого не остается, как проверять строку посимвольно... Как только встречаем запрещенный символ - значит ошибка, а уже потом, когда ТОЛЬКО цифры в строке - проверяем на переполнение.

Хотя можно написать свою процедуру ввода строки, в которой просто не реагировать на запрещенные символы...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.