Algorithme Matrice ;
Var I,J,N,M,Val,Nbv :entier ; Existe :booleen ; A : Tableau[1..20,1..30] de entier;
AT : Tableau[1..20,1..30] de entier; Début
Repeter Lire(N) ; Jusqu’à (N>0) et (N≤20) ;
Repeter Lire(M) ; Jusqu’à (M>0) et (M≤30) ;
//Lecture de la Matrice
Pour I ←1 à N Faire Pour J ←1 à M Faire
Lire(A[I,J]) ;
Fait ;
Fait ;
Ecrire(‘Donner Val’) ; Lire(Val) ;
/*Recherche de Val Existe←Faux ; I←1 ; Tanque I ≤N et Non Existe Faire J←1 ;
Tanque J ≤M et Non Existe
Faire
Fait ;
Si A[I,J]=Val Alors Existe←Vrai Fsi ; J←J+1 ;
I←I+1 ;
Fait ;
Si Existe Alors Ecrire(Val,’Existe’) Sinon Ecrire(Val,’Non trouvée’) Fsi ;
/* nombre de voyelles dans A
Nbv←0 ;
Pour I ←1 à N Faire Pour J ←1 à M Faire
Cas A[I,J] Vaut ‘a’,’e’,’i’,’o’,’u’,’y’ : Nbv←Nbv+1 ; Fincas ;
Fait ;
Fait ;
Ecrire(‘Nombre de voyelles est :’,Nbv)
Fin.
Ajouter un commentaire
Veuillez vous connecter pour ajouter un commentaire.
Pas encore de commentaires.