Discussion :

[DesireGuel]

Bonjour à tous,
Je suis nouveau sur ce site et débutant en Pascal. J'ai commencé il y a 4 mois uniquement sur ce site pour apprendre Pascal. J'enseigne aussi logiciel de base Word, Excel... dans un lycée technique après-midi.
Mon objectif est d'éditer un bulletin de notes pour les élèves (nom, prénom, matricule, date de naissance puis l'ensemble des notes qui pourra determiner le résultat). Ci-dessous en Pascal mon code que j'ai essayé. S'il ya quelqu'un qui peut m'aider avec la correction ?

Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Program bulletin_de_note ;  
Const Max = 90000 ;       // pour éviter le plus grand nombre dans le programme
Type personne = record
nom , prenom : string ;
matricule : integer ;
end ;
 
                dates = record
                          jour, mois, annee : integer ;
                      end ;
 
Tableau = array [1….Max] of  personne ;
PTableau = ^Tableau ;
var Tab : PTableau ;
i : Integer ;
 
  procedure nombre_eleve (  var  N: Longint ; ) 
            i: Integer;
     begin 
         writeln  ( 'Combien de personnes ?' ) ;     // personne représente les élèves dans tout le programme
        readln (N);
        GetMem ( Tab , N  * Sizeof ( personne) ) ;
        for i:=1 to N  do readln (Tab^[i].nom ) ; 
        FreeMem  (Tab, N  * Sizeof ( personne ) ) ;
     end ;
 
procedure eleve  ( var m: integer ;  )   //  pour enregistrer les info sur chaque eleve
                   Var i: integer;
   begin
         new (tab);
         with Tab^[1] do
         begin
            Nom := ‘ nom_eleve ’ ;
             Prenom := ‘ prenom_eleve ’ ;
             Matricule := numero_matricule  ;
            end ;
       for  i  := 1  to m do wiriteln  ( Tab^[i].nom ) ;
       dispose (Tab);
    end ;
 
procedure date_naissance (var  m : integer ;  )    // permet d’insérer  la date  de naissance de chaq eleve
 
                  var i : integer  ;
                       begin
                     for  i := 1  to  m  do
              begin
                  with t[i].date do
    begin
     writeln  ( `entree de la date` ) ;
     writeln  (`jour :` )  ;  readln ( jour ) ;
     writeln  (`mois : ` ) ;  readln (jour) ;
      writeln  (`annee : `) ;  readln (annee) ;
       writeln ( la date est ` : ` , jour , ‘ / ’, mois , ` / ` annee,  ) ;
       readln (date) ;
                                 end ;
                        end ;
             end ;
 
procedure resultat_eleve  ( var  m : real ;  )  // introduire les notes de chaque eleve puis déterminer  le resultat 
 
 type Nbr_matiere = array [ 1...20 ] of real ;
   var note :  Nbr_matiere ;
     i := integer ;
   somme, moyenne;
  begin
writeln (  `entree ‘Nbr_matiere’ ‘ note ‘ )  ;
 for  i := 1  to m do
  readln (note);
  somme :=0
   moyenne := somme / nbr-matiere ;
    resultat := moyenne ;
end .