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 .

[Alcat�z]

Bonjour !

Soigner l'indentation du code aide grandement � s'y retrouver.

Il y a tout d'abord pas mal d'erreurs de syntaxe, un minimum avant de poster du code est de s'assurer que celui-ci en est au maximum exempt. Mais passons.

Ton tableau de 90000 enregistrements a une taille totale de 46 Mb. Le compilateur ne va pas �tre content : http://pascal.developpez.com/faq/?pa...ture-too-large

Dans les proc�dures nombre_eleve et eleve, tu alloues le tableau Tab, travailles dessus puis tu le d�salloues imm�diatement. Il y a manifestement l� un petit probl�me de logique.

Une remarque en passant : il serait pr�f�rable de passer le tableau Tab comme param�tres � tes proc�dures, au lieu de faire r�f�rence � une variable globale au sein de celles-ci.

Il y a s�rement d'autres probl�mes mais je te laisse corriger au moins les erreurs de syntaxe de ton code actuel avant d'essayer de t'aider plus avant.

[darrylsite]

ce code est un vrai champ de bataille. l' identation, l' utilisation des pointeurs, ... ont �t� fait au hazard.
je crois que DesireGuel ne s' est pas donne� la peine de prendre une feuille et un crayon pour faire un brouillon.
J' ai essay� de corriger l'identation et faire en sorte que le programme compile (je ne parle ici que des erreurs de syntaxe). Mais je n' ai pas touch� � l' algorithme.
Il faut encore �normement de travail pour que le programme puisse faire ce que tu veux. Aussi, je ne sais pas pourquoi tu cherches � utiliser un pointeur de tableau dans ce programme.

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
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.

[DesireGuel]

Jusqu'� cette heure je suis devant l'ecran entrain de reponde a Monsieur Alcat�z en reponse suite � son intervention pour essayer d'ameliorer mon code.
Merci Darrylsite, c'est mon premier plus long programme que je voudrais initier . Mais je constate que mon niveau est tres bas encore s'il ya des conseilles ( pour mieux reussir un programme moyen en pascal n'hesitez pas ca va bcp m'aider)

Aussi s'il ya d'autres id�es sur les algo que je pourrais ajouter dites moi et je vais chercher pour essayer de completer ce code qui me restera comme exemple.

Je vous remercie Alcatiz et Darrysite pour vos reponses

[droggo]

Dai,

Avant de vouloir ajouter quelque chose, je pense qu'il faut que tu retournes � tes cours de la base/syntaxe du langage, et que tu fasses quelques exercices plus simples que celui-ci, par exemple des petits programmes qui reprennent un � un tous les �l�ments du langage dont tu as besoin pour r�soudre ton probl�me.

Il ne sert � rien de vouloir courir avant de savoir marcher (celle-l�, je la place assez souvent ).