процедура нахождения подряд идущих одинаковых элементов

@Vitek[Старший] · Регистрация: 05.04.2010

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

Помогите ребят написать процедуру "нахождения группы подряд идущих одинаковых элементов".А задание такое:"Дан целочисленный массив размера N. Назовём серией группу подряд идущих одинаковых элементов, а длиной серии – количество этих элементов. Поменять местами первую и последнюю серии массива."Заранее спасибо...

@Zabiyak · 20.05.2010, 15:18

А длина серии дана? Как без неё разделять будем?

Добавлено через 37 секунд
Вопрос снимается, сразу не врубился в условие

@Vitek[Старший] · 20.05.2010, 16:27 **[ТС]**

Delphi

procedure pr_serii(ListBox2:TlistBox);
var i,j:byte;
begin
i:=1;
 while i<=n do begin
  j:=i+1;
   while (j<=n) and (ch[i]=ch[j]) do
   inc(j);
   if j-i>1 then begin ListBox2.Items.Add('Номер позиции'+IntToStr(i)+'     '+'Элемент'+IntToStr(ch[i])+'    '+'Кол-во элементов'+IntToStr(j-i));
   i:=j;
                 end
            else inc(i);
                 end;
 
end;

я уже понял

@Vitek[Старший] 0 / 0 / 1 Регистрация: 05.04.2010 Сообщений: 16
		1
	процедура нахождения подряд идущих одинаковых элементов 19.05.2010, 17:15. Показов 1013. Ответов 2 Метки нет (Все метки) Помогите ребят написать процедуру "нахождения группы подряд идущих одинаковых элементов".А задание такое:"Дан целочисленный массив размера N. Назовём серией группу подряд идущих одинаковых элементов, а длиной серии – количество этих элементов. Поменять местами первую и последнюю серии массива."Заранее спасибо... 0

@Zabiyak КотЪ 219 / 219 / 60 Регистрация: 26.05.2009 Сообщений: 688
	20.05.2010, 15:18	2
	А длина серии дана? Как без неё разделять будем? Добавлено через 37 секунд Вопрос снимается, сразу не врубился в условие 0

Опции темы

процедура нахождения подряд идущих одинаковых элементов

Решение