Является ли заданная строка правильной записью вещественного числа с возможным знаком и десятичной точкой

[Banny]

Определите, является ли заданная строка правильной записью вещественного числа с возможным знаком и десятичной точкой.


Заранее большое вам Спасибо!

[CrazyRabbit]

если я правильно понял, то 3 решается так

var n:real;
s:string;
w:integer;
 begin
  readln(s);
   val(s,n,w);
    if w=0 then
     writeln('Yes')
      else
       writeln('No');
end.

[Banny]

Большое спасибо.

[Banny]

А не подскажите, возможен ли вариант решения без оператора "Val", если да, то как именно это сделать?

[CrazyRabbit]

можно попробовать проверять каждый символ, является ли он цифрой, при этом учесть возможную постановку десятичной точки и знака минус.

[Banny]

Не могли бы вы продемонстрировать это на языке Паскаля, если вас не затруднит....

[CrazyRabbit]

держи

var s:string;
n,i,w,kol,j:integer;
begin
 readln(s);
 if (s[1]='-')or(s[1]='+')then
  j:=2
   else
    j:=1;
  for i:=j to length(s) do
   begin
    if ((ord(s[i])<=48)or(ord(s[i])>=57))then
     if (s[i]='.')and((ord(s[i-1])<48)or(ord(s[i-1])>57))then
	begin
	 writeln('No');
	  halt;
	end
	 else
	 if ((ord(s[i])<48)or(ord(s[i])>57))and(s[i]<>'.') then
	  begin
	   writeln('No');
	    halt;
	  end
	   else
	  if (s[i]='.')and(kol=0)then
	    inc(kol)
	     else
	      if (s[i]='.')and(kol=1) then
	      begin
	       writeln('No');
		halt;
	      end;
     end;
writeln('Yes');
end.

[Banny]

Очень, очень большое спасибо!)