programmation delphi langage pascal:lien de parenté
voici la déclaration de mes structures de données:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| type
T_donnee = string;
T_liste_adj = ^T_elt_liste;
T_elt_liste= record
personne:T_donnee;
psuiv: T_liste_adj;
end;
T_tab=record
rang:integer; //Rang des éléments du tableau
personne:string; //Prenom de la personne
pere:string;//pere de la personne
mere:string; //mere de la personne
epoux:string; //conjoint de la personne
enfant: T_liste_adj; //enfant de la personne
end; |
Quelqu'un aurait une idée de programmation pour obtenir les différents liens de parenté (père,oncle, cousin,frère,fils...) entre deux personnes du tableau?
A l'avance merci.
