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.