Compléter le programme suivant en donnant le corps des procédures Insertion et Afficher, étant donnée la structure de données citée par la suite
N.B. On conserve dans un tableau TabElement des chaînes avec leur taille respective.
Program Chaines;
{Programme qui permet d'affecter des valeurs aux chaînes qui se
trouvent dans un tableau et d'afficher le contenu de ce tableau}
CONST
MaxNbSommets = ...;
MaxNumChaine = ...;
TYPE
PtrNoeud = ^Noeud;
Noeud = RECORD
Donnee: integer;
Suivant: PtrNoeud;
END;
EltNoeud = RECORD
Taillechaine: Integer;
Chaine: PtrNoeud;
END;
VAR TabElement: ARRAY[1..MaxNumChaine] OF EltNoeud;
Procedure Insertion(Valeur, NumChaine : integer);
{Procédure permettant d'insérer une valeur à la fin de la
NumChaine-ème chaîne}
Procedure Afficher;
{Procédure permettant d'afficher le contenu du champs "Donnee"
pour toutes les chaînes du tableau}