Problème d'affichage d'un tableau

**Sid ali** · 24/02/2006, 20h18

J'ai un petit problème dans l'affichage d'un Tableau.
Le truc c'est :
Si les données sont différentes dans le nombres de caractères, par exemple si une case a un mot avec 5 caractères et une autre case dans la meme colonne a 6 caractères, cela provoque un décalage.

Ma question est : Existe-t-il un truc pour eviter les décalages du tableau ?

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
Program Foot;
uses Crt;
Type Score=record
     N,P,G,M,E,Ps:integer;
end;
Var Cpt,I,Min,Max,X:integer;
    T: array[1..6] of Score;
    Nom: array[1..6] of String;
Begin
randomize;
clrscr;
Nom[1]:=('Allemagne');
Nom[2]:=('Angleterre');
Nom[3]:=('Argentine');
Nom[4]:=('Brésil');
Nom[5]:=('Italie');
Nom[6]:=('Mexique');
For (I) := 1 to 2 Do
Begin
writeln ('L''equipe ',Nom[I]);
write ('Donnez le nombre de match gagné‚ : ');
read(T[I].G);
write ('Donnez le nombre de match perdu : ');
read(T[I].P);
write ('Donnez le nombre de match nul : ');
read(T[I].N);
write ('Donnez le nombre de but marqué‚ : ');
read(T[I].M);
write ('Donnez le nombre de but encaissé : ');
read(T[I].E);
End;
clrscr;
writeln ('');
write (' ╔════════════╦══════════╦══════════╦══════════╦══════════╦══════════╦═════════╗');
write (' ║  Equipes   ║ Matchs G ║ Matchs P ║ Matchs N ║ Buts Mar ║ Buts Enc ║ Points  ║');
write (' ╠════════════╬══════════╬══════════╬══════════╬══════════╬══════════╬═════════╣');
write (' ║ ',Nom[X],' ║',T[I].G,'║',T[I].P,'║',T[I].N,'║',T[I].M,'║',T[I].E,'║',T[I].Ps,'║');
write (' ╠════════════╬══════════╬══════════╬══════════╬══════════╬══════════╬═════════╣');
write (' ║ ',Nom[X],' ║',T[I].G,'║',T[I].P,'║',T[I].N,'║',T[I].M,'║',T[I].E,'║',T[I].Ps,'║');
write (' ╠════════════╬══════════╬══════════╬══════════╬══════════╬══════════╬═════════╣');
write (' ║ ',Nom[X],' ║',T[I].G,'║',T[I].P,'║',T[I].N,'║',T[I].M,'║',T[I].E,'║',T[I].Ps,'║');
write (' ╠════════════╬══════════╬══════════╬══════════╬══════════╬══════════╬═════════╣');
write (' ║ ',Nom[X],' ║',T[I].G,'║',T[I].P,'║',T[I].N,'║',T[I].M,'║',T[I].E,'║',T[I].Ps,'║');
write (' ╠════════════╬══════════╬══════════╬══════════╬══════════╬══════════╬═════════╣');
write (' ║ ',Nom[X],' ║',T[I].G,'║',T[I].P,'║',T[I].N,'║',T[I].M,'║',T[I].E,'║',T[I].Ps,'║');
write (' ╠════════════╬══════════╬══════════╬══════════╬══════════╬══════════╬═════════╣');
write (' ║ ',Nom[X],' ║',T[I].G,'║',T[I].P,'║',T[I].N,'║',T[I].M,'║',T[I].E,'║',T[I].Ps,'║');
write (' ╚════════════╩══════════╩══════════╩══════════╩══════════╩══════════╩═════════╝');
 
Readln;
Readln;
end.

Merci

**JoseF** · 24/02/2006, 21h17

Bonjour,

adapte ton tableau dessiné à la longueur du mot le plus grand
et complete les noms plus petits par des espaces.

bien sûr le tout en Pascal pour arriver à cela si tu veux cadrer à droite..

Code :

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

1
2
3
4
Nom[1]:=(' Allemagne'); 
Nom[2]:=('Angleterre'); 
Nom[3]:=(' Argentine'); 
Nom[4]:=('    Brésil');

Ps ça me parait bizarre que tu utilises Write à la place de Writeln pour le retour à la ligne ...

**Sid ali** · 25/02/2006, 14h30

J'ai pas trop compris ton truc

Excuse-moi, peut tu m'expliqué un peut plus car j'ai pas tout compris

Merci

**M.Dlb** · 25/02/2006, 15h56

En gros, il faut fixer la taille des colonnes, genre 10 caractères. C'est pas très simple pour le commun des mortels, mais tu devrais y arriver sans souci

**Sid ali** · 25/02/2006, 16h37

il faut fixer la taille des colonnes, genre 10 caractères

Fixer la taille des colonnes !!!

Commant cela se fait

:

Un truc

Dans l'affichage du tableau il faut que les valeur mise dans le tableau soit toujours de meme nombre de caractere
Du genre si la valeur mise dans le tableau est de 30
La limite minimal est 10 et la limite maximal est 99

Si je met une valeur differente un decalage se produira

Si vous voyez ce que je veut dire
Merci

**M.Dlb** · 25/02/2006, 16h53

Oui c'est exactement ça. Si tu affiches des chiffres de 2 nombres, tous les chiffres que tu affiches doivent être de deux nombres sinon il y a un décalage. Même problèe avec des lettres, si tu affiches des mots de 8 huits lettres, tous les mots doivent être de huit lettres sinon il a un décalage. Pour éviter ça, tu prends le mot que tu dois afficher qui a le plus de lettre, et tu alignes tous les autres mots sur cette longueur.

**Sid ali** · 25/02/2006, 17h17

Je pense que je dois ecrire le tableau avec la methode la plus longue
Des condition avec

Code :

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

If ... Then Gotoxy ( , )

En verifiant la donnée la plus longue comme vous l'avez dit
C'est la seule methode a mon avis

Juste un truc !!
Le decalage que je connais moi c'est de diminué la taille des cases au minimum pour laissé l'utilisateur d'ecrire dedans
Mais y'a un inconveniant moi je vais le fixer par example à 3 caracteres ce qui va faire aussi un decalege si l'utilisateur n'ecrit pas 3 caracteres
Donc je revien au debut

Merci

**Alcatîz** · 26/02/2006, 09h46

Bonjour !

Si tu fixes comme valeur maximale 99 pour l'utilisateur, tu ne valides le nombre qu'il a encodé que s'il est compris entre 0 et 99, sinon tu lui dis de recommencer.

Ensuite, le plus simple est de convertir le nombre en chaîne à l'aide de str(). Si le nombre est inférieur à 10, tu insères un espace blanc dans ta chaîne.

Enfin, pour afficher le tableau, tu n'as plus qu'à considérer que tous les nombres à afficher font exactement 2 caractères, ce qui te simplifiera la vie.

**Sid ali** · 26/02/2006, 11h23

Pour vous Mr.Alcatîz

Si tu fixes comme valeur maximale 99 pour l'utilisateur, tu ne valides le nombre qu'il a encodé que s'il est compris entre 0 et 99, sinon tu lui dis de recommencer.

Si je fixe la valeur maximal a 9 c'est facile
Je dois juste decalé d'un caractere
Mais si je fixe a 99 je dois decalé de 2 caracteres
Ce qui fait un decalage si l'utilisateur donne une valeur de moin 10

Si vous voyez ce que je veut dire !!!

**Alcatîz** · 26/02/2006, 12h04

Ah oui, pardon, je raisonnais en décalage dans le nombre à afficher et pas en décalage au niveau du tableau.

Ne serait-il pas plus simple d'afficher une ligne de tableau vierge

Code :

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

1
2
3
4
writeln (' ║            ║          ║          ║          ║          ║          ║         ║');
                            ^
                            |
                            X

puis de faire des GotoXY ?

Pour aligner à droite, tu pourrais faire

Code :

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

GotoXY(x + 1 - Nombre div 10,y);

- Si le nombre est compris entre 0 et 9 : affichage en (x + 1,y);
- Si le nombre est compris entre 10 et 99 : affichage en (x,y);

**Sid ali** · 26/02/2006, 12h21

Merci bcp Mr Alcatîz

**Eric Sigoillot** · 26/02/2006, 12h31

Bonjour,

La procédure Write permet d'aligner du texte sur un nombre de caractères donnés.
Ainsi, pour afficher un nombre sur 3 caractères, on écrira :

Code :

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

Write(i:3);

Ca évite de faire des appels à GotoXY.

@++

**Sid ali** · 26/02/2006, 14h35

Désolé mais je suis qu'un debutant en Pascal
Donc je ne sais pas trop commant utilisé votre truc

Code :

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

Write(i:3);

Un exemple ne serait pas de refus

**Eric Sigoillot** · 27/02/2006, 23h27

Bonsoir,

Il faudrait lire des cours sur le langage Pascal. La syntaxe de la procédure Write doit y être décrite.
Néanmoins, pour cette fois-ci, on va faire simple.

Prenons l'exemple d'un programme demandant à l'utilisateur de saisir un nombre, que l'on veut encadrer. On pourrait calculer la "taille" du nombre (ie le nombre de caratcères nécessaire pour le représenter à l'écran), mais on va faire sans.
Le programme s'effectue en trois étapes.
1. Demander à l'utilisateur d'entrer un nombre
2. Récupérer le nombre entré
3. Afficher le nombre dans un cadre, sur une largeur de 10 caractères

Ca donne ceci :

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
program PadNumber;
 
var
  i: Integer;  { Nombre a ecrire }
  e: Integer;  { Position de l'erreur de Val }
  S: string;  { Chaine entree par l'utilisateur }
begin
  { Affiche le message d'accueil }
  WriteLn('Bonjour.');
  { Lis une chaine sur l'entree standard (clavier), et tente
    de la convertir en entier avec Val. e indique la position
    de l'erreur dans la chaine. Si e = 0, la conversion a
    reussi et i contient un entier valide }
  repeat
    WriteLn('Veuillez entrer un nombre entier :');
    ReadLn(S);
    Val(S, i, e);
  until e = 0;
  { Affichage de l'entier dans un cadre }
  WriteLn('############');
  WriteLn('#', i:10, '#');
  WriteLn('############');
  WriteLn;
end.

Code à tester avant de poser des questions (censées).

@++

**Sid ali** · 28/02/2006, 00h24

Problème d'affichage d'un tableau

Langage Pascal

Discussions similaires

Partager

Partager