hg Register Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index

hg Revision tunisie scolaire Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Search Search Memberlist Memberlist Usergroups Usergroups Profile Profile Log in to check your private messages Private Messages Log in Log in


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum révision tunisie , 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
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> Récursivité
hg Previous topic :: Next topic   hd
Author Message
bac-2010


Offline

Joined: 15 Feb 2010
Posts: 1
Point(s): 1
Moyenne de points: 0

Posted: Mon 15 Feb - 19:19 (2010)    Post subject: matrice récurcive Reply with quote

donner une fonction recurcive qui permet de calculer la somme d'une matrice

 
Revenir en haut
Publicité






Posted: Mon 15 Feb - 19:19 (2010)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
salihou


Offline

Joined: 16 Feb 2010
Posts: 1
Point(s): 2
Moyenne de points: 0

Posted: Tue 16 Feb - 17:26 (2010)    Post subject: matrice récurcive Reply with quote

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


Offline

Joined: 07 Apr 2010
Posts: 7
Point(s): 7
Moyenne de points: 0

Posted: Fri 6 May - 13:18 (2011)    Post subject: matrice récurcive Reply with quote

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
Display posts from previous:   
bg bd
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> Récursivité All times are GMT + 1 Hour
 
Page 1 of 1

 
Jump to:  
Index | Make forum | Free support forum | Free forums directory | Report a violation | Cookies | Charte | Conditions générales d'utilisation