Строки

[Homee]

Подсчитать Количество Символов В Самой Длинной Группе,В Строке,Состоящей Из групп Нулей И Едениц

[denisbrain]

пример такой строки

[Serge_Bliznykov]

000011100111111

[LiuLiuJons]

Сообщение от Homee

Подсчитать Количество Символов В Самой Длинной Группе,В Строке,Состоящей Из групп Нулей И Едениц

А почему каждое слово, за исключением слова "групп", вы написали с заглавной буквы?

[Homee]

А какая разница,с большой буквы или с маленькой?!Нужна сама программа.

[Serge_Bliznykov]

А какая разница,с большой буквы или с маленькой?!Нужна сама программа.

вообще то, на подобные выпадки я обычно отвечаю:
"вам нужна, так напишите!"
ибо никакого намёка на вежливость и просьбы о помощи я в ваших постах не увидел.

ладно, ваше счастье, что сегодня Великая суббота, да и готовая программа лежала у меня в архиве...

разбирайтесь:

{
Дан массив из N целых чисел. Его значения- только нули и единицы. Найти
номер элемента, с которого начинается самая длинная последовательность
одинаковых чисел.
}

var
  i,k:integer;
  m,j:integer;
    s:string;
begin
s:='00011101101111';
{readln(s);}
Writeln(s);
  k:=1;m:=1;j:=1;
  for i := 2 to Length(s) do begin
    if s[i]=s[i-1] then  inc(k);
    if (s[i]<>s[i-1]) or (i=length(s)) then
          begin
            if k>=m then
              begin
                m:=k;
                j:=i-k;
              end;
            k:=1;
            end;
  end;

  writeln('pos=',j:4);
  readln;
end.

[whatever]

Я так смотрю, вопросов то поубавилось, по сравнению с предыдущими темами (одна, вторая)
Сам справился, или с мира по нитке?

По теме:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  s:string;
  i,max,max_tmp:integer;
begin
  readln(S);
  i:=1;
  max:=0;
  while i<=length(S) do
    begin
      if s[i]='0' then
        begin
          max_tmp:=0;
          while (i<=length(S))and(s[i]='0')do
            begin
              inc(max_tmp);
              inc(i);
            end;
          if max_tmp>max then max:=max_tmp;
        end;

      if s[i]='1' then
        begin
          max_tmp:=0;
          while (i<=length(S))and(s[i]='1')do
            begin
              inc(max_tmp);
              inc(i);
            end;
          if max_tmp>max then max:=max_tmp;
        end;
    end;
  writeln(max);
  readln
end.

Вроде рабочая, сильно не проверял.

Update: упс, опоздал...

[LiuLiuJons]

Сообщение от Homee

А какая разница,с большой буквы или с маленькой?!Нужна сама программа.

Ни ваших наработок, ни мыслей ВООБЩЕ каких либо на тему того, как это можно сделать. Только "мне нужно", "я хочу", "сделайте за меня". Ну и живите дальше, не применяя мозгов, и однажды тот, кто их имеет, оставит вас в дураках.

Большие буквы.. Это оказывается был рекламный ход, а вы молодец, сработало.

[Homee]

Какой рекламный ход.мде.вообще то я не волновался с маленькой или с большой,когда писал.