Aide pour prog TP ki bugg un peu

Salut je suis désolé de vous demander ca mais je dois rendre ce program cette après midi mais il persiste qq bug que je ne parvien pas à résoudre

Merci pour toutes aides

(TP 7.0)


voici le prog puis le cahier des charges

PROGRAM CERVIDES(input,output) ;
(uses crt) ;

type Tgar=array[1..510] of integer;
Tpopul=array[1..15] of integer;
Tpopull=array[1..15] of integer;
Tsex=array[1..510] of char;

Var nbc,a,b:integer;
Gar:Tgar;
Popul:Tpopul;
Popull:Tpopull;
Sex:Tsex;


Procedure saisie (var x:integer; var y:Tgar; var z:Tsex);
Var i:integer;



Begin
{writeln(‘veuillez entrer le nombre d’’individus ... classer ?’) ;}
readln(x) ;

for i :=1 to x do
begin
{writeln(‘individu’,i);
writeln(‘hauteur au garot?’) ;}
readln(y[i]= ;
{writeln(‘sexe,M/F ?’) ;}
readln(z[i]) ;
end ;
end ;


Procedure classement1 (VAR Gar:Tgar; x:integer; var sex:Tsex; var Popull:Tpopull);
Var nc,ngar:integer;

Begin
for ngar:=1 to 9 do
begin
Popull[ngar]:=0;
end;
for nc:=1 to x do
begin
if (sex[nc]=’M’) or (sex[nc]=’m’) then
case Gar[nc] of
0..105:Popull[1]:=Popull[1]+1;
106..110:Popull[2]:=Popull[2]+1;
111..115:Popull[3]:=Popull[3]+1;
116..120:Popull[4]:=Popull[4]+1;
121..125:Popull[5]:=Popull[5]+1;
126..130:Popull[6]:=Popull[6]+1;
131..135:Popull[7]:=Popull[7]+1;
136..140:Popull[8]:=Popull[8]+1;
141..200:Popull[9]:=Popull[9]+1;
end;

end;

Procedure classement2(VAR Gar:Tgar; x:integer; var Popul:Tpopul);
Var nc,ngar:integer;

Begin
for ngar:=1 to 9 do
begin
Popul[ngar]:=0;
end;
for nc:=1 to x do
begin
if (sex[nc]=’F’) or (sex[nc]=’f’) then

Case Gar[nc] of

0..90:Popul[1]:=Popul[1]+1;
91..95:Popul[2]:=Popul[2]+1;
96..100:Popul[3]:=Popul[3]+1;
101..105:Popul[4]:=Popul[4]+1;
106..110:Popul[5]:=Popul[5]+1;
111..115:Popul[6]:=Popul[6]+1;
116..120:Popul[7]:=Popul[7]+1;
121..125:Popul[8]:=Popul[8]+1;
126..200:Popul[9]:=Popul[9]+1;
end;
end;

BEGIN
Saisie (nbc,Gar,sex) ;
Classement1(Gar,nbc,sex,Popull);
For a:= 1 to 9 do write(Popull[a],’ ‘);
Writeln;
Classement2(Gar,nbc,popul);
Forb:=1 to 9 do write(popul[b],’ ‘);
Readln;
END.





Cahier des charges


Objectif du programme :

-classer un certain nombre de biches et de cerfs en fonction de leur sexe et de leur taille au garrot.

Informations à fournir par l’utilisateur dans l’ordre (entrées) :

- Effectif de la population (entier < 500 ).
- Taille de l’ animal au garrot en centimètres.
- Sexe de l’animal ( m\f soit en majuscules soit en minuscules ).


Résultats que doit fournir le programme :

-Afficher sous forme de deux tableaux la répartition du nombre d’individus en fonction de leur taille au garrot et de leur sexe, le premier pour les CERFS et deuxième pour les BICHES. Ils comprennent neuf classes de tailles allant de 90 cm à 130 cm pour les biches et de 105 à 145 pour les cerfs. (Toutes les valeurs non comprises dans ces bornes seront intégrées aux classes des extrémités)


Mode de travail :

Une exécution du programme comprend :

- Un questionnaire de l’utilisateur pour saisir les données réalisées dans une procédure indépendante.
- Le classement des individus femelles en fonction de leur taille au garrot dans une autre procédure indépendante.
- Le classement des individus mâles en fonction de leur taille au garrot dans une dernière procédure indépendante.



Remarques :

- Version 1.0 – Avril 2003
- Chemin d’accès à partir de la disquette :



- Un nombre plus important serait requis pour une population très élevée.
- Ce programme devra permettre l’utilisation de fichiers pour la redirection des entrées et des sorties standard.