Prog en pascal

[divo]

bonjour si vous pouvez m'aider a ecrir un programme en pascal qui permet de
saisir dans un tableau 10 noms et attribuer 5 notes et 5 coefficients à chaqu'un puis calculer la moyenne de chaque etudiant en suit classer les noms et leurs moyenne dans un tableau . merci j'ai essayer ce programme pas mal de fois mais il me reste toujours c'est urgent merci d'avance a tous

[fatal_error]

Bonjour,

en supposant que tu toccupes pas de la memoire on peut y aller en bourrin dans la pile.

Tnotes=record
note:real;
coeff:real;
end;

Televe=record
nom :integer;
notespond:array [1..5] of Tnotes;
moyenne:real;
end;

Ttableau_main:array [1..10] of Televe;

Bon la procedure de saisie hein...


procedure moyenne(var eleve:Televe);//on stockera dans moyenne
var i:integer;
var somme:real;
var nbcoeff:real;
begin
somme:=0;{on initialise, somme va sajouter 5 fois puis on divisera pour la moyenne}
nbcoeff:=0;{on compte le nombre de coeff pour la division}
for i:=1 To 5 Do
begin
somme:=somme+eleve.notespond[i].note*eleve.notespond[i].coeff;
nbcoeff:=nbcoeff+eleve.notespond[i].coeff;
end;
eleve.moyenne:=somme/(nbcoeff);
end;

voilà, pour classer, tu peux faire une deuxieme variable de type Ttableau_main (pour copier de l'un a lautre).

ps:j'ai supposé que c'était la structure des variables qui posait probleme. J'en propose une, mais si tu en as déjà une, autant montre nous la tienne(de structure) ;) .