Версия для печати темы

Автор: Борец с Паскалем 15.11.2007 7:08

Привет!

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

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

Автор: Lapp 15.11.2007 12:59

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

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

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

Автор: Борец с Паскалем 16.11.2007 8:51

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

Автор: Lapp 16.11.2007 9:52

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

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

Автор: Client 16.11.2007 10:45

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

Автор: Lapp 16.11.2007 11:32

Спасибо

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

Автор: Гость 16.11.2007 12:22

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

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

Автор: volvo 16.11.2007 14:16

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

Есть... Там проблемы с переполнением. Не отслеживается:

var
  i, code: integer;
  s: string;
begin
  s := '40000';
  val(s, i, code);
  writeln('i = ', i, ' code = ', code); { <-- Чему равен код ошибки? А само число? }
end.

Автор: Client 16.11.2007 22:29

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

Автор: Гость 17.11.2007 9:58

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

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

Автор: Client 17.11.2007 10:22

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

Автор: Lapp 17.11.2007 10:37

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

Вот вариант с выводом всяких слов:

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 17.11.2007 18:26

А ведь можно и так, и не нужна проверка никакая...

Автор: Sozialist 17.11.2007 18:46

Client
Обычно программы делаются на "дурака", т.е. учитываются все случаи. Данный вид недопустим, т.к. существуют случаи, когда программа будет вылетать. Пусть прользуется твоей программой иностранец, что тогда?

Автор: Client 17.11.2007 19:20

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