Строки.Плавающая точка., Выделить подстроку, соответствующую вещественному числу с плавающей Опции

[Stefan]

Задана строка символов, состоящая из букв, цифр, запятых, точек,
знаков “+” и “-“, открывающей и закрывающей скобок. Выделить подстроку,
соответствующую вещественному числу с плавающей точкой (т.е. в виде –0.00E-
00).

Подскажите,как это сделать?

[volvo]

В принципе, вот ЭТО тоже вариант:

var
  s: string;
  start, len: integer;
  i, j, err: integer;
  f: real;
begin
  (*
    writeln('input string?');
    readln(s);
  *)
  s := '(12.2E-12 + A)';
  len := 0;
  for i := 1 to length(s) do begin
    for j := i to length(s) do begin

      val(copy(s, i, j - i + 1), f, err);
      if err = 0 then begin
        if j - i + 1 > len then begin
          start := i; len := j - i + 1;
        end
      end;

    end;
  end;
  writeln(copy(s, start, len));
end.

2 Michael_Rybak: Вот как раз новый-то вариант и обрабатывает такие примеры