Somme
Résolu/Fermé1 réponse
KX
Messages postés
16755
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
12 février 2025
3 020
6 janv. 2013 à 19:38
6 janv. 2013 à 19:38
Il n'y a pas d'erreur (ça compile), donc il va falloir expliquer ce qu'est censé faire ton code pour trouver ce qui ne fonctionne pas comme tu le voudrais...
6 janv. 2013 à 20:11
program matr;
uses wincrt;
type
Matrice=array[1..20,1..20]of integer;
var
Mat:Matrice;
l,c,nl,nc,s:integer;
Procedure Saisie(var nl,nc:integer);
begin
writeln('Donner le nombre de lignes');
readln(nl);
writeln('Donner le nombre de colonnes');
readln(nc);
end;
Procedure Remplissage_Mat(var Mat:Matrice;nc,nl,i,j:integer);
begin
if i<=nl then
if j<=nc then
begin
write('Donner Mat[',i,',',j,'] ');
readln(Mat[i,j]);
remplissage_mat(mat,nc,nl,i,j+1);
end
else
remplissage_mat(mat,nc,nl,i+1,1);
end;
procedure affiche (mat:matrice;nc,nl:integer);
var
i,j:integer;
begin
for i:=1 to nl do
begin
writeln;
for j:=1 to nc do
write(Mat[i,j]:4);
end;
end;
procedure somme(mat:matrice;nc,nl,i,j:integer;var s:integer);
begin
s:=0;
if i<=nl then
if j<= nc then
begin
s:=s+mat[i,j];
somme(mat,nc,nl,i,j+1,s);
end
else
somme(mat,nc,nl,i+1,1,s);
end;
BEGIN
{$M 63000,000}
saisie(nl,nc);
remplissage_mat(mat,nc,nl,1,1);
clrscr;
affiche(mat,nc,nl);
writeln;
somme(mat,nc,nl,1,1,s);
write(s);
end.
6 janv. 2013 à 20:24
Remarque : normalement la récursivité se fait en diminuant la difficulté (donc en diminuant la taille de la matrice au fur et à mesure) alors que ta récursivité l'augmente.
Du coup tu as beaucoup de paramètres à gérer, alors qu'on pourrait en avoir beaucoup moins :
Remarque : il y a une manière itérative évidente pour faire ce calcul :
Exemple de programme de test :
6 janv. 2013 à 20:31