| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

массив [D6, XP]

Quart ©   (2007-11-27 12:15:00) 

помогите, пожалуйста, с детской задачей:
есть массив, состоящий из элементов:
245
245
404
523
404
нужно подсчитать какое кол-во раз встречается каждый элемент

---

@!!ex   (2007-11-27 16:30:00) [1]

Студент? Лаба? Списки, динамические массивы не знаем?
если да, то препод примет такое(считаем, что там только не отрицательные числа, медленно, но без лишних структур):

var
 NUmbers:array[0..4] of integer;
 Index,I:integer;
 CUrrent:integer;
 Count:integer;
begin
 for INdex:=0 to 4 do
   if NUmbers[Index]>-1 then begin
     Count:=0;
     Current:=Numbers[Index];
     for I:=Index to 4 do
       if Numbers[I]=Current then begin
         inc(Count);
         Numbers[I]:=-1;
       end;
     Writeln('Number:',Current,' Count:',Count);
   end;
end;


---

Dennis I. Komarov   (2007-11-27 12:49:00) [2]

> [3] Quart   (27.11.07 12:28)

Ты пробуй, а что не получится в справке почитаешь.
А потом уж сюда

---

Leonid Troyanovsky   (2007-11-27 12:45:00) [3]

> Quart   (27.11.07 12:15)  

> нужно подсчитать какое кол-во раз встречается каждый элемент

245, 404 - 2 раза.
Остальные - 1.

--
Regards, LVT.

---

Quart   (2007-11-27 12:28:00) [4]

to clickmaker
а можно пример, а то я с Tlist никогда не работал

---

Denis__   (2007-11-27 12:17:00) [5]

Чем смогу - помогу. Задавай вопросы.

---

clickmaker   (2007-11-27 12:17:00) [6]

самое простое - завести TList, туда записывать структуры типа
record
 Number: integer;
 RepeatCount: integer;
end;
при прогоне по массиву, искать число в List, если есть, Inc(RepeatCount), если нет - добавлять

---

Наверх