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

@ChUv@chok · Регистрация: 26.03.2012

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

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

@Mawrat · 02.05.2012, 08:36

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const
  D = ['0', '1'];
var
  S : String;
  i, Len, Cnt, CntRes : Integer;
begin
  S := Memo1.Text;
  Memo2.Clear;
 
  Len := Length(S);
  CntRes := 0;
  Cnt := 0;
  for i := 1 to Len do begin
    //Пропускаем символы, не принадлежащие множеству D.
    if not (S[i] in D) then Continue;
    //Подсчёт элементов в группе.
    Inc(Cnt);
    //Отслеживаем конец очередной группы.
    if (i = Len) or (S[i] <> S[i + 1]) then begin
      //Учитываем количество символов в группах единиц с нечётным
      //количеством символов.
      if (S[i] = '1') and (Cnt mod 2 <> 0) then begin
        Inc(CntRes, Cnt); //Это тоже самое что и: CntRes := CntRes + Cnt;
        Memo2.Lines.Add( Copy(S, i - Cnt + 1, Cnt) ); //Это необязательная строка.
      end;
      Cnt := 0; //Сброс счётчика.
    end;
  end;
 
  //Ответ.
  Memo2.Lines.Add(
    'Общее количество символов в группах с нечётным количеством единиц: ' + IntToStr(CntRes)
  );
end;

@Bely · 19.12.2012, 20:39

а почему memo тут учавствует? Tcombobox должна быть не т чтоль?у меня такая же лаба,но у меня не с мемо.

@ChUv@chok -7 / 0 / 0 Регистрация: 26.03.2012 Сообщений: 25
		1
	Дана строка, состоящая из групп нулей и единиц. Подсчитать количество единиц в группах с нечетным количеством 01.05.2012, 23:41. Показов 3736. Ответов 2 Метки нет (Все метки) Дана строка, состоящая из групп нулей и единиц. Подсчитать количество единиц в группах с нечетным количеством символов. 0

@Bely 22 / 4 / 0 Регистрация: 08.11.2012 Сообщений: 97 Записей в блоге: 1
	19.12.2012, 20:39	3
	а почему memo тут учавствует? Tcombobox должна быть не т чтоль?у меня такая же лаба,но у меня не с мемо. 0

Опции темы

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

Решение