Problème d'affichage de caractères
Salut tout le monde,
je viens ici pour décrire un problème qui se pose dés que j'essaie d'afficher plusieurs cases contenant des entiers, donc un tableau d'entiers; j'ai utilisé pour cela le programme suivant :
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
| program ppp;
var
t1:array[1..15] of longint;
t2:array[1..15] of integer;
t,i,m,j:integer;
begin
write('comme bien votre tableau comporte_il de valeurs?');
read(m);
for i:=1 to m do
begin
write('comme bien l''entier contient-il de chiffres?');
read(t2[i]);
write('taper l''entier');
read(t1[i]);
end;
for i:=1 to m do
begin
write(chr(218));
for j:=1 to t2[i] do
write(chr(196));
writeln(chr(191));
write(chr(179));
write(t1[i]);
writeln(chr(179));
write(chr(192));
for j:=1 to t2[i] do
write(chr(196));
end;
end. |
Quand le tableau ne contient qu'une seule valeur alors la case s'affiche correctement contenant l'entier tapé par l'utilisateur du programme; mais dès que ça dépasse un entier, les cases ne s'affichent pas l'une après l'autre mais à chaque fois ça revient à la ligne à nouveau pour la case suivante et moi j'ai besoin des cases adjacentes pour dessiner un tableau correct. Je ne sais pas ce qui ne va pas dans ce programme car quant à l'affichage de plusieurs caractères, il s'affichent automatiquement un devant l'autre mais quant à des cases ça ne marche pas. J'espère pourvoir décrire le sujet clairement merci d'avance.
(j'utilise bien ici le Turbo Pascal)
