Как научить отличать цифру от буквы, Нужно чтобы прога ругалась Опции

[Борец с Паскалем]

Привет!

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

Помогите а очень надо

[Lapp]

Один из вариантов - вот так:

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

Либо можешь написать свою функцию вместо ReadLn (или Read) со всеми необходимыми возможностями. Например, на основе ReadKey и KeyPressed.

[Борец с Паскалем]

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

[Lapp]

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

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

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

[Client]

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

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

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

[Lapp]

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

Спасибо

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

[Гость]

Как что значит не пашет!

Все очень просто берем код вставляем его в чистый проект запускаем. Видим черный экран - потому как сразу нужно ввести значение для переменной (тут претензий нет).Вводим вместо циферки буковку и вылетаем - ибо как гласит компилятор не гоже буквы пихать в числовые переменные и иже с ним.

[volvo]

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

В 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 и точку. Если интересно, то могу поискать

Сообщение отредактировано: Client - 16.11.2007 18:30

[Гость]

Lapp вариант с IOresult просто шикарен!

Код

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

А как сдесь привинтить человеческий голос. Чтоб если ошибка то выходило сообщение что нужно ввести правильно
Я вчера весь день бился но так и не смог IF привинтить. Подсобите люди добрые

[Client]

if IOresult<>0 then Writeln(' Введите Число');

[Lapp]

вариант с 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]

а можешь показать как бы ты сам сделал (даже для японцев)?