RECORD champ : type; ... END
.
nom.champ
.
PROGRAM GestionAgenda; TYPE Agenda = RECORD Nom : STRING; Prenom : STRING; Tel : STRING; END; PROCEDURE Entree(VAR a : Agenda); BEGIN Write('Entrez le nom '); ReadLn(a.Nom); Write('Entrez le prénom '); ReadLn(a.Prenom); Write('Entrez le téléphone '); ReadLn(a.Tel); END; PROCEDURE Sortie(a : Agenda); BEGIN WriteLn('Nom : ',a.Nom); WriteLn('Prénom : ',a.Prenom); WriteLn('Téléphone ',a.Tel); END; VAR x : Agenda; BEGIN Entree(x); Sortie(x); END.
PROGRAM SommeComplexes; TYPE Complexe = RECORD x, y : REAL; END; PROCEDURE Entree(VAR a : Complexe); BEGIN WriteLn('Entrez x puis y'); ReadLn(a.x, a.y); END; PROCEDURE Sortie(a : Complexe); BEGIN WriteLn(a.x,' + i * ',a.y); END; PROCEDURE Somme(a, b : Complexe; VAR c : Complexe); BEGIN c.x := a.x + b.x; c.y := a.y + b.y; END; VAR x,y,z : Complexe; BEGIN Entree(x); Entree(y); Somme(x,y,z); Sortie(z); END.
TYPE Polynôme = RECORD Degre : INTEGER; Coeff : ARRAY[0..MaxDegre] OF REAL; END;
MaxDegre
.