hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
Diagonales de la matrice
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Ven 19 Fév - 22:15 (2010)    Sujet du message: Diagonales de la matrice Répondre en citant

PublicitéSupprimer les publicités ?
calculer la somme des element de premier diagonal et la 2eme diagonal puis le transposé d'une matrice en utilisant un methode recursif:


program som_trans;
uses wincrt;
type
     mat=array[1..10,1..10] of integer;
var n,j,i:integer; m:mat;
{*******************************************}
procedure remlissage(var m:mat;n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('M[',i,',',j,']=');
readln (M);
end;
end;
 {**********************************************}
function som_diag1(m:mat; n,i:integer):integer;
 begin
if i=N then som_diag1:=m[n,n]
else
som_diag1:=m+som_diag1(m,n,i+1);
end;
{*****************************************}
function som_diag2(m:mat; n,i:integer):integer;
 
begin
if i=N then som_diag2:=m[n,1]
else
som_diag2:=m+som_diag2(m,n,i+1);
end;  

{transposé da la matrice}
procedure trans(var M:mat;n:integer; var i,j:integer);
var  aux:integer;
begin
if i<=n then
begin
if j<=i-1 then
    begin
    aux:=m;
    m:=m[j,i];
    m[j,i]:=aux;
    j:=j+1;
    trans(m,n,i,j);
    end;
    j:=1;
    i:=i+1;
    trans(m,n,i,j);
end;
   
end;

{********************************************}

begin
write('nombre des lignes= '); readln(n);
remlissage(m,n);
i:=1;
writeln('somme diago1  = ', som_diag1(m,n,i));
i:=1;
writeln('somme diago2 = ',som_diag2(m,n,i));
i:=1; j:=1;
trans(M,n,i,j);
{affichage de la matrice}
for i:=1 to n do
   begin
   for j:=1 to n do
     write(m,'  ');
   writeln;
   end;

end.


Pour télécharger


Dernière édition par KARIMOS le Sam 20 Fév - 15:29 (2010); édité 1 fois
 
Revenir en haut
ayoubbac210


Hors ligne

Inscrit le: 24 Jan 2010
Messages: 3
Point(s): 3
Moyenne de points: 0

Posté le: Ven 19 Fév - 23:18 (2010)    Sujet du message: Diagonales de la matrice Répondre en citant

merciiiiiiiiiiiiiiiiiiii 

 
Revenir en haut
w@lid


Hors ligne

Inscrit le: 30 Nov 2008
Messages: 4
Masculin
Point(s): 25
Moyenne de points: 0

Posté le: Sam 20 Fév - 08:12 (2010)    Sujet du message: Diagonales de la matrice Répondre en citant

merci
très joli et intéressant exercice


 
Revenir en haut
r.nsiri
recent membre
recent membre

Hors ligne

Inscrit le: 09 Jan 2009
Messages: 262
Masculin
Point(s): 304
Moyenne de points: 0

Posté le: Mer 3 Mar - 08:16 (2010)    Sujet du message: Diagonales de la matrice Répondre en citant


_________________
Cordialement


 
Revenir en haut
r.nsiri
recent membre
recent membre

Hors ligne

Inscrit le: 09 Jan 2009
Messages: 262
Masculin
Point(s): 304
Moyenne de points: 0

Posté le: Mer 21 Avr - 09:57 (2010)    Sujet du message: Diagonales de la matrice Répondre en citant

Okay Okay Okay Okay Okay Okay Okay  thanks
_________________
Cordialement


 
Revenir en haut
naimo


Hors ligne

Inscrit le: 04 Juin 2010
Messages: 2
Point(s): 2
Moyenne de points: 0

Posté le: Dim 6 Juin - 15:06 (2010)    Sujet du message: Diagonales de la matrice Répondre en citant

l'exercie ne pas juste c grave dsl Sad  Shocked Shocked Shocked

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 06:55 (2016)    Sujet du message: Diagonales de la matrice

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation