Soit une matrice carrée A(N, N) d’entiers (N≤25). Ecrire deux des actions paramétrées permettant de :
Algorithme Trace ;
Var I,J,N,Max,Lmax,Cmax,Tr :entier ; A : Tableau[1..25,1..25] de entier;
Début
Repeter Lire(N) ; Jusqu’à (N>0) et (N≤25) ;
//Lecture de la Matrice
Pour I ←1 à N Faire Pour J ←1 à N Faire Lire(A[I,J]) ; Fait ; Fait ;
// et calcul de la trace
Tr←0 ;
Pour I ←1 à N Faire Tr←Tr+ A[I,I]) ; Fait ;
//Max et sa position Max←A[1,1] ;
Pour I ←1 à N
Faire Si Max< A[I,I]) Alors Max← A[I,I]; Cmax←I;Lmax←I Fsi ; /*Diag Princ
/*Diag secondaire – relation renter indice I N+1-I
Si Max< A[I,N+1-I]) Alors Max← A[I,N+1-I]; Cmax←N+1-I;Lmax←I Fsi;
Fait ;
Ecrire(‘Max=’,Max,’Position Ligne :’,Lmax,’ Colonne :’,Cmax) ;
Fin.
Ajouter un commentaire
Veuillez vous connecter pour ajouter un commentaire.
Pas encore de commentaires.