Форматирование ввода-вывода, как ограничить пользователя Опции

[Rishat]

Кто знает как можно ограничить пользователя при вводе данных - я имею ввиду есливводимое данное должно быть целочисленное -чтобы он ... не мог
там запятую или точку ввести - чтоб она у него не печаталась а токмо
цифры от 0...9 и длинну скажем только 4 символа
Я такую штуку наблюдал в калькуляторе винды - там буквы не печатаются
Заранее спасибо

Сообщение отредактировано: Rishat - 18.04.2004 15:15

[Rishat]

</span><span style='font-family:arial'>Большое Спасибо всем особливо Атосу и
Олегу -вот что я получил в результате

Код

program idea2;
uses crt;
var
 a,b:integer;
 r:integer;
function reading(var r:integer):string;
var i:byte;
  ch:char;
  str:string[4];
begin
i:=0;
str:='';
repeat
ch:=readkey;
if (ord(ch)>=45) and (ord(ch)<=58) then
   begin
   str:=str+ch;
   i:=length(str);
   write(ch);
   end;
until (i=4);
writeln;
val(str,r,b);
end;
begin
clrscr;
write(' vvedi chislo');
reading(r);
writeln;
writeln('vi vveli',r);
readln;
end.

Сообщение отредактировано: Rishat - 23.04.2004 16:02