[Turbo Pascal] Tableau à deux dimensions

1 pièce(s) jointe(s)

Tableau à deux dimensions

Salut

Remplissage d'un tableau à 2 dimensions qui affiche la première matrice remplie, ensuite la modification ==> la diagonale (diagonale veut dire du haut à gauche vers le bas à droite) remplie tout par 1 ou bien 8 .....

Voici le code :
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 const] c=5; var m:array[1..c,1..c]of Integer; i,j:integer; begin for i:= 1 to c do begin for j:= 1 to c do begin repeat Write ('donner la ',i,' ligne et la ',j,' colone '); Readln (m[i,j]); Writeln; until (m[i,j]<>1); end; end; Writeln; Writeln ('l affichage de la matrice'); Writeln; for i:= 1 to c do begin for j:= 1 to c do begin write (m[i,j],' '); end; Writeln; end; Writeln; Writeln ('l affichage de la nouvelle matrice'); Writeln; for i:= 1 to c do begin for j:= 1 to c do begin end; end; for i:= 1 to c do begin for j := 1 to c do begin Write (m[i,j], ' '); end; writeln; end; Readln; end.
Pour simplifier voilà l'affichage de la matrice principale et de la nouvelle matrice :

Pièce jointe 206441

Ce que je cherche à faire est afficher la nouvelle matrice comme le tableau suivant :

Citation:

1 0 0 0 1
1 1 0 1 1
1 1 1 1 1
1 1 0 1 1
1 0 0 0 1

Bonjour !

Difficile de vous aider sans voir votre code.

Voilà mon code et il affiche la diagonale principale à la place de la fonction (affichage diagonale), c'est-à-dire m[i,i]:=1 j. Je n'ai pas trouvé la fonction qui affiche comme je vous ai montré sur le premier tableaux

Voici le code

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
const
    c=5;
var
  m:array[1..c,1..c]of Integer;
  i,j:integer;
begin
for i:= 1 to c do
begin
  for j:= 1 to c do
  begin
    repeat
      Write ('donner la ',i,' ligne et la ',j,' colone '); Readln (m[i,j]);
      Writeln;
      until (m[i,j]<>1);
  end;
end;
Writeln;
Writeln ('l affichage de la matrice');
Writeln;
for i:= 1 to c do
begin
  for j:= 1 to c do
  begin
    write (m[i,j],' ');
  end;
Writeln;
end;
Writeln;
Writeln ('l affichage de la nouvelle matrice');
Writeln;
for i:= 1 to c do
  begin
    for j:= 1 to c do
    begin
  m[i,i]:=1;     {diagonale principale}
  end;
  end;
 
  for i:= 1 to c do
  begin
    for j := 1 to c do
    begin
      Write (m[i,j], '  ');
    end;
    writeln;
  end;
Readln;
end.

Affichage diagonale

Citation:

1 5 4 3 3
6 1 3 9 2
3 7 1 0 5
5 2 0 1 3
6 0 0 3 1

Bonjour,

Citation:

Envoyé par Roland Chastain

Bonjour !

Difficile de vous aider sans voir votre code.

Et sans une phrase compréhensible. :(

Voici votre code correctement indenté, avec quelques modifications et commentaires.

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
const
  c = 5;
 
var
  m: array[1..c, 1..c] of integer;
  i, j: integer;
 
begin
  for i := 1 to c do
  begin
    for j := 1 to c do
    begin
      (*
      repeat
        Write('donner la ', i, ' ligne et la ', j, ' colone ');
        ReadLn(m[i, j]);
        WriteLn;
      until (m[i, j] <> 1);
      *)
      m[i, j] := Random(100); // pour éviter d'avoir à saisir 25 valeurs à chaque exécution du programme !
    end;
  end;
 
  WriteLn;
  WriteLn('l affichage de la matrice');
  WriteLn;
 
  for i := 1 to c do
  begin
    for j := 1 to c do
    begin
      write(m[i, j]:2, ' ');
    end;
    WriteLn;
  end;
 
  WriteLn;
  WriteLn('l affichage de la nouvelle matrice');
  WriteLn;
 
  for i := 1 to c do
  begin
    for j := 1 to c do // la valeur de j n'est pas utilisée
    begin
      m[i, i] := 1; {diagonale principale}
    end;
  end;
 
  for i := 1 to c do
  begin
    for j := 1 to c do
    begin
      Write(m[i, j]:2, ' ');
    end;
    WriteLn;
  end;
 
  ReadLn;
end.

Le problème, c'est que je ne vois pas ce que vous cherchez à faire.

1 pièce(s) jointe(s)

C'est ça qu'il m'affiche avec le code que je t'ai donné (la diagonale) :

Pièce jointe 206430

Ce que je cherche à faire est d'afficher la nouvelle matrice comme le tableau suivant :

Citation:

1 0 0 0 1
1 1 0 1 1
1 1 1 1 1
1 1 0 1 1
1 0 0 0 1

Tu vois tu trouves qu'il y a un triangle à gauche et un autre à droite (remplis de 1). Quelle est la fonction pour afficher dans cet ordre, exemple : pour afficher du haut à gauche vers le bas à droite (diagonale) : m[i,i]:=1

J'avoue que je ne vois pas quelle est la formule à appliquer pour obtenir ce résultat.

Citation:

Envoyé par Roland Chastain

J'avoue que je ne vois pas quelle est la formule à appliquer pour obtenir ce résultat.

D'accord Merci ^_^

Citation:

Envoyé par fallendery

salut je veux créer un tableaux de 2 dimensions et je fait le remplissage quand il s'affiche la moitie du numéro que j l entrer seront remplacer part numéro 8 je n'arrive pas a trouvez la fonction regarder le tableaux ce dessus aider moi merci

S'il s'agit d'un exercice qu'on te demande de faire, mets le texte intégral tel qu'il t'a été donné car je n'ai rien compris à ton français, désolé.

Citation:

Envoyé par l_autodidacte

S'il s'agit d'un exercice qu'on te demande de faire, mets le texte intégral tel qu'il t'a été donné car je n'ai rien compris à ton français, désolé.

Salut désolé je ne parle pas bien français. En fait regarde la réponse que j'ai donnée plus haut : j'ai expliqué ce que je cherche, je pense que tu vas comprendre. Merci.

Bonjour.

Un bout de code pour remplir la matrice suivant les souhaits de fallendery

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 for i := 1 to (c+1)/2 do
  for j := 1 to (c+1)/2 do
    if j <= i 
      then begin
             m[i,j]         := 1;
             m[i,c+1-j]     := 1;
             m[c+1-i,j]     := 1;
             m[c+1-i,c+1-j] := 1;
           end
      else begin
             m[i,j]         := 0;
             m[i,c+1-j]     := 0;
             m[c+1-i,j]     := 0;
             m[c+1-i,c+1-j] := 0;
           end;

Edit : petite erreur vue trop tard, il faut mettre (c+1) div 2 et non (c+1)/2

Citation:

Envoyé par Prof

Bonjour.

Un bout de code pour remplir la matrice suivant les souhaits de fallendery

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 for i := 1 to (c+1)/2 do
  for j := 1 to (c+1)/2 do
    if j <= i 
      then begin
             m[i,j]         := 1;
             m[i,c+1-j]     := 1;
             m[c+1-i,j]     := 1;
             m[c+1-i,c+1-j] := 1;
           end
      else begin
             m[i,j]         := 0;
             m[i,c+1-j]     := 0;
             m[c+1-i,j]     := 0;
             m[c+1-i,c+1-j] := 0;
           end;

Ça fonctionne maintenant merci ^_^

Bonjour.

Une solution plus courte :

Code:

1
2
3
4
5
 for i := 1 to c do
  for j := 1 to c do
    if abs(c+1-2*i) <= abs(c+1-2*j)
        then m[i,j] := 1
        else m[i,j] := 0;

Citation:

Envoyé par Prof

Une solution plus courte :

Celle-là, il fallait la trouver ! :ave:

Citation:

Envoyé par Prof

Bonjour.

Une solution plus courte :

Code:

1
2
3
4
5
 for i := 1 to c do
  for j := 1 to c do
    if abs(c+1-2*i) <= abs(c+1-2*j)
        then m[i,j] := 1
        else m[i,j] := 0;

Merci Beaucoup ^_^ :ave: