Algorithme et pascal

has-san Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
 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 .""
A voir également:

5 réponses

ninouhhichem Messages postés 201 Date d'inscription   Statut Membre Dernière intervention   9
 
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
0
bizu53 Messages postés 1274 Date d'inscription   Statut Membre Dernière intervention   861
 
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.
0
moroccovich Messages postés 97 Date d'inscription   Statut Membre Dernière intervention   16
 
?
0
has-san Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
mrci de tte façon mais je le cherche en langage pascal
si ta la reponce tu px me l"envoyer
merci déavance
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
has-san Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
yak ma l montada dyal bak
0
matia
 
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.
0