VPF::[Pascal]можно ли это назвать алгоритмом

Sliva

Дата 11.3.2008, 16:18 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 4.5.2006

Репутация: нет
Всего: нет

Добрый день! Помогите решить такую задачку, пожалуйста. Не знаю можно ли это назвать алгоритмом, но... вобщем я запуталась smile

Для вас, наверное, это будут семечки.

Есть динамический массив типа стринг, содержащий повторяющиеся данные, причем разновидностей этих данныхне так много - в одном случае-3(для одного файла), в другом - 5 (для другого). Я их считываю из файла и перевожу в массивы. Вобщем данные в окончательном виде представлены так:
f1:
['12', '01', '01', '01','01', '12', ....., '00', '12'...]
f2:
[12', '01', '01', '55', '01','01', '55', '12', .....,'55', '00', '12', '89', '89'...]

А мне надо теперь сделать так, чтобы эти массивы выглядели как 2 массива, в одном - в единичном варианте данные, а во втором - количество встреч их в массиве:
Т.е. для f1:
['00', '01', '12']
[1, 20, 15]

Для f2:
['00', '01', '12', '55', '89']
[2, 15, 32, 8, 20]

Помогите, пожалуйста или подкиньте идею. Что-то я туплю.

Akina

Дата 11.3.2008, 16:35 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454

Называется это сортировка подсчетом. Впрочем, сортировка не нужна, нужен только подсчет.

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

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Sliva

Дата 11.3.2008, 16:48 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 4.5.2006

Репутация: нет
Всего: нет

Код


 SetLength(masFilCount, kol);
 SetLength(masFil, kol);

 //masFil[i]:=tempFilial[0];
// masFilCount[i]:=c;

 for l:=1 to kol-1 do
//   for k:=1 to kol-1 do
   begin
   cur:=tempFilial[l-1];
   if tempFilial[l]=cur then
      begin
          masFilcount[l-1]:=c+1;
      end
      else begin
          //i:=i+1;
          masFil[l]:=tempFilial[l];
          masFil[l-1]:=cur;
          masFilcount[l]:=1;
          masFilcount[l-1]:=1;
      end;
 //    if tempFilial[k]<>helpMas[l] then

   end;

Но не получается :(

Это сообщение отредактировал(а) Rodman - 11.3.2008, 17:39

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »