Pascal: Из массива A записать данные в массив B без повтора (вкратце)

[Cody M.]

Есть список книг. Книги находятся в массиве записей.

const
  N = 6; 
type

  book   =  record 
    author: string; 
    count: integer; 
  end; 
  Arr = array[1..N] of book;
var
  List: Arr;

Вывести на экран двух авторов, чьих книг больше всего.

Пример:

| Номер книги |  Автор  | Количество
 1             Иванов    10
 2             Иванов    5
 3             Петров    1
 4             Петров    5
 5             Петров    1
 6             Петров    1
 7             Сидоров   10

Программа должна вывести на экран:

Иванов
Сидоров

Как я думаю, нужно завести ещё один массив записей (record - uniq_author, count).
В него записать все существующие фамилии ['Иванов','Петров','Сидоров'].
После чего вписывать количество книг. И далее уже поиск максимального элеменета.
Но вот как реализовать это, я не пойму.
Заранее благодарен.

[Serge_Bliznykov]

для решения данной задачи можно придумать огромную кучку алгоритмов и методов.. какой из них конкретно использовать - это уже дело исключительно Ваше (часто это зависит от условий задачи, либо от ограничений по объёму памяти, или по быстродействию и т.д.)

Возьмём конкретно Вашу задачу. И рассмотрим алгоритм, который Вы сами и предложили.

У Вас количество книг задано N = 6.
Значит, уникальных авторов явно не может быть больше 6. Так?
Значит создаём массивчик UAthorArr : array[1..N] of uniq_author_record;
Заводим счётчик, сколько уже уникальных авторов в данном массиве: var UAthorCount;

дальше примерно так (пишу прямо здесь, без проверок, идея будет Вам ясна, а дальше Вы сами заточите под себя):

  UAthorCount := 0;
  for i:= 1 to N do begin
      uAthorIndex := 0;
      for j:=1 to UAthorCount do
          if  UAthorArr[j].uniq_author = List[i].author then  uAthorIndex := j;

      if (uAthorIndex = 0 ) then begin {не нашли автора ещё в списке} 
         inc(UAthorCount);
         UAthorArr[UAthorCount].uniq_author := List[i].author;
         UAthorArr[UAthorCount].Count := 1;      
      end
      else  {нашли уже такого автора - увеличим ему счётчик на 1} 
         UAthorArr[UAthorCount].Count := UAthorArr[UAthorCount].Count + 1;
  end;

ну, собственно, и всё. осталось отсортировать в убывающем порядке массив записей UAthorArr по полю Count и вывести первые две записи на экран.

[CepbIu]

вот как вариант сортировка методом пузырька

for i:=1 to N-1 do
for j:=i+1 to N do
if m[i]<m[j] then
begin
a:=m[i];
m[i]:=m[j];
m[j]:=a;
end;

[Serge_Bliznykov]

мне лично больше такой вариант нравится:

  {сортировка массива методом простых обменов ("пузырька") }
  for i:=1 to RazmerMassiva-1 do
    for j:=i+1 to RazmerMassiva do
      if Massiv[i] > Massiv[j]then
        begin
          msX:=Massiv[i];
          Massiv[i]:=Massiv[j];
          Massiv[j]:=msX
        end;

[Cody M.]

Ребят, вы одну и ту же сортировку предложили, только знаки разные. Есть ещё сортировка выбором, но она мне не нравится)
Serge_Bliznykov, спасибо, да я что-то зациклился, не мог сообразить как проверить, есть ли определённый элемент в массиве или нет.

[Serge_Bliznykov]

Ребят, вы одну и ту же сортировку предложили, только знаки разные.

угу. сортировка одна и та же, но методы реализации были разные. У CepbIu первоначальный вариант был прикольный. мне даже сначала показалось, что он ошибочный, о чём я автору и сообщил. Он исправил код на "классический", но, оказалось, что первоначальный вариант был немножко необычный, но АБСОЛЮТНО рабочий!