Aider moi a traduire dans le languague c

08-**- Procédure de calcul de moyenne des étudiants On a défini les types suivants :
Ch10 = Chaine de 10 caractères
Ch30 = Chaine de 30 caractères
Ent = entier
Nb = réel
Pe = ^Etudiant
Pn = ^Note
Etudiant = Structure
numero : Ch10
nom : Ch30
prenom : Ch30
moy : Nb
eval : Pn
suivant : Pe
fin Structure
Note = Structure
note : Nb
coeff : Ent
suivant : Pn
fin Structure
procédure moyennesEtudiants(entrée etu : Pe)
/* Procédure qui calcule la moyenne de chaque étudiant et met à jour le champ
moy de chaque étudiant de la liste passée en paramètre */
Variables
totCoeff : entier
totNotes : réel
petu : Pe /* pointeur de parcours de la liste des étudiants */
pmat : Pn /* pointeur de parcours de la liste des notes de chaque ét.*/
Début
petu ? etu
tantque petu ? Nil /* parcours de la liste des étudiants */
totCoeff ? 0 /* au début il n'y a ni note ni coefficient */
totNote ? 0 /* pour l'étudiant */
pmat ? petu^.eval /* eval est la tête de liste des notes de l'et. */
tantque pmat ? Nil /* parcours de la liste des notes de l'étudiant */
totCoeff ? totCoeff + pmat^.coeff /* somme des coefficients */
totNote ? totNote + pmat^.note * pmat^.coeff /* somme pondérée */
pmat ? pmat^.suivant /* on passe à la note suivante */
fintantque
si petu^.eval ? Nil alors
/* calcul et mémorisation dans la cellule de l'étudiant de la
moyenne de ses notes, s'il en a */
petu^.moy ? totNote / totCoeff
finsi
fintantque Fin