Algorithme et pascal [Fermé]

Signaler
Messages postés
8
Date d'inscription
lundi 8 juin 2009
Statut
Membre
Dernière intervention
9 juin 2009
-
 matia -
Bonjour,
je cherche la resolution du problème :
'"ecrire un programme qui lit les dimensions L et C d'un tableau T à deux dimensions du type int (dimension maximales : 50 lignes et 50 colonnes ) remplir le tableau par des valeurs entrées au clavier et afficher le tableau ainsi que la somme de tous ses éléments .""

5 réponses

Messages postés
201
Date d'inscription
jeudi 21 mai 2009
Statut
Membre
Dernière intervention
21 juin 2009
7
slt
c'est une matrice de L ligne et c colone
L,c,i,j,som:entier
t[50][50]:table
debut
lire(L,c)
som=0
ecrire(entrez les valeurs de table)
pour i=0 a L
porj=0 a c
debut
lire(T[i][j])
som=som+t[i][j]
fin

/*affichage*/
pour i=0 a L
porj=0 a c
ecrire(T[i][j])

ecrire(som)

fin
Messages postés
1274
Date d'inscription
samedi 30 août 2008
Statut
Membre
Dernière intervention
21 juin 2015
829
Ce n'est pas sur ce forum que tu auras une solution toute faite.
C'est vraiment la base ce que tu demandes (quelque soit le langage d'ailleurs) : Je te conseille fortement d'y réfléchir par toi même à la solution car c'est en te faisant faire cet exercice que tu seras complètement largué en programmation par la suite à ne pas réfléchir dès le moindre blocage.
Messages postés
97
Date d'inscription
vendredi 19 décembre 2008
Statut
Membre
Dernière intervention
24 avril 2010
16
?
Messages postés
8
Date d'inscription
lundi 8 juin 2009
Statut
Membre
Dernière intervention
9 juin 2009

mrci de tte façon mais je le cherche en langage pascal
si ta la reponce tu px me l"envoyer
merci déavance
Messages postés
8
Date d'inscription
lundi 8 juin 2009
Statut
Membre
Dernière intervention
9 juin 2009

yak ma l montada dyal bak
prog kjhff;
uses crt;
var
mat:array [1..50,1..50] of integer;
somme,n,m,i,j:integer;

BEGIN
clrscr;
write('entrer la taille de la matrice');
readln(n,m);
fori:=1 to n do
for j:=1 to m do
read (mat[i,j]);
somme:=0;
for i:=1 to n do
begin
for j:=1 to m do
somme :=somme+mat[i,j];
end;
for i:=1 to n do
for j:=1 to m do
write (mat{i,j]) ;
end; write(' la somme = ',somme); readln; end.