Динамическая структура данных для хранения генеалогического дерева

@freeax · Регистрация: 19.09.2012

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

Уважаемые гуру!
Подскажите алгоритм (или помогите кодом

) для след задачи: нужна программа, формирующая гниалогическое дерево, используя динамич. структуру, например, бинарное дерево. Каждая вершина должна содержать имя и дату рождения. Заранее благодарен!

Добавлено через 17 минут
наткнулся на пост Динамические структуры данных (списки, очереди, стеки, деревья), разбираюсь как добавить элемент содержащий имя и дату. Жду ответов.

Добавлено через 8 минут
а можно в паскале структуры данных делать как в си?

@BumerangSP · 19.09.2012, 17:20

Сообщение от freeax

а можно в паскале структуры данных делать как в си?

Вполне. Например, в Си:

C

struct Tree
{
 char name[10];
 int date;
};

В паскале так:

Pascal

type 
 Tree = record
  name: string;
  date: integer;
 end;

@freeax · 19.09.2012, 17:22 **[ТС]**

я правильно понимаю, что если в коде

PNode=^Node; {Указатель на узел}
Node=record {Тип запись в котором будет храниться информация}
data:integer;
left,right:PNode; {Ссылки на левого и правого сыновей}

вместо data вставить структуру данных

struct {
char name[20], data[20];
} element;

то все будет ок, только функцию вывода дерева нужно будет изменить?
но как сделать подобную структуру на паскаль?

@BumerangSP · 19.09.2012, 17:30

freeax, не совсем понял, что имеется в виду. Я лишь привел пример записи структуры в паскале и Си.

@freeax · 19.09.2012, 17:31 **[ТС]**

Сообщение от BumerangSP

freeax, не совсем понял, что имеется в виду. Я лишь привел пример записи структуры в паскале и Си.

uses crt;
type
PNode=^Node; {Указатель на узел}
Node=record {Тип запись в котором будет храниться информация}
human:element;
left,right:PNode; {Ссылки на левого и правого сыновей}
end;

type
element = record
name, date: string;
end;

так можно сделать?

@BumerangSP · 19.09.2012, 17:40

В вашем случае, скорее всего нужно просто добавить в существующий код (которые в ссылке) метод "date". Дату, в общем:

Pascal

PNode=^Node; {Указатель на узел}
Node=record {Тип запись в котором будет храниться информация} 
 data:integer; {пусть это будет name} 
 date: string;
 left,right:PNode; {Ссылки на левого и правого сыновей}
end;

Добавлено через 7 минут
Как добавлять такие элементы понятно?

@freeax · 19.09.2012, 17:49 **[ТС]**

Добавлено через 7 минут
Как добавлять такие элементы понятно?

если я правильно понимаю

Tree^.name:=x;
Tree^.data:=y;

непонятно, почему используется в коде x? Tree^.data и data разные переменные, можно сделать же так

Tree^.name:=name;
Tree^.data:=data;
?

@BumerangSP · 19.09.2012, 18:26

freeax, разницы по сути никакой, просто так захотелось автору)
И еще: бинарное дерево организуется по принципу сравнения вершин: добавляемая вершина меньше текущей - становится левым сыном, больше - правым. Так что как-нибудь это нужно организовать, независимо от полей имени и даты.

@freeax · 19.09.2012, 18:27 **[ТС]**

Короче говоря добавление имени и даты сделал, но что-то это на генеалогическое древо не очень похоже))

@BumerangSP · 19.09.2012, 18:29

freeax, смотря в каком виде выводить на экран: в табличном, либо в графическом.

@freeax · 19.09.2012, 18:32 **[ТС]**

Сообщение от BumerangSP

freeax, смотря в каком виде выводить на экран: в табличном, либо в графическом.

кстати, я так понимаю в примере вывод организован рекурсивно?
подскажите как бы лучше выводить чтобы на генеалогическое дерево было похоже)

@freeax · 19.09.2012, 18:49 **[ТС]**

То, что вышло в прикрепленном файле, подскажи что еще можно сделать

@BumerangSP · 19.09.2012, 19:15

подскажите как бы лучше выводить чтобы на генеалогическое дерево было похоже)

Это надо подумать))
В общем, есть у меня один код (не мой), там все реализовано (графический вывод в том числе). Подставите только свои пункты в структуру и кое-что исправите в процедурах.
Файл не могу оценить, т.к. там что-то с кодировкой и мне ничего не понятно)

@freeax · 19.09.2012, 19:21 **[ТС]**

Сообщение от BumerangSP

Файл не могу оценить, т.к. там что-то с кодировкой и мне ничего не понятно)

кодировка UTF8, можно смотреть в браузере, выбрав нужную кодировку

@BumerangSP · 19.09.2012, 19:22

freeax, я имел в виду, что не смогу потестить.

@freeax · 19.09.2012, 19:36 **[ТС]**

Сообщение от BumerangSP

freeax, я имел в виду, что не смогу потестить.

теперь должно быть все нормально

@BumerangSP · 19.09.2012, 19:51

Ну, в общем-то все работает

Я, честно говоря, не в курсе, какие еще функции можно прикрутить к генеалогическому дереву) Можно еще сделать удаление.

@freeax · 19.09.2012, 20:47 **[ТС]**

Сообщение от BumerangSP

Ну, в общем-то все работает

Я, честно говоря, не в курсе, какие еще функции можно прикрутить к генеалогическому дереву) Можно еще сделать удаление.

ну вроде по заданию нужно было сделать динамическую структуру, по сути она есть, так что буду другие задания делать) Спасибо большое Вам и этому форуму, где можно найти рабочий код))

@freeax 3 / 3 / 0 Регистрация: 19.09.2012 Сообщений: 146
	19.09.2012, 18:32 [ТС]	11
	Сообщение от BumerangSP freeax, смотря в каком виде выводить на экран: в табличном, либо в графическом. кстати, я так понимаю в примере вывод организован рекурсивно? подскажите как бы лучше выводить чтобы на генеалогическое дерево было похоже) 0

@freeax 3 / 3 / 0 Регистрация: 19.09.2012 Сообщений: 146
	19.09.2012, 19:21 [ТС]	14
	Сообщение от BumerangSP Файл не могу оценить, т.к. там что-то с кодировкой и мне ничего не понятно) кодировка UTF8, можно смотреть в браузере, выбрав нужную кодировку 0

@freeax 3 / 3 / 0 Регистрация: 19.09.2012 Сообщений: 146
	19.09.2012, 17:22 [ТС]	3
	я правильно понимаю, что если в коде PNode=^Node; {Указатель на узел} Node=record {Тип запись в котором будет храниться информация} data:integer; left,right:PNode; {Ссылки на левого и правого сыновей} вместо data вставить структуру данных struct { char name[20], data[20]; } element; то все будет ок, только функцию вывода дерева нужно будет изменить? но как сделать подобную структуру на паскаль? 0

@BumerangSP 4311 / 1422 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	19.09.2012, 17:30	4
	freeax, не совсем понял, что имеется в виду. Я лишь привел пример записи структуры в паскале и Си. 0

@freeax 3 / 3 / 0 Регистрация: 19.09.2012 Сообщений: 146
	19.09.2012, 17:31 [ТС]	5
	Сообщение от BumerangSP freeax, не совсем понял, что имеется в виду. Я лишь привел пример записи структуры в паскале и Си. uses crt; type PNode=^Node; {Указатель на узел} Node=record {Тип запись в котором будет храниться информация} human:element; left,right:PNode; {Ссылки на левого и правого сыновей} end; type element = record name, date: string; end; так можно сделать? 0

@freeax 3 / 3 / 0 Регистрация: 19.09.2012 Сообщений: 146
	19.09.2012, 17:49 [ТС]	7
	Добавлено через 7 минут Как добавлять такие элементы понятно? если я правильно понимаю Tree^.name:=x; Tree^.data:=y; непонятно, почему используется в коде x? Tree^.data и data разные переменные, можно сделать же так Tree^.name:=name; Tree^.data:=data; ? 0

@BumerangSP 4311 / 1422 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	19.09.2012, 18:26	8
	freeax, разницы по сути никакой, просто так захотелось автору) И еще: бинарное дерево организуется по принципу сравнения вершин: добавляемая вершина меньше текущей - становится левым сыном, больше - правым. Так что как-нибудь это нужно организовать, независимо от полей имени и даты. 1

@freeax 3 / 3 / 0 Регистрация: 19.09.2012 Сообщений: 146
	19.09.2012, 18:27 [ТС]	9
	Короче говоря добавление имени и даты сделал, но что-то это на генеалогическое древо не очень похоже)) 0

@BumerangSP 4311 / 1422 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	19.09.2012, 18:29	10
	freeax, смотря в каком виде выводить на экран: в табличном, либо в графическом. 0

@BumerangSP 4311 / 1422 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	19.09.2012, 19:22	15
	freeax, я имел в виду, что не смогу потестить. 0

@BumerangSP 4311 / 1422 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	19.09.2012, 19:51	17
	Ну, в общем-то все работает Я, честно говоря, не в курсе, какие еще функции можно прикрутить к генеалогическому дереву) Можно еще сделать удаление. 0

@freeax 3 / 3 / 0 Регистрация: 19.09.2012 Сообщений: 146
	19.09.2012, 20:47 [ТС]	18
	Сообщение от BumerangSP Ну, в общем-то все работает Я, честно говоря, не в курсе, какие еще функции можно прикрутить к генеалогическому дереву) Можно еще сделать удаление. ну вроде по заданию нужно было сделать динамическую структуру, по сути она есть, так что буду другие задания делать) Спасибо большое Вам и этому форуму, где можно найти рабочий код)) 0