bonjour à tous, je doit programmer un programme qui calcul une moyenne de notes.tout d´abord on entre le nbr de notes, puis on entre chaque note avec son coef.le tout en language pascal(obligé de faire avec). voici mon pgr:

program moyenne;
var i,nb_note, coef,note,m :integer;
var total,resul : real;

begin
total := 0; resul :=0; m :=0;
write(´entrez le nombre de notes :´);
read(nb_note);

for i:=1 to nb_note do
begin
writeln(´entrez une note: ´);
read(note);
writeln(´entrez le coef : ´);
read(coef);

total := ( coef*note) + total;
m := m+coef;
{i := i+1;}
end;

write(total);
write(m);
resul := ( total/(m));
writeln(´appuyez sur entree voir le r‚sultat´);
readln;
writeln(´voici la moyenne : ´, resul);
writeln(´appuyez sur entree voir le r‚sultat´);
readln;
end.
le pb c ke le programe se termine sans demander ´appuyez sur entreé pour sortir´. du coup on voit pas résultat à moins de relancer le prg. et je comprend pas pourquoi!!! si qq´un a une idée de pkoi ce serai sympa avant ke j´explose ce foutu ordinateur!!!
merci d´avance.

excusez moi, je me suis trompé ds le collage du prg, voici le ´´bon´´ :

program moyenne;
var i,nb_note, coef,note,m :integer;
var total : real;

begin
total := 0; m :=0;
write(´entrez le nombre de notes :´);
read(nb_note);

for i:=1 to nb_note do
begin
writeln(´entrez une note: ´);
read(note);
writeln(´entrez le coef : ´);
read(coef);

total := ( coef*note) + total;
m := m+coef;

end;

writeln(´voici la moyenne : ´,(total/(m)) ) ;
writeln(´appuyez sur entree pour sortir´);
readln;
end.

Tiens j´avais jamais vu de code pascal ca a l´air cool comme ca lol ^^

Après test , force est de constaté que le programme n´attend effectivement pas un appuie sur entrée pour s´arrêter.

Il faut remplacer tes deux Read pour des ReadLn et ça résoud le problème.

Read attend la touche entrée comme validation mais ne la lit pas,ce qui fait qu´elle reste dans le tampon d´entrée.
Ton ReadLn arrive il voit que le tampon d´entrée n´est pas vide , il le lit jusqu´à trouver le caractère , comme il n´y a que celui-là , il sort.
En remplaçant les deux read par readln on vide bien le tampon d´entrée à chaque lecture.

merci c super ca marche!