algorithm matrix_product;
const R=val1, C1=val2, C2=val3 ;
var
M1: array[1..R,1..C1] of integer;
M2: array[1..C1,1..C2] of integer;
M: array[1..R,1..C2] of integer;
i,j,k: integer
Begin
for(i=1 to R) for(j=1 to C1) read(M1[i,j]); endfor;
endfor;
for(i=1 to C1) for(j=1 to C2) read(M1[i,j]); endfor;
endfor;
for (i = 1 to R)
for (j = 1 to C2)
M[i,j] = 0;
for (k = 1 to C1)
M[i,j] = M[i,j]+(M1[i,k] * M2[k,j]); endfor; endfor;
endfor;
END.
Exercise 8
algorithm count_words;
const N=val;
var
T:array[1..N]of character;
i, count: integer;
Begin
for(i=1 to N) do read(T[i]); endfor;
count=0;
for(i=1 to N) do
if (T[i]=’ ‘) then count=count+1; endif;
endfor;
END.
algorithm count_sentences;
const N=val;
var
T:array[1..N]of character;
i, count: integer;
Begin
for(i=1 to N) do read(T[i]); endfor;
count=0;
for(i=1 to N) do
if (T[i]=’.‘) then count=count+1; endif;
endfor;
END.
algorithm count_words;
const N=val;
var
T:array[1..N]of character;
i, count: integer;
Begin
for(i=1 to N) do read(T[i]); endfor;
count=0;
for(i=1 to N) do
if (T[i]=’ ‘) then count=count+1; endif;
endfor;
END.
algorithm Palindrom ;
Début
// Prendre le mot à vérifier
Lire mot
// Initialiser les pointeurs début et fin
début ← 0
fin ← longueur(mot) - 1
// Boucle de vérification
Tant que début < fin faire
Si mot[début] ≠ mot[fin] alors
Retourner faux
FinSi
début ← début + 1
fin ← fin - 1
FinTantQue
// Si tous les caractères ont été vérifiés et sont identiques
Retourner vrai
Fin
algorithm optimize_blanks ;
j 1;
Pour (i 1 jusqu’à N) faire T[j] T[i];
Si (T[i] <> 0) alors j j + 1;
Fin_si; Fin_pour;
//Affichage du tableau résultat –la nombre d’élément du tableau résultat est (j ‐1) Écrire
("Affichage des éléments du tableau résultat :");
Pour (i 1 jusqu’à j‐1) faire
Écrire ("Le " , i, " er/eme élément est ", T[i]); Fin_pour;
Fin.