Дана строка, состоящая из групп нулей и единиц. Подсчитать количество символов в самой длинной группе

@Tof_y · Регистрация: 06.12.2014

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

Дана строка, состоящая из групп нулей и единиц. Подсчитать количество символов в самой длинной группе.
HELP

Verevkin · 15.05.2015, 20:34

Delphi

function stat(const s: string): integer;
var
  idx, cnt0, cnt1, max0, max1: integer;
  last: char;
begin
  last:= #0;
  max0:= 0;
  max1:= 0;
  
  for idx:= 1 to length(s) do
    begin
      if s[idx] <> last
        then begin
               last:= s[idx];
               cnt0:= 0;
               cnt1:= 0;
             end;
    
      case s[idx] of
        '0': inc(cnt0);
        '1': inc(cnt1);
      else   continue;
      end; // case
      
      if max0 < cnt0
        then max0:= cnt0;
      if max1 < cnt1
        then max1:= cnt1;
    end;
 
  if max0 > max1
    then result:= max0
    else result:= max1;
end;

Ахтунг! Аттеншн! Внимание! Увага!!! SHIT-CODE detected!!! Не отлаживал, писал на заборе!

@Tof_y 1 / 1 / 0 Регистрация: 06.12.2014 Сообщений: 117
		1
	Дана строка, состоящая из групп нулей и единиц. Подсчитать количество символов в самой длинной группе 15.05.2015, 19:58. Показов 2428. Ответов 1 Метки нет (Все метки) Дана строка, состоящая из групп нулей и единиц. Подсчитать количество символов в самой длинной группе. HELP 0

Опции темы

Дана строка, состоящая из групп нулей и единиц. Подсчитать количество символов в самой длинной группе

Решение