Algorithme et pascal
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 .""
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 .""
Configuration: Windows XP Internet Explorer 6.0
5 réponses
-
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 -
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. -
?
-
mrci de tte façon mais je le cherche en langage pascal
si ta la reponce tu px me l"envoyer
merci déavance -
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.
-
