Число ли?!, проверка входных данных... Опции

[kleks]

Вообщем такая задачка: предположим мне необходимо ввести размерность матрицы MxN, 0..5 of integer, но при этом я должен проверить...1.является ли то, что я ввожу числом(в противном случае вывести сообщение ), 2.является ли оно целым и 3.входит ли оно в граници от 1..5. Последние два пункта задачки то понятны, а вот как быть с первым!? Подскажите какие-нибудь идеи...Заранее благодарен

Сообщение отредактировано: kleks - 28.09.2005 20:32

[klem4]

один из вариантов :

uses crt;
var
   s  : string;

   n,error  : integer;

Begin

   clrscr;

   write('n='); readln(s);

   val(s,n,error);

   if error <> 0 then
    writeln('ErrorPos = ',error);

   readln;

End.

число будет храниться в n, если это число 

для чисел с плавающей точкой, n ссответственно не integer, а скажем single.

Сообщение отредактировано: klem4 - 9.09.2005 18:27