Как научить отличать цифру от буквы, Нужно чтобы прога ругалась |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Как научить отличать цифру от буквы, Нужно чтобы прога ругалась |
Борец с Паскалем |
Сообщение
#1
|
Гость |
Привет!
У меня вот проблема такая. Мне нужно научить программку отличать цифру от буквы. К примеру при попытке присвоить числовой переменной символьное значение программа вылетает потому как переменная не того типа. Вот мне и нужно как нибудь реализовать эту возможность. Чтоб если пользователь там где надо ввести цифру, случайно или намеренно ввел букву программа не вываливалась а вежливо просила не шалить. Помогите а очень надо |
Гость |
Сообщение
#2
|
Гость |
Lapp вариант с IOresult просто шикарен!
Код var a:integer; begin repeat {$I-}ReadLn(a);{$I+} until IOResult=0 end. А как сдесь привинтить человеческий голос. Чтоб если ошибка то выходило сообщение что нужно ввести правильно Я вчера весь день бился но так и не смог IF привинтить. Подсобите люди добрые |
Текстовая версия | 28.09.2024 4:12 |