Affichage de tableaux

Version imprimable

Bonjour,
j'ai problème avec mon code pascal
le problème : l'affichage des résultats donne des zeros
je veux savoir le problème
voici mon code:

Code:

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
50
51
52
53
54
 
program ex7; 
uses wincrt; 
type tab=array [0..100] of longint; 
var x,y,z:longint; T1,T2:tab; 
i,n:integer; 
 
procedure saisirtaille(var n:integer); 
begin 
repeat 
write ('donner la taille du tableau '); 
readln(n); 
until (n in [1..100]); 
end; 
 
procedure saisirelements(var T1:tab;n:integer); 
begin writeln('donner des entiers à 3 chiffres'); 
for i:=1 to n do 
begin 
repeat 
write('T1[',i,']='); 
readln(T1[i]); 
until (T1[i]>=100)and(T1[i]<=999); 
end; 
end; 
 
procedure remplir(var T2:tab;T1:tab;n:integer;var x,y,z:longint); 
begin 
for i:= 1 to n do 
begin 
x:= ( T1[i] div 100); 
y:= ((T1[i] mod 100)div 10); 
z:= ((T1[i] mod 100) mod 10); 
T2[i]:= ((sqr(x))+(sqr(y))+sqr(z)); 
 
end; 
end; 
 
procedure afficher(T1,T2:tab;n:integer); 
begin 
for i:=1 to n do 
begin 
write ('T1[',i,']=',T1[i]); 
write (' '); 
writeln('T2[',i,']=',T2[i]); 
end; 
end; 
 
begin 
saisirtaille(n); 
saisirelements(T1,n); 
remplir(T1,T2,n,x,y,z); 
afficher(T1,T2,n); 
end.

merci d'avance pour vos réponses.

08/02/2010, 21h09
krachik

Bonjour

Il serait utile de préciser aussi ce que fait ton programme.

Pour revenir à ton soucis, regardes l'ordre de passage de tes paramètre à la procédure remplir et comment c'est traité dans la procédure ;)
Vu ce que fait ta procédure il faut intervertir les paramètres passés.

Code:

remplir(T2,T1,n,x,y,z);

Tu vois ce que je veux dire? prends également le temps d'indenter ton code :P

Cordialement

Hoe,

Au passage, prends l'habitude de mettre ton code en forme.

Par exemple

Code:

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
50
51
52
53
54
55
56
57
58
program ex7; 
 
uses wincrt; 
 
type 
  tab = array [0..100] of Longint; 
var 
  x, y, z: Longint; 
  T1, T2: tab; 
  i, n: Integer; 
 
procedure saisirtaille(var n: Integer); 
begin 
  repeat 
    Write ('donner la taille du tableau '); 
    Readln(n); 
  until (n in [1..100]); 
end; 
 
procedure saisirelements(var T1: tab; n: Integer); 
begin 
  Writeln('donner des entiers à 3 chiffres'); 
  for i := 1 to n do 
  begin 
    repeat 
      Write('T1[', i, ']='); 
      Readln(T1[i]); 
    until (T1[i] >= 100) and (T1[i] <= 999); 
  end; 
end; 
 
procedure remplir(var T2: tab; T1: tab; n: Integer; var x, y, z: Longint); 
begin 
  for i := 1 to n do 
  begin 
    x     := (T1[i] div 100); 
    y     := ((T1[i] mod 100) div 10); 
    z     := ((T1[i] mod 100) mod 10); 
    T2[i] := ((Sqr(x)) + (Sqr(y)) + Sqr(z)); 
  end; 
end; 
 
procedure afficher(T1, T2: tab; n: Integer); 
begin 
  for i := 1 to n do 
  begin 
    Write ('T1[', i, ']=', T1[i]); 
    Write (' '); 
    Writeln('T2[', i, ']=', T2[i]); 
  end; 
end; 
 
begin 
  saisirtaille(n); 
  saisirelements(T1, n); 
  remplir(T1, T2, n, x, y, z); 
  afficher(T1, T2, n); 
end.

C'est tout de suite plus lisible, non ?

(Je me suis contenté de le mettre en forme, pas de correction. À dire vrai, je ne l'ai même pas lu, trop feignant ce soir :)).

14/02/2010, 19h17
slim_java
salut
il ya une erreur " quotidienne " dans le passage des paramètres
le ; et la cause de l'erreur
donc soit tu fais comme ca
Code:

1 2 procedure remplir(var T2 , T1: tab; n: Integer; var x, y, z: Longint);
ou
Code:

1 2 procedure remplir(var T2: tab ; var T1: tab; n: Integer; var x, y, z: Longint);
sinon pour le reste j'ai pas testé mais ca était juste un clin d'œil vu l'erreur que tu reçois

Bonjour
Citation:
Envoyé par slim_java
salut
il ya une erreur " quotidienne " dans le passage des paramètres
le ; et la cause de l'erreur
donc soit tu fais comme ca
Code:

1 2 procedure remplir(var T2 , T1: tab; n: Integer; var x, y, z: Longint);
ou
Code:

1 2 procedure remplir(var T2: tab ; var T1: tab; n: Integer; var x, y, z: Longint);
sinon pour le reste j'ai pas testé mais ca était juste un clin d'œil vu l'erreur que tu reçois
Je ne vois pas pourquoi il passerait T1 par adresse alors que le code ne le demande pas (il y a que lecture de T1)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure remplir(var T2:tab;T1:tab;n:integer;var x,y,z:longint); begin for i:= 1 to n do begin x:= ( T1[i] div 100); y:= ((T1[i] mod 100)div 10); z:= ((T1[i] mod 100) mod 10); T2[i]:= ((sqr(x))+(sqr(y))+sqr(z)); end; end;

Citation:
Envoyé par krachik
Bonjour

Je ne vois pas pourquoi il passerait T1 par adresse alors que le code ne le demande pas (il y a que lecture de T1)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure remplir(var T2:tab;T1:tab;n:integer;var x,y,z:longint); begin for i:= 1 to n do begin x:= ( T1[i] div 100); y:= ((T1[i] mod 100)div 10); z:= ((T1[i] mod 100) mod 10); T2[i]:= ((sqr(x))+(sqr(y))+sqr(z)); end; end;
salut
tout a fait d'accord
:lol: j'ai cru que j'ai pu deviné l'erreur sans voir le code ..DSL
tu avais raison pour ta premiére réponse remplir(T2,T1,n,x,y,z);