проверка типа переменной Опции

[BRS]

Вобщем то только начинаю общаться с паскалем и никак не могу найти решение подобной простой задачи... Опишу на примере:

Пользователь вводит что либо, записываем в А (какого типа должо быть А?)
Далее если пользователь ввел цело число - B := A (B - integer)...

Как это сделать?

[Altair]

Ну пользователь может ввести любой тип, например:

Код

var
a:integer;
b:char;
c:string;
begin
readln(a); {ввод целого числа}
readln(b); {ввод символа}
readln(c); {ввод строки}
end.

B := A (B - integer)...

A тоже должно быть целым.

[BRS]

Задача какраз в том чтобы проверить что вводит пользователь

напирмер - если ввел integer - все ок, а в противном случае - попросить повторить ввод

[Ozzя]

Вводишь как строку, анализируешь её на предмет недопустиых символов,
далее идет проверка:
1 символ - byte или char;
2 символа - integer или word;
4 символа - longint

Отделить integer от word'а
можно так попробовать
-32768<integer<32767
0<word<65535

длиннее + есть точка - real
real 6 байт
single 4 байт
double 8 байт
extended 10 байт
comp 8 байт
Single от longint
отличается точкой и т.д.


ну и затем преобразуешь val'ом в число
Первый старт дан, если будут вопросы, задавай

[BRS]

что то я плохо понял

например пользователь вводит 123a, то это чтож? лонгинт?

не совсем понятно - можешь на примере?

если пользователь вводит целое число на интервале 1-20 - продолжить программу - в противном случае - повторить...

Добавлено: (13.09.04 6:06)
так же не понял как из строики потом число сделать
вобщем плиз пример мой кто нить накодьте...

[Ozzя]

что то я плохо понял

например пользователь вводит 123a, то это чтож? лонгинт?

несовсем понятно - можешь на примере?

если пользователь вводит целое число на интервале 1-20 - продолжить программу - в противном случае - повторить...

Нет это ошибка

Тебе же проще надо! НЕ проверятьк ккакому типу относится введенное число, а вот ТАК:

Код

var a:integer;
begin

 repeat
   read(a);
 until (a<20) and (a>0);
end.

Я правильно понял?

Сообщение отредактировано: APAL - 13.09.2004 13:25

[Бродяжник]

Если задача стоит так - ввести с клавиатуры целое число от 1 до 20, и не дать ввести ничего другого, то:
Для ввода использовать строковую переменную.
Затем после ввода перебрать в цикле все символы введенной строки. Если среди них встретилось что-то, кроме цифр 0-9, значит, повторить ввод. Если ничего левого нет, тогда преобразуем строку в целое число с помощью процедуры Val (параметры наизусть не помню). Полученное целое число проверяем на диапазон 1-20. Если не попадает, значит, повторяем ввод. И так до упора.

Сообщение отредактировано: Бродяжник - 13.09.2004 20:32

[APAL]

И зачем такие сложности?
Не проще ли сразу попытаться перевести строку в число и проверять возвращаемый результат по IOResult?

[Бродяжник]

APAL
всегда приятно узнать что-нибудь полезное... спасибо...

[Guest]

2 Оззя
+ чтоб это было целое число

2 Апал
а поподробнее плиз? )))

[APAL]

Оказалось, что все даже проще чем я думал
IOResult не надо использовать.
В процедуре VAL встроена своя поверка на ошибку преобразования:

Код

Var
 St : String;
 ii : Integer;
 Code : Integer;

Begin
 Write('input: ');
 Readln(st);
Val(st, ii, Code);
If Code<>0 Then WriteLn('Error : ', Code)
           Else WriteLn('Chislo = ', ii);
End.

А дальше только оформить повтор ввода если ошибка и проверку на диапазон.
If (ii>1) and (ii<20) then ....

[Guest]

А можно ли как нибудь отключить на клавиатуре клавиши?
Например чтоб в процессе работы программы работали только кнопки 1-9 и enter?

[Ozzя]

Примерно так

Код

k:=readkey;
if (k>chr(1)) and (k<chr(9)) or (k=#13)) then
 че-та делаешь
else
 ниче не делаешь

Порядок and и or не проверЯл

[Guest]

а как зделать чтоб процедура работала всю программу?
чтобы походу работы проги нажатие других клавиш не давало результата?

[APAL]

А можно ли как нибудь отключить на клавиатуре клавиши?
Например чтоб в процессе работы программы работали только кнопки 1-9 и enter?

Глобальный подход к задаче... :D

[Guest]

Ага ) все - пошел регистрироваться ) а то не дело это )

господа!!! хелп!!! как????

[BRS]

зарегился :D

[APAL]

а как зделать чтоб процедура работала всю программу?
чтобы походу работы проги нажатие других клавиш не давало результата?

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

Но проще сделать в самой программе обработку.
Например функцию,

Код

Function GetKey : Char;
Var Ch : Char;
Begin
Repeat
 Ch:=ReadKey;
Until ((Ch>'0') and (Ch<'9')) or (Ch=#13);
GetKey:=Ch;
End;

[BRS]

тоесть перед началом работы основных процедур вписываю подобную - и она работает в течении всей программы?

[Altair]

чтобы походу работы проги нажатие других клавиш не давало результата?

Ну это сложный резидент писать надо, так что тебе это не надо!
То есть сложный, потому что нажатия CTRL+ALT+DEL только я могу заблокировать ;)
(может еще кто может? ) ;)