VPF::Как научить программу отличать цифры от букв

BCworm

Дата 16.11.2007, 04:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 124
Регистрация: 23.8.2007

Репутация: нет
Всего: нет

Привет

Возникла необходимость научить программу отличать цифры от букв. К примеру при попытке ввода буквы там где необходимо ввести цифру программа вываливается потому как тип переменной не соответствует.
Помогите дельными советами и примерами кода. Мне необходимо чтобы программа ругалась на ввод буквы вместо цифры а не вываливалась с треском.

orthrus

Дата 16.11.2007, 06:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 400
Регистрация: 30.10.2007
Где: г. Усть-Илимск(Ир кутская обл.)

Репутация: нет
Всего: 16

попробуй что то типа такого:

Код


var
   s:string;
   x:integer;
   code:integer;
begin
   readln(s);
   val(s,x,code); 
   while (code<>0) do
   begin
       writeln("вы ввели что то не похожее на число:-)");
       readln(s);
       val(s,x,code); 
   end
end.

Это сообщение отредактировал(а) orthrus - 16.11.2007, 06:10

--------------------

У того, кто ничего не делает, всегда много помощников.© Л.Н. Толстой
user posted image

BCworm

Дата 16.11.2007, 08:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 124
Регистрация: 23.8.2007

Репутация: нет
Всего: нет

Спасибо большое должно помоч

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »