Дана строка. Найти группы с четным количеством символов.

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

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

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

@Mawrat · 29.04.2012, 03:41

На форму надо положить 2 TMemo и одну кнопку - TButton. Для кнопки создать обработчик события OnClick и оформить код таким образом:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const
  D = ['0', '1'];
var
  S : String;
  i, Len, Cnt : Integer;
begin
  S := Memo1.Text;
  Memo2.Clear;
  
  Len := Length(S);
  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
      //Группы с чётным числом символов записываем в Мемо2.
      if Cnt mod 2 = 0 then
        Memo2.Lines.Add( Copy(S, i - Cnt + 1, Cnt) );
      Cnt := 0; //Сброс счётчика.
    end;
  end;
end;

@ChUv@chok -7 / 0 / 0 Регистрация: 26.03.2012 Сообщений: 25
		1
	Дана строка. Найти группы с четным количеством символов. 29.04.2012, 01:05. Показов 1338. Ответов 1 Метки нет (Все метки) Дана строка, состоящая из групп нулей и единиц. Найти и вывести на экран группы с четным количеством символов. 0

Опции темы

Дана строка. Найти группы с четным количеством символов.

Решение