Выделить подстроку, которая соответствует записи вещественного числа

@Trance · Регистрация: 13.06.2012

Author24 — интернет-сервис помощи студентам

Кто может решите, зараннее спасибо))
Дана строка символов, состоящая из букв, цифр, запятых, точек, знаков «+» и «–». Выделить подстроку, которая соответствует записи вещественного числа с плавающей точкой.

@КонецСвета · 16.06.2012, 19:06

выделение подстроки начинается со знака ('+' или '-'), учтите при вводе

Pascal

uses crt;
var s,sl: string;
    i,j: integer;
begin
write('s=');
readln(s); sl:='';
for i:=1 to length(s) do
    if (s[i]='-') or (s[i]='+') then
       begin
       sl:=sl+s[i];
       j:=i+1;
       while s[j] in ['0','1'..'8','9','.'] do
             begin
             sl:=sl+s[j];
             inc(j);
             end;
       if pos('.',sl)<>0 then writeln(sl);
       sl:='';
       end;
end.

@Trance · 16.06.2012, 23:39 **[ТС]**

спасибо)))

@Trance 0 / 0 / 1 Регистрация: 13.06.2012 Сообщений: 76
		1
	Выделить подстроку, которая соответствует записи вещественного числа 16.06.2012, 18:56. Показов 1210. Ответов 2 Метки нет (Все метки) Кто может решите, зараннее спасибо)) Дана строка символов, состоящая из букв, цифр, запятых, точек, знаков «+» и «–». Выделить подстроку, которая соответствует записи вещественного числа с плавающей точкой. 0

@Trance 0 / 0 / 1 Регистрация: 13.06.2012 Сообщений: 76
	16.06.2012, 23:39 [ТС]	3
	спасибо))) 0

Выделить подстроку, которая соответствует записи вещественного числа

Решение