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 ...
matrice récurcive
 
 
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 -> Récursivité
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
bac-2010


Hors ligne

Inscrit le: 15 Fév 2010
Messages: 1
Point(s): 1
Moyenne de points: 0

Posté le: Lun 15 Fév - 19:19 (2010)    Sujet du message: matrice récurcive Répondre en citant

PublicitéSupprimer les publicités ?
donner une fonction recurcive qui permet de calculer la somme d'une matrice


 
Revenir en haut
salihou


Hors ligne

Inscrit le: 16 Fév 2010
Messages: 1
Point(s): 2
Moyenne de points: 0

Posté le: Mar 16 Fév - 17:26 (2010)    Sujet du message: matrice récurcive Répondre en citant

salut voila une solution que j'ai faite moi même, je suis pas sur d'elle a 100% mais normalement cava


program salih;
uses wincrt;
type
matrice=array[1..10,1..10] of integer;


var
i,j,n:integer;
M:matrice;


procedure saisie(var n:integer;var M:matrice);
var
i,j:integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
readln(m[i,j]);
end;
end;
end;


function somme(i,j,n:integer; m:matrice):integer;
begin
if (i=n) and (j=n) then
somme:=m[n,n]
else if j=n then
somme:=m[i,j]+somme(i+1,1,n,M)
else somme:=m[i,j]+somme(i,j+1,n,M);
end;


begin
saisie(n,m);
writeln(somme(1,1,n,m));
end.


 
Revenir en haut
ZeRa


Hors ligne

Inscrit le: 07 Avr 2010
Messages: 8
Point(s): 8
Moyenne de points: 0

Posté le: Ven 6 Mai - 13:18 (2011)    Sujet du message: matrice récurcive Répondre en citant

Mat = array[0..9, 0..9] of integer;
function somme(M : Mat; n, p : integer) : integer;
begin
if p = n*n then somme := m[n, n]
else somme := m[p div n, p mod n] + somme(M, n, p+1);
end;
premier appel : somme(M, n, 0);


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 19:34 (2016)    Sujet du message: matrice récurcive

 
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 -> Récursivité 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