Discussion :

[romero2008]

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

[Alcatîz]

Bonjour et bienvenue !

Qu'appelles-tu "un tableau avec des graphes" exactement ?

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

[droggo]

Gio,

Un tableau en dessin ?

- Tu fais ton tableau contenant les valeurs à afficher

- et tu écris gentiment une procédure pour l'afficher

[dot-_-net]

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 :

Poste ton code et on t’aidera

[ilyas0911]

copie coller

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

[droggo]

Meo,

copie coller

La mise en forme ne fait de mal à personne :

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