Sciences de l'informatique

Bienvenue dans notre forum de partage et d'échange d'information technique dans le domaine NTIC (Informatique, Programmation, Réseau, Multimédia), ce forum est destinée à tous les élèves Tunisiens
 
AccueilCalendrierFAQMembresGroupesS'enregistrerConnexion
Sujets similaires
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Derniers sujets
Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Janvier 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier
Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 6 le Ven 13 Jan - 2:22

Partagez | 
 

 Exercice 4 (Récursivité)

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Dhifallah Fethi
Admin


Messages : 74
Date d'inscription : 02/03/2011

MessageSujet: Exercice 4 (Récursivité)   Ven 18 Mar - 2:58

Exercice 4

Donner une fonction récursive qui permet de calculer la somme d'une matrice.

Réponse

Code:
program Somme_Matrice;
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
write('taille de matrice:');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
write('m[',i,',',j,']=');
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('la somme de matrice est:',somme(1,1,n,m));
end.
Revenir en haut Aller en bas
http://ntic.moontada.net
 
Exercice 4 (Récursivité)
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» les exercice de chimie 2

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Sciences de l'informatique :: 4ème SI :: Programmation :: Exercices & Devoirs-
Sauter vers: