Discussion :

[WhiteTigerZ]

Salut tout le monde ,
mon programme ne s'exécute pas malgré que la compilation est correcte
de l'aide sera la bienvenue
Le but de l'exercice est de saisir les informations concernant n élève puis calculer la moyenne de la classe sachant qu'un élève est caractérisé par 3 champs: nom,prénom et moyenne
Voila le 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
program serie1_3 ;
uses wincrt ;
type
 
    eleve = record
             nom : string ;
             prenom : string ;
             moy : real ;
    end;
 
   tab=array[1..30] of eleve ;
 
var
   n : integer ;
   x : real ;
   t : tab ;
 
procedure saisie (var n : integer ; var t : tab);
var
   i : integer ; 
begin
 repeat
  writeln('saisir le nombre d''eleve :');
  readln(n);
 until n in [3..30];
 
 For i:= 1 to n do
  begin
   with t[i] do
    begin
     writeln('le nom :');
     readln(nom);
     repeat
      writeln('le prenom :');
      readln(prenom);
     until (length(prenom)<=40);
     repeat
      writeln('la moyenne :');
      readln(moy);
     until (moy <= 20) and (moy>=0); 
    end;
  end;
 
end;
 
function calcul (n : integer ; t : tab ) : real ;
var
 
   c,moyenne,nb : real ;
   i : integer ;
begin
 c:=0;
  for i:= 1 to n do
   begin
    c:=c+t[i].moy ;       
   end;
 nb:=c/n ; 
 calcul:= nb ;
end;
 
begin
 saisie(n,t);
 x:=calcul(n,t);
 writeln('la moyenne de la classe est :',x);
end.

[Clandestino]

Bonjour,

J'ai fait un simple copier/coller de ton code dans un projet neuf dans lazarus (sous windows), ce programme se compile et se lance...
Même test sous freepascal, même résultat...

Sous quel os travailles-tu et avec quel compilateur?

[WhiteTigerZ]

Bonjour,

J'ai fait un simple copier/coller de ton code dans un projet neuf dans lazarus (sous windows), ce programme se compile et se lance...
Même test sous freepascal, même résultat...

Sous quel os travailles-tu et avec quel compilateur?

Turbo pascal for windows 1.5/Windows XP

[WhiteTigerZ]

l'erreur qu'il m'affiche est la suivante

Runtime error 202 at 0001:01AC

[Alcatîz]

Bonjour !

Il s'agit bien d'un débordement de pile : la taille de ton tableau excède la taille par défaut de la pile, qui est de 8192 octets par défaut si je ne me trompe pas (c'est le cas pour BPW 7.0).

Il faut donc augmenter la taille de la pile à l'aide de la directive de compilation {$M Stacksize,Heapsize}.

[WhiteTigerZ]

Bonjour !

Il s'agit bien d'un débordement de pile : la taille de ton tableau excède la taille par défaut de la pile, qui est de 8192 octets par défaut si je ne me trompe pas (c'est le cas pour BPW 7.0).

Il faut donc augmenter la taille de la pile à l'aide de la directive de compilation {$M Stacksize,Heapsize}.

J'ai augmenté la taille au max et j'ai le même problème
De l'aide sera la bienvenue
Merci d'avance

[WhiteTigerZ]

Bon ça marche nikél
il ne faut pas augmenté la taille jusqu'au max comme je l'ai fait
merci encore