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 : 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
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.