Créer un tableau avec les graphes

Version imprimable

11/04/2008, 17h01
romero2008

Créer un tableau avec les graphes

bonjour
j'ai un tableau de mémoire et je veux créer un tableau (de n lignes et n colonnes "n est diffinit") avec les graphe
- comment acceder a la case [3,6]
merci :aie:
13/04/2008, 21h37
Alcatîz

Bonjour et bienvenue !

Qu'appelles-tu "un tableau avec des graphes" exactement ?
25/04/2008, 00h09
romero2008

bonjour,
je veux dire un tableau! pas un tableau de cases mémoires mais un tableau en dessin (je veux le remplir avec le programme puis l'afficher) le quelle je peux accéder a ces case avec des indices :

http://img134.imageshack.us/img134/8021/tabad0.png
25/04/2008, 10h14
droggo

Gio,

Un tableau en dessin ?

- Tu fais ton tableau contenant les valeurs à afficher

- et tu écris gentiment une procédure pour l'afficher
25/04/2008, 14h34
dot-_-net

Citation:

Envoyé par romero2008

bonjour,
je veux dire un tableau! pas un tableau de cases mémoires mais un tableau en dessin (je veux le remplir avec le programme puis l'afficher) le quelle je peux accéder a ces case avec des indices :

http://img134.imageshack.us/img134/8021/tabad0.png

Poste ton code et on t’aidera

copie coller

copie coller 8-)

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
program affiche_tab;
type tab = array [1..16,1..16] of integer ;
var  p,n,x,y  :integer;
        t     : tab ;
begin
readln(n);
for x:=1 to n do
for y:=1 to n do
t[x,y]:=1;
(* affich‚ le tableaux *)
textcolor(white);
write(#218);
for y:=1 to (n-1) do
write (#196#196#196#194);
write (#196#196#196#191);
writeln;
write(#179);
for y:=1 to n do
write('   ',#179);
writeln;
write (#179);
for x:=1 to n-1 do
begin
for y:=1 to n do
begin
textcolor(red);
write (t[y,x]:3);
textcolor(white);
write (#179)
end;
writeln;
write (#195);
for y:=1 to (n-1) do
write (#196#196#196#197);
write (#196#196#196#180);
writeln ;
write(#179);
for y:=1 to n do
write('   ',#179);
writeln;
write(#179);
end;
x:=n;
for y:=1 to n do
begin
textcolor(red);
write (t[y,x]:3);
textcolor(white);
write (#179)
end;
writeln;
write(#192);
for y:=1 to (n-1) do
write (#196#196#196#193);
write(#196#196#196#217);
writeln;
end.

Meo,

Citation:

Envoyé par ilyas0911

copie coller

La mise en forme ne fait de mal à personne :

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
59
60
program affiche_tab;
 
type 
  tab = array [1..16,1..16] of Integer;
var  
  p, n, x, y : Integer;
  t : tab;
begin
  Readln(n);
  for x := 1 to n do
    for y := 1 to n do
      t[x, y] := 1;
  (* affich‚ le tableaux *)
  textcolor(white);
  Write(#218);
  for y := 1 to (n - 1) do
    Write (#196#196#196#194);
  Write (#196#196#196#191);
  Writeln;
  Write(#179);
  for y := 1 to n do
    Write('   ', #179);
  Writeln;
  Write (#179);
  for x := 1 to n - 1 do
  begin
    for y := 1 to n do
    begin
      textcolor(red);
      Write (t[y, x]: 3);
      textcolor(white);
      Write (#179)
    end;
    Writeln;
    Write (#195);
    for y := 1 to (n - 1) do
      Write (#196#196#196#197);
    Write (#196#196#196#180);
    Writeln;
    Write(#179);
    for y := 1 to n do
      Write('   ', #179);
    Writeln;
    Write(#179);
  end;
  x := n;
  for y := 1 to n do
  begin
    textcolor(red);
    Write (t[y, x]: 3);
    textcolor(white);
    Write (#179)
  end;
  Writeln;
  Write(#192);
  for y := 1 to (n - 1) do
    Write (#196#196#196#193);
  Write(#196#196#196#217);
  Writeln;
end.

A quoi il faudrait ajouter, au minimum, quelques sauts de lignes pour mettre en valeur les différentes sections du programme, et, pour améliorer encore, créer des fonctions/procédures pour gérer tout ça.

D'autre part, je pense que ce que veut faire romero2008 est un affichage en mode graphique, pas en mode texte.