1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91
|
Program bulletin_de_note ;
Const Max = 100 ;
Type
dates = record
jour, mois, annee : integer ;
end ;
personne = record
nom , prenom : string ;
matricule : integer ;
date : dates;
end ;
Tableau = array [1..Max] of personne ;
var
Tab : Tableau ;
date:dates;
nombreTotal : Integer ; {nombre d' etudiant dans la classe}
{-----------------------------------}
procedure nombre_eleve (var N: Longint);
var i: Integer;
begin
write ( 'Combien de personnes ? ' ) ;
readln (N);
for i:=1 to N do
begin
write('eleve ', i, ' : ');
readln (Tab[i].nom ) ;
end;
end ;
{--------------------------------------------}
procedure eleve (m: integer);
var i: integer;
begin
for i:=1 to m do
with Tab[i] do
begin
writeln('Nom : ', nom);
write('prenom : ');
readln(prenom);
write('matricule : ');
readln(matricule);
end ;
end ;
{----------------------------------}
procedure date_naissance ( m : integer );
var i : integer ;
begin
for i := 1 to m do
begin
with tab[i].date do
begin
writeln ( 'entree de la date') ;
writeln ('jour : ' ) ; readln ( jour ) ;
writeln ('mois : ' ) ; readln (mois) ;
writeln ('annee : ') ; readln (annee) ;
writeln ( 'la date est : ',jour , ' / ', mois , ' / ', annee) ;
end ;
end ;
end ;
{---------------------------------}
procedure resultat_eleve (m : integer);
var note : real;
i : integer ;
somme, moyenne: real;
nbr_matiere:integer;
begin
writeln('nombre matiere :');
readln(nbr_matiere);
writeln ( 'entree note ' ) ;
for i := 1 to m do
readln (note);
somme :=0;
moyenne := somme / nbr_matiere ;
{resultat := moyenne ; }
end ;
{----------------------------------------------}
Begin
end. |
Partager