Algorithme et pascal
Fermé
has-san
Messages postés
8
Date d'inscription
lundi 8 juin 2009
Statut
Membre
Dernière intervention
9 juin 2009
-
9 juin 2009 à 00:05
matia - 11 juin 2009 à 01:39
matia - 11 juin 2009 à 01:39
A voir également:
- Traduction algorithme en pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- Traduction photo - Guide
- My pascal - Télécharger - Édition & Programmation
- Google traduction français arabe - Télécharger - Traduction
- Traduction créole guadeloupe français reverso - Forum Loisirs / Divertissements
5 réponses
ninouhhichem
Messages postés
201
Date d'inscription
jeudi 21 mai 2009
Statut
Membre
Dernière intervention
21 juin 2009
9
9 juin 2009 à 00:18
9 juin 2009 à 00:18
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
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
bizu53
Messages postés
1274
Date d'inscription
samedi 30 août 2008
Statut
Membre
Dernière intervention
21 juin 2015
860
9 juin 2009 à 00:20
9 juin 2009 à 00:20
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.
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.
moroccovich
Messages postés
97
Date d'inscription
vendredi 19 décembre 2008
Statut
Membre
Dernière intervention
24 avril 2010
16
9 juin 2009 à 00:23
9 juin 2009 à 00:23
?
has-san
Messages postés
8
Date d'inscription
lundi 8 juin 2009
Statut
Membre
Dernière intervention
9 juin 2009
9 juin 2009 à 00:23
9 juin 2009 à 00:23
mrci de tte façon mais je le cherche en langage pascal
si ta la reponce tu px me l"envoyer
merci déavance
si ta la reponce tu px me l"envoyer
merci déavance
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
has-san
Messages postés
8
Date d'inscription
lundi 8 juin 2009
Statut
Membre
Dernière intervention
9 juin 2009
9 juin 2009 à 00:39
9 juin 2009 à 00:39
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.
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.