Algo nbComplex Enregistrement nCplx préelle : réel pim : réel FinEnregistrement Vraiables cp1 : nCplx module : réel Début Ecrire("Saisir la partie réelle : ") Lire(cp1.préelle) Ecrire("Saisir la partie imaginaire : ") Lire(cp1.pim) Ecrire("Le nombre complexe est : ",cp1.préelle,"+",cp1.pim,"i") module := racine(cp1.réelle^2+cp1.im^2) Ecrire("Son module est : ", module) Fin Algo multiplierMatVec Variables v1,v2 : tableau[1..3] de réel m1 : tableau[1..3,1..3] de réel i, j : réel Début Pour i allant de 1 a 3 Pour j allant de 1 a 3 Ecrire("Mat de ",i,",",j,"=") Lire(Mat[i,j]) FinPOur FinPour Pour i allant de 1 a 3 Ecrire("v1 ",i," = ") FinPour Pour i allant de 1 a 3 v2[i]:=0 Pour j allant de 1 a 3 v2[i]:= v2[i]+mat[i,j]*v1[j] FinPour Ecrire("v2[",i"] = ", v2[i]) FinPour Fin