массив с текстом, и действия с ним Опции

[NIKson]

Люди, помогите составить программу нахождения в произвольно заданом тексте максимальную по длине последовательность цифр (если можно с вводом исходных данных из текстового файла, и выводом туда результата работы программы)....

[klem4]

Во первых поищи по форуму и загляни в наш FAQ найдешь все что нужно
Вот тебе алгоритм :

перед началом максимальная последовательность max := ''; // пустая строка
Читаешь строку из файла, проходишь по строке, пока не наткнешься на цифру, идешь дальше пока не наткнешься на НЕ цифру , выделяешь кусок с цифрами, и сравниваешь его длинну с длинной max, если больше то записываешь в max.

примерно так :

max := '';
...

i:=1;
while(i<=length(s)) do begin
 while (not(s[i] in ['0'..'9']))and(i<=length(s)) do
   inc(i);
 if i<=length(s) then begin
   start := i;
  while(s[i] in ['0'..'9']) do
    inc(i);
  if i-start>length(max) then
   max := copy(s, start, i-start);
  end;
end;

Сообщение отредактировано: klem4 - 11.10.2005 18:51