Работа с текстом в Pascal

[Alexsssandr]

Дан текст. Найти наибольшее количество идущих подряд цифр.

Я написал программу только она выводит первое значение а не максимальное количество идущих подряд.Не могу найти что ни так:

var
s:string;
i,j,b,g,a:integer;

begin
 b:=0; j:=0;a:=0;
read(s);
 for i:=1 to length(s) do begin
    if (s[i]='0')or (s[i]='1')or (s[i]='2')or (s[i]='3')or (s[i]='4')or (s[i]='5')or (s[i]='6')or (s[i]='7')or (s[i]='8')or (s[i]='9') then inc(b)
Else
  begin
    inc(j);
    If a<b then a:=b;
    b:=0;
  end;
End;

readln;
Writeln(a);
readln;

[RUSt88]

читаешь первый символ, проверяешь цифра или нет, сравниваешь со вторым, если одинаковы, включаем счетчик (inc(k) к примеру), сравниваем с третьим, если не то, пишем в массив значение счетчика, обнуляем его, и по новой
потом в массиве находим максимальный элемент, вот и всё

[Lemo]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

 var
 st:string;
 a,i,count:integer;

begin
  count:=0;
  a:=0;
  st:='I li123ke De34556lphi so m13333331uch.';

  for I := 1 to Length(st) do
    begin
      if (st[i] in ['0'..'9']) then
        begin
          inc(count);



        end
      else
       begin

         if count>a then a:=count;

          count:=0;
       end;


    end;
   writeLn('Count : ', a);
    readln;

end.

[Serge_Bliznykov]

можно вот так:

{Дан текст. Найти наибольшее количество идущих подряд цифр. }
var
  s:string;
  i, CurLen, MaxI, MaxLen : integer;

begin
  WriteLn('Vvedite striku: ');
  readln(s);

  s := s + '*'; {это чтобы обработать и тот случай, 
                когда строка заканчивается цифрами}
  CurLen := 0;
  MaxLen := 0;
  for i:=1 to length(s) do
    if (s[i] in ['0'..'9']) then 
      inc(CurLen)
    else begin
      if CurLen>MaxLen then begin
        MaxLen := CurLen;
        MaxI := i - CurLen;
      end;
      CurLen := 0;        
    end;

  Writeln('Maximalno cifr = ', MaxLen, ' v stroke s pozicii ',MaxI);
  readln; 
end.

[Indian]

Другой вариант:

Var 
  s: string;
  i,len,max: integer;

Begin
  len := 0;
  max := 0;
  read(s);
  
  For i:=1 To length(s) Do
    Begin
      If (s[i]>='0') And (s[i]<='9') Then 
		inc(len)
      Else  
		len := 0;
		
      If len>max Then max := len;

    End;

  Writeln(max);
  readln;
End.

Дело в том, что если макс. число цифр стоит в конце, напр.: 345345sdfgsdf35634534563 ,то присвоение max не выполнится.

If (s[i]>='0') And (s[i]<='9') Then inc(len)
      Else
        Begin
          If len>max Then max := len;
          len := 0;
        End;

Так как последний символ - цифра.

[fenix-elite]

Вот мой вариант

var
 s:string;
 i,m1,m2:integer;

begin
 writeln('Enter string');
 readln(s);
 s:=s+'-';

 for i:=1 to length(s) do begin
  if (ord(s[i])>=47)and(ord(s[i])<=57) then
   inc(m1)
    else begin
     if m1>m2 then
      m2:=m1;
     m1:=0;
    end;
 end;
 writeln('samaya dlinnaya posledovatelnost iz cifr = ',m2);
 readln;
 end.

[fenix-elite]

Serge_Bliznykov, ооо мы с вами почти одинакого сделали )) Интересно как еще сделать обработку, если последний символ в строке - цифра? Кроме добавления любого символа в конец?

[Serge_Bliznykov]

Интересно как еще сделать обработку, если последний символ в строке - цифра? Кроме добавления любого символа в конец?

да элементарно.
после выхода из цикла проверять счётчик на больше максима.
например, в вашем коде:

for i:=1 to length(s) do begin
  if (s[i]>='0')and(s[i]<='9') then
   inc(m1)
    else begin
     if m1>m2 then
      m2:=m1;
     m1:=0;
    end;
 end;
 if m1>m2 then
      m2:=m1;

p.s. а вот коды вместо '0' и '9' Вы использовали СОВЕРШЕННО ЗРЯ! Это ровным счётом ничего не даёт, кроме затуманивания алгоритма, лишний преобразований данных (операция ORD()) (я уже не говорю о том, что так проще ошибиться!!! - ЧТО ВЫ И СДЕЛАЛИ!!!!) короче, минусов много - плюсов - ни одного!
код 47 - это символ '/'
попробуйте Ваш код проверить на строчке s12d////////99