Sciences de l'informatique
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.

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
 
AccueilDernières imagesS'enregistrerConnexion
Sujets similaires
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Derniers sujets
» Cours sur les fichiers
Exercice 4 (Récursivité) Icon_minitime1Lun 2 Mai - 13:32 par kaouther

» série révision finale
Exercice 4 (Récursivité) Icon_minitime1Ven 15 Avr - 2:32 par Dhifallah Fethi

» Conversion de nombre décimal vers un nombre binaire
Exercice 4 (Récursivité) Icon_minitime1Mar 29 Mar - 2:27 par Dhifallah Fethi

» Divisibilité par 5 (Algoritmes arithmétiques)
Exercice 4 (Récursivité) Icon_minitime1Mar 29 Mar - 2:24 par Dhifallah Fethi

» Divisibilité par 4 (Algoritmes arithmétiques)
Exercice 4 (Récursivité) Icon_minitime1Mar 29 Mar - 2:18 par Dhifallah Fethi

» Série enregestrement et fichier avec corection
Exercice 4 (Récursivité) Icon_minitime1Mar 29 Mar - 1:30 par Dhifallah Fethi

» Exercice 8 (Algorithmes récurrents)
Exercice 4 (Récursivité) Icon_minitime1Lun 28 Mar - 2:34 par Dhifallah Fethi

» Exercice 7 (Algorithmes récurrents)
Exercice 4 (Récursivité) Icon_minitime1Lun 28 Mar - 2:23 par Dhifallah Fethi

» Exercice 6 (Algorithmes récurrents)
Exercice 4 (Récursivité) Icon_minitime1Lun 28 Mar - 2:18 par Dhifallah Fethi

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Mars 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
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

 

 Exercice 4 (Récursivité)

Aller en bas 
AuteurMessage
Dhifallah Fethi
Admin
Dhifallah Fethi


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

Exercice 4 (Récursivité) Empty
MessageSujet: Exercice 4 (Récursivité)   Exercice 4 (Récursivité) Icon_minitime1Ven 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
https://ntic.yoo7.com
 
Exercice 4 (Récursivité)
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Exercice 8 (Récursivité)
» Exercice 9 (Récursivité)
» Exercice 1 (récursivité)

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: