Помощь - Поиск - Пользователи - Календарь
Полная версия: Как научить отличать цифру от буквы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Борец с Паскалем
Привет!

У меня вот проблема такая. Мне нужно научить программку отличать цифру от буквы. К примеру при попытке присвоить числовой переменной символьное значение программа вылетает потому как переменная не того типа.
Вот мне и нужно как нибудь реализовать эту возможность. Чтоб если пользователь там где надо ввести цифру, случайно или намеренно ввел букву программа не вываливалась а вежливо просила не шалить.

Помогите а очень надо
Lapp
Один из вариантов - вот так:
var
a:integer;
begin
repeat
{$I-}ReadLn(a);{$I+}
until IOResult=0
end.


Либо можешь написать свою функцию вместо ReadLn (или Read) со всеми необходимыми возможностями. Например, на основе ReadKey и KeyPressed.
Борец с Паскалем
Да нет так не пашет
Lapp
Цитата(Борец с Паскалем @ 16.11.2007 4:51) *

Да нет так не пашет

И что она, по-твоему, не пашет?
Слушай, если ты о чем-то говоришь, говори КОНКРЕТНО.
И если она (моя программа) что-то не делает, что он должна (по-твоему) делать - напиши, ЧТО ИМЕННО.

Крылова читал - про мартышку и очки? Перечитай..
Пора уже банить за голословные обвинения.. Стараешься, отвечаешь, пишешь - а в ответ два слова: "не пашет"! Из которых следует только то, что ты даже не понял, как с этим обращаться..
Client
Цитата
И что она, по-твоему, не пашет?
Слушай, если ты о чем-то говоришь, говори КОНКРЕТНО.
И если она (моя программа) что-то не делает, что он должна (по-твоему) делать - напиши, ЧТО ИМЕННО.

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

эх... Как я тебя понимаю,хоть еще и новичок
Lapp
Цитата(Client @ 16.11.2007 6:45) *

эх... Как я тебя понимаю,хоть еще и новичок
Спасибо smile.gif

Есть еще один способ - может быть, самый оптимальный в твоем случае.
Производи ввод в строковую переменную, а потом воспользуйся процедурой Val для преобразования в число. В Val есть диагностика ошибок, но там, если мне не изменяет память, есть свои проблемы..
Гость
Как что значит не пашет!

Все очень просто берем код вставляем его в чистый проект запускаем. Видим черный экран - потому как сразу нужно ввести значение для переменной (тут претензий нет).Вводим вместо циферки буковку и вылетаем - ибо как гласит компилятор не гоже буквы пихать в числовые переменные и иже с ним.
volvo
Гость
Вот и приведи тот код, который у тебя получился (ПОЛНОСТЬЮ!, кто там тебя знает, что именно ты называешь пустым проектом), то, что ты вводишь (тоже полностью), и дай примеры БЕЗошибочного ввода.

Цитата(Lapp)
В Val есть диагностика ошибок, но там, если мне не изменяет память, есть свои проблемы..
Есть... Там проблемы с переполнением. Не отслеживается:
var
i, code: integer;
s: string;
begin
s := '40000';
val(s, i, code);
writeln('i = ', i, ' code = ', code); { <-- Чему равен код ошибки? А само число? }
end.


Client
а можно сделать (но не очень советую) как я недавно, даже не зная про val и {$I-}
я делал через readkey и проверял на цифры, буквы,backspace и точку. Если интересно, то могу поискать
Гость
Lapp вариант с IOresult просто шикарен!

Код

var
  a:integer;
begin
  repeat
    {$I-}ReadLn(a);{$I+}
  until IOResult=0
end.


А как сдесь привинтить человеческий голос. Чтоб если ошибка то выходило сообщение что нужно ввести правильно
Я вчера весь день бился но так и не смог IF привинтить. Подсобите люди добрые
Client
if IOresult<>0 then Writeln(' Введите Число');
Lapp
Цитата(Гость @ 17.11.2007 5:58) *

вариант с IOresult просто шикарен!
Рад, что ты все-таки разобрался.

Вот вариант с выводом всяких слов:
var
a,ior:integer;
begin
Write('Веедите целое число: ');
repeat
{$I-}ReadLn(a);{$I+}
ior:=IOResult;
if ior<>0 then Write('Ошибка в записи числа. Попробуйте еще раз: ')
until ior=0;
WriteLn('Спасибо!')
end.

Обрати внимание на переприсвоение номера ошибки. Два раза вызывать IOResult на одну операцию нельзя, значение сбрасывается при вызове (это функция, а не переменная).
Client
А ведь можно и так, и не нужна проверка никакая...
Код
var
  a:integer;
begin
  repeat
    writeln(' Введите число без ошибок');
    {$I-}ReadLn(a);{$I+}
  until IOResult=0
end.
Sozialist
Client
Обычно программы делаются на "дурака", т.е. учитываются все случаи. Данный вид недопустим, т.к. существуют случаи, когда программа будет вылетать. Пусть прользуется твоей программой иностранец, что тогда?
Client
а можешь показать как бы ты сам сделал (даже для японцев)?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.