La solution d'un algorithme

Fermé
katia - 8 mai 2008 à 20:47
 sofiane-dix - 9 mai 2008 à 00:19
Bonjour,
le probleme
nous disposons d'une matrice entiere composée de N lingne et de 3 colonees chaque lingne de la matrice ce presente les notes d'un etudiant (cous avons trois notes) les coefficients de chaque matiere se trouve dans le vecteur COEF.
la maniere es de calculer comme suit:
moyenne =tous(notes I *coleffitient I)/colefficient.
les condition ;
moyenne>=14:mention tres bien
12<=moyenne<14;mention bien
10<=moyenne<12;mention passable
moyenne<7;insufissant
question:
on vous demande le programe pascal


es merci beaucoup
A voir également:

1 réponse

bonsoir pour ton prebleme tu veux avoir l'algo

j'ai oublié un la programmation en pascal néamoins j'ai quelque chose pour toi
Var n,i:integer;
x :real
coef[1..3] of integer ;
mat[1..3,1..n];

begin
write('saisie de la valeur de n :nbre d'elements');
read (n);
x:=0;
for i:=1 to n do
begin
for j:=1 to 3 do
T[j]:=mat[1..i,i..j];
end
x:=x+T[j];
z:=0;
for i:=1 to 3 do q[i]:= q[i]+z;
moy :=.... faite la suite j'espére que je vous ai un peut aider bonne continuation set puis si t'as un probleme encore detaille un peux plus stp
0