Задана строка символов, состоящая из букв, цифр, запятых, точек,
знаков “+” и “-“, открывающей и закрывающей скобок. Выделить подстроку,
соответствующую вещественному числу с плавающей точкой (т.е. в виде –0.00E-
00).
Подскажите,как это сделать?
сходу вот такой кошмарик получился:
program podstroka;
var s,pods:string;
i:integer;
done:boolean;
procedure ciferki(const s: string; var pods: string; var i: integer);
begin
while (s[i] in ['0'..'9']) and (i<=length(s)) do
begin
pods:=pods+s[i];
inc(i);
end;
end;
begin
writeln('input string?');
readln(s);
i:=1;
done:=false;
while not(done) and (i<=length(s)) do
begin
pods:='';
while (not(s[i] in ['-','0'..'9'])) and (i<=length(s)) do
inc(i);
if s[i]='-' then
begin
pods:=pods+s[i];
inc(i);
end;
if (i<=length(s)) then
if not(s[i] in ['0'..'9']) then
continue;
ciferki(s,pods,i);
if s[i]<>'.' then
continue;
pods:=pods+s[i];
inc(i);
if not(s[i] in ['0'..'9'])then
continue;
ciferki(s,pods,i);
if s[i]<>'E' then
continue;
pods:=pods+s[i];
inc(i);
if (s[i]<>'+') and (s[i]<>'-') then
continue;
pods:=pods+s[i];
inc(i);
if not(s[i] in ['0'..'9'])then
continue;
ciferki(s,pods,i);
done:=true;
end;
if done then
writeln(pods);
readln;
end.
Ну, без Continue получается гораздо больший "кошмарик":
program podstroka;(я немного разгрузил программу, добавив функцию next, но это - капля в море...)
var
s,pods:string;
i:integer;
done:boolean;
function next(var i: integer): integer;
begin
next := i;
inc(i);
end;
procedure ciferki(const s: string; var pods: string; var i: integer);
begin
while (s[i] in ['0'..'9']) and (i<=length(s)) do
begin
pods:=pods+s[i];
inc(i);
end;
end;
begin
(*
writeln('input string?');
readln(s);
*)
s := '(12.2E-12 + A)';
i:=1;
done:=false;
while not(done) and (i<=length(s)) do begin
pods:='';
while (not(s[i] in ['-','0'..'9'])) and (i<=length(s)) do inc(i);
if s[i]='-' then begin
pods:=pods+s[i];
inc(i);
end;
if not((i<=length(s)) and (not(s[i] in ['0'..'9']))) then begin
ciferki(s,pods,i);
if s[i] = '.' then begin
pods:=pods+s[next(i)];
if (s[i] in ['0'..'9']) then begin
ciferki(s,pods,i);
if s[i] = 'E' then begin
pods:=pods+s[next(i)];
if not ((s[i]<>'+') and (s[i]<>'-')) then begin
pods:=pods+s[next(i)];
if (s[i] in ['0'..'9']) then begin
ciferki(s,pods,i);
done:=true;
end
end;
end;
end;
end;
end;
end;
if done then
writeln(pods);
readln;
end.
да не, так кошмарик меньший, но непринципиально меньший....
читается легче.
ожидала кучу удивленных смайликов и программу в 2 строчки...
потому что у меня стойкое ощущение, что какое-то простое решение упускаю
Вольво, а как тебе пример "12.12.2E-12"?
В принципе, вот ЭТО тоже вариант:
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.
если нужно соответствие маске - то не вариант....
попробуй 111111111111111111fkjfl2.2E+7
если все, что допустимо для val - другое дело....
Ждем ответа автора...
Всем спасибо.Буду разбираться.
И с Новым годом вас всех!!!