Discussion :

[siho90]

voila, il s'agit d'écrire un programme Pascal intitulé DivSom, permettant :
• De saisir un entier n (3<=n<=20)
• De remplir un tableau T par n entiers positifs non nuls
• De calculer et d’afficher la somme S de tous les éléments du tableau T
• De déterminer et d’afficher tous les éléments du tableau T qui sont des diviseurs de la somme S

voila ce que j'ai fait mais ça ne marche pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
program divsom;
uses wincrt;
type tab= array[1..100] of integer;
var t,v:tab; n,sm,i:integer;
procedure remplissage (var t:tab; var n:integer);
var i:integer;
begin
repeat
writeln ('donner le nombre de cases');
readln (n);
until n in [3..20];
 
for i:=1 to n do
begin
repeat
writeln ('t[',i,']=');
readln(t[i]);
until t[i]>=0;
end;
 
end;
 
 
function somme (t:tab;n:integer):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to n do
s:=s+t[i];
somme:=s;
 
end;
 
procedure divisible (t:tab; n:integer;s:integer);
var i,ss:integer; v:tab;
begin
ss:= somme (t,n);
for i:= 1 to n do
if t[i] mod ss =0 then v[i]:= t[i];
end;
 
begin
remplissage (t,n);
sm:= somme (t,n);
writeln(sm);
divisible (t,n,sm);
for i:= 1 to n do
writeln (v[i]);
end.

merci de me dire ce qui cloche parce que ça me donne la somme mais pas les diviseurs

[droggo]

Voe,

Regarde bien ton programme, en particulier les variables, et tu comprendras (entre autres, une des raisons pour lesquelles les variables globales sont à proscrire).

[siho90]

j'ai vérifié mes variables et j'ai fait qq changements mais ça reste non exécutable:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
program divsom;
uses wincrt;
type tab= array[1..100] of integer;
var t,v:tab; n,ss,i:integer;
 
procedure remplissage (var t:tab; var n:integer);
var i:integer;
begin
repeat
writeln ('donner le nombre de cases');
readln (n);
until n in [3..20];
 
for i:=1 to n do
begin
repeat
writeln ('t[',i,']=');
readln(t[i]);
until t[i]>=0;
end;
end;
 
 
function somme (t:tab;n:integer):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to n do
s:=s+t[i];
somme:=s;
end;
 
procedure divisible (t:tab; n:integer);
var i,ss:integer; v:tab;
begin
ss:= somme (t,n);
 
for i:= 1 to n do
if t[i] mod ss =0 then v[i]:= t[i];
end;
 
begin
remplissage (t,n);
ss:= somme (t,n);
writeln(ss);
divisible (t,n);
for i:= 1 to n do
writeln (v[i]);
end.

Qu'est ce qui cloche exactement ? je ne vois pas...

[M.Dlb]

Comme l'a dit Droggo, tu utilises les mêmes noms de variables pour tes variables locales, tes paramètres de procédure et tes variables globales, ce qui prête à confusion... Renomme les explicitement, et change l'indentation de ton code.

[siho90]

Bon voila j'ai enlevé les variables locales que j'avais déjà déclaré en tant que variables globales et ça donne ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
program divsom;
uses wincrt;
type tab= array[1..100] of integer;
var t,v:tab; n,ss,i:integer;
 
procedure remplissage (var t:tab; var n:integer);
begin
repeat
writeln ('donner le nombre de cases');
readln (n);
until n in [3..20];
 
for i:=1 to n do
begin
repeat
writeln ('t[',i,']=');
readln(t[i]);
until t[i]>=0;
end;
end;
 
 
function somme (t:tab;n:integer):integer;
var s:integer;
begin
s:=0;
for i:=1 to n do
s:=s+t[i];
somme:=s;
end;
 
procedure divisible (t:tab; n:integer);
var p:integer;
begin
p:= somme (t,n);
 
for i:= 1 to n do
if t[i] mod p =0 then v[i]:= t[i];
end;
 
begin
remplissage (t,n);
ss:= somme (t,n);
writeln(ss);
divisible (t,n);
for i:= 1 to n do
writeln (v[i]);
end.

il faut me dire exactement où est le problème
c'est urgent
je passe un exam demain et je ne veux pas rester sur un echec

[rours]

Voe,

Regarde bien ton programme, en particulier les variables, et tu comprendras (entre autres, une des raisons pour lesquelles les variables globales sont à proscrire).

A mon avis ta pas enlever la bonne chose

[darrylsite]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
program divsom;]
procedure divisible (t:tab; n:integer;s:integer);
var i,ss:integer;
     v:tab;
begin
ss:= somme (t,n);
for i:= 1 to n do
if t[i] mod ss =0 then v[i]:= t[i];
end;

En regardant le premier code que tu as posté, on remarque que tu as utilisé la variable v à l'interieur de la procedure divible. Cette variable est locale et ne peut donc etre accessible de l'exterieur. Quand tu utilise la variable globale v de meme nom dans le programme principale, tu te disais sans doute que c'est le meme v que tu as utilisé dans la procedure divisible. L'erreur viens de là. Ces deux variables sont bien distinctes.
Pour modifier la valeur de la variable globale v, tu as deux solutions, soit tu vires la variable locale v de la procedure divisible, soit tu passes le tableau v par adresse à ta procedure.
la deuxieme solution donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure divisible (t : tab; var t2 : tab; n : integer; var taille : integer);
 var i, ss : integer;
begin
ss:= somme (t,n);
taille:=0;
for i:= 1 to n do
if t[i] mod ss =0 then
 begin
  t2[i]:= t[i];
  taille:=taille+1;
 end;
end;

Il faut aussi savoir que la taille du tableau des diviseurs n'est pas forcement la meme que la taille du tableau contenant tous les nombres.C'est pourquoi j'ai passé la variable taille pour prendre la nouvelle taille.
D'où le programme principale

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
//sm devient la taille du tableau des diviseurs
divisible (t, v, n, sm);
for i:= 1 to sm do
writeln (v[i]);