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

[misher]

Не могу понять условие задачи, ну т.е. понять задание. Распишите понятно, если кто-то разберет...

Разработать программу решения задачи, в которой подсчитать кол-во символов в самой короткой группе, в строке, состоящей из групп нулей и единиц. Исходные данные вводятся с клавиатуры...

[Niro]

Строка состоит из слов - групп символов. Определить длину самого короткого слова (группы символов).
Например,

"1111000 010 10010 1010"

самая коротакая группа символов -

"010"

P.S. По крайней мере я так понимаю это задание

[Serge_Bliznykov]

скорее всего, раз не сказано, то группы не разделены ничем (накаких пробелов в строке нет). группой является набор одинаковых символов, расположенных подряд.
например, если дана строка:
1111000011100000011111
то самой короткой будет группа из 3-х единиц, расположенная с 9й позиции


в коде на Паскале решение может выглядеть, например, так:

var i, minLen, ind, c : integer;
  s : string;
begin
  readLn(s);
  if length(s)<1 then begin WriteLn('@Empty string'); Halt(1) end;
  minLen:= Length(s); ind:=1;
  c:=1;
  for i:=2 to length(s) do
     if s[i]=s[i-1]
       then c:=c+1
       else begin
          if c<minLen then
                begin minLen:=c; ind:=i-minLen; end;
          c:=1;
       end;

  if c<minLen then
           begin minLen:=c; ind:=length(s)-minLen+1; end;
  WriteLn('shortest group length =',minLen,'  index = ',ind);
  readln
end.

[misher]

Нужно как написал Niro. Помогите, с кодом, сам даже не представляю варианта решения, ну или хотя бы толкните на мысль с какими процедурами работать...

[Serge_Bliznykov]

ну или хотя бы толкните на мысль с какими процедурами работать...

какие там процедуры?! Цикл по всем элементам строки. До пробела. Считаете количество элементов в группе. Ищите минимум этого значения. Всё.

берите мой код выше, заменяйте условие подсчёта слов (у меня текущий символ не равен предыдущему, у вас должно быть - текущий символ равен пробелу).
и всё. Программа готова.

[Mad_Cat]

var s:string;max:integer;
begin
readln(s);
while pos('  ',s)<>0 do delete(s,pos('  ',s),1);
s:=trim(s)+' ';
max:=length(s);
while length(s)>0 do
begin
if length(copy (s,1,pos(' ',s)))<max then max:=length(copy (s,1,pos(' ',s)));
delete(s,1,pos(' ',s));
end;
writeln(max);
end.

p.s. писал прям тут могут быть ошибки

[Serge_Bliznykov]

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

delete(s,1,pos(' ',s));

ну, не очень красивое и эффективное решение - зачем удаление подстрок в строке там, где оно не нужно?! (Pos внутри себя содержит тот же цикл с перебором символов строки, если что, поэтому выигрыша в эффективности никакого не будет).

Ну а так, для успешной сдачи учебного задания вполне себе приемлимое решение...