Как проверить, является ли введённый текст действительным числом, на паскале?

[Раздва]

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

[Stilet]

А процедура VAL разве не берет вещественные?
Проверяй ей. если она в третий параметр возвращает число отличное от нудя, значит введено неверно.

[Раздва]

А как быть с минусом и точкой?

[Stilet]

   var f:double; e:integer;
begin
 val('-123.2',f,e);
  { TODO -oUser -cConsole Main : Insert code here }
  write(f,e);readln;
end.

Ответ ясен?

[Раздва]

А как быть, если будет введено что-то вроде -0000 или 007?

[Chudo4258]

как, как???
вы напишите предложенный вам код и проверьте.

А как быть с минусом и точкой?

все норм. работает.

А как быть, если будет введено что-то вроде -0000 или 007?

при вводе -000 в переменную f запишется значение 0, значение е=0.
при вводе 007 в переменную f запишется значение 7, значение е=0.

[Раздва]

Сообщение от Chudo4258

как, как???
вы напишите предложенный вам код и проверьте.

все норм. работает.


при вводе -000 в переменную f запишется значение 0, значение е=0.
при вводе 007 в переменную f запишется значение 7, значение е=0.

Ну так в том-то и дело, если введено действительное число, то е=0, и тогда выводится сообщение "Da". И если введено что-то вроде 0004, то e тоже равно 0 и будит выведено сообщение "Da", но ведь запись 0004 не корректна, как быть?

Program ff;
 var  ec : Integer;
         s : String;
         r : Real;
 Begin
   Write('Vvedite stroku: ');
   Readln(s);

   val(s,r,ec);
   if (ec = 0) then Writeln('Da');

   Readln;
 End.

[Serge_Bliznykov]

но ведь запись 0004 не корректна

Это с Вашей точки зрения!
А с точки зрения математики (или ЯП) - это корректная запись.
Проверьте, например, в том же Pascal:

var r : real;
begin
  r := 00004;
 WriteLn(r:10:5);
end.

Всё равно считаете, что "запись 0004 не корректна" ?!
Ну тогда сформулируйте признаки, по которым она некорректа и проверьте их дополнительно, после VAL
например, Вы считаете, что запись действительного числа должна содержать точку В ОБЯЗАТЕЛЬНОМ порядке.
Тогда, вставьте дополнительную проверку:

if Pos('.', s)=0 then WriteLn('NET') .....