program etudiants;
const nb_etudiants = 2;
{ type enregistrement decrivant un etudiant }
type etudiant = record
code : string;
nom : string;
prenom : string;
age : integer;
note : real;
end;
type promotion = array[1..nb_etudiants] of etudiant;
procedure AfficheEtudiant (e : etudiant);
var fichier : text;
begin
assign(fichier,e.code+'.html');
rewrite(fichier);
writeln(fichier,'');
writeln(fichier,'');
writeln(fichier,'');
writeln(fichier,'',e.prenom,' ',e.nom,'');
writeln(fichier,'');
writeln(fichier,'',e.prenom,' ',e.nom,'
');
writeln(fichier,e.age,' ans
');
writeln(fichier,'Note d''info : ',e.note:5:2,'
');
writeln(fichier,'');
writeln(fichier,'');
close(fichier);
end;
procedure AffichePagePrincipale (a : promotion);
var fichier : text;
i : integer;
begin
assign(fichier,'index.html');
rewrite(fichier);
writeln(fichier,'');
writeln(fichier,'');
writeln(fichier,'');
writeln(fichier,'Liste des etudiants');
writeln(fichier,'');
writeln(fichier,'');
writeln(fichier,'');
writeln(fichier,'');
close(fichier);
end;
{ Programme principal }
var i : integer;
un_etudiant : etudiant;
annuaire : promotion;
begin
un_etudiant.code := 'TOTO';
un_etudiant.nom := 'Toto';
un_etudiant.prenom := 'Roger';
un_etudiant.age := 23;
un_etudiant.note := 16.5;
annuaire[1] := un_etudiant;
un_etudiant.code := 'TITI';
un_etudiant.nom := 'Titi';
un_etudiant.prenom := 'Marcel';
un_etudiant.age := 28;
un_etudiant.note := 6.5;
annuaire[2] := un_etudiant;
for i:=1 to nb_etudiants do begin
AfficheEtudiant(annuaire[i]);
end;
AffichePagePrincipale(annuaire);
end.