Помогите с задачей на Delphi

[Ленивица]

Здравствуйте. Вот возникла роблемка с задачкой.

Пусть задано конечное множество имен жителей некоторого города, причем для каждого жителя перечислены имена его детей. Перечислите все пары жителей города, которые являются родственниками, причем жители А и Б называются родственниками, если:
a) А – это ребенок Б;
b) Б – это ребенок А;
c) существует некий В такой, что А является родственником В, а В является родственником Б

Как это написать на Delphi? Заранее спасибо.

[L_M]

Так нужно решение или помощь в решении?

[como]

Заводишь массив структур, в каждой из которых ты хранишь имя жителя и номер родственной группы, к которой он принадлежит. Сначала номера родственной группы равны нулю для всех жителей. Если имена жителей не известны заранее, до добавляешь их в массив динамически. Так же заводишь счетчик максимальной иcпользуемой родственной группы. Сначала этот счетчик тоже равен нулю. Далее нужно добавить пару "А - ребенок Б" в этот массив. Находишь в массиве или добавляешь А. Находишь в массиве или добавляешь Б. Если для А родственная группа не равна нулю, а для Б - равна (или наоборот), то присваиваешь родственной группе Б значение родственной группы А (или наоборот). Если для А и для Б родственная группа равна нулю, заводишь новую родственную группу, увеличивая счетчик максимальной используемой родственной группы, и присваиваешь это значение А и Б. Если для А и для Б родст. группа не равна нулю, присваиваешь Б значение родственной группы А, и проходишь по всему массиву, заменяя значение родственной группы Б на А.

В конце у тебя получается массив жителей, разбитых на пронумерованные родственные группы. Далее в каждой родственной группе ты должен найти все пары, чтобы перечислить их, как написано в условии задачи. Сначала выделяешь какую-нибудь родственную группу в отдельный массив. Далее алгоритм очень простой: ты идешь по массиву в двух вложенных циклах - первый цикл по всему массиву, а второй по той части, которая между индексом первого цикла и концом массива - вот и все твои пары будут перечисленны.

ICQ: 225-270-844

[Ленивица]

Спасибо большое за помощь)