(Delphi ) в строке из нулей и единиц найти самую короткую

[inmate]

Дана строка, состоящая из групп нулей и единиц. Найти и вывести на экран самую короткую группу.

[Алексей++]

inmate,

алгоритм вроде:

1) начинаешь просматривать строку с начала
2) запомнил, какой символ идёт - 0 или 1 , начал счётчик длины
3) когда цепочка окончилась - смотришь, меньше ли длина длины уже ранее найденной цепочки. Если это так - запоминаешь "координаты" этой цепи
4) продолжаешь глядеть строку , идём в пункт 2 , если строка не кончилась

[inmate]

Вот код. Но он не работает правильно.


var str:string[255];
str2:string[255];
a,b,c,i,n,min,j,k:integer;
   begin

b:=0;
a:=0;
i:=0;
min:=10;
str:=edit1.Text;
n:=Length(str);

   while i<=n do begin
   repeat
a:=a+1;
i:=i+1;
   until (str=' ') or (i>n);
   
   if (a<min) then begin
str2:='';
min:=a;
b:=i-a;
k:=i;
j:=0;
   for c:=b to i do begin
str2[j]:=str[c];
j:=j+1;
   end;
   
   end;
a:=0;
   end;
Edit2.Text:=str2;
   end;

[sss]

Код:

var 
  min, i, l: int;
          fZ: bool;
           s: string;
begin
  min = Length( s);
  l = 0;

  if ( s[0] = '0') then fZ = true else fZ = false;

  for  i := 0 to Length( s) 
  begin
    if ( s[i] = '1' and fZ = true) or ( s[i] = '0' and fZ = false) then
    begin
      if ( l < min) then min = l;
      l = 0;
      fZ = not fZ;
    end;
    l = l + 1;
  end;
end.

Вдруг что-то захотелось решить простую задачу. Только я лет 8 уже не пишу в паскаль. Поэтому явные ошибки в языке придется переделать...

[x77]

Код:

...
var
  AText: string;
  i: integer;
  AMin: integer;
  AList: TStrings;
begin
  AList := TStringList.Create;
  try
    AList.Text := StringReplace (AText, ' ', #13, [rfReplaceAll]);
    AMin := 0;
    for i := 0 to AList.Count - 1 do 
      if Length (AList [i]) < Length (AList [AMin]) then
        AMin := i;
  finally
    AList.Free;
  end;
  ShowMessage (AList [AMin]);
end;

код не тестил, бо дома живу под линухами, но смысл понятен, я думаю:

1. Все пробелы в строке меняем на Ентеры.
2. Засовываем всё в стринглист - имеем список всех групп.
3. Считаем самой короткой первую группу (т.е. нулевую)
4. В цикле сравниваем, если какая-то группа ещё меньше - делаем самой короткой её.
5. Выводим результат.