Remplir une matriceRésolu

Question

Violent Ken
Salut &#224; tous !
J'aurais une question : comment remplir une matrice de valeurs particuli&#232;res ?
En fait,  j'aimerais pourvoir &#233;viter d'utiliser des boucles For imbriqu&#233;es pour remplir case apr&#232;s case, amis tout remplir d'un coup dans l'affectation de la valeur.

Exemple ; voil&#224; ce que j'aimerais :

Type Game_Matrix = Array[1..3,1..3] Of Integer;
Var iP : Game_Matrix;
iP:=[[1,0,1][0,0,1][2,1,4]];

Bien sur, la syntaxe de la troisi&#232;me ligne est fausse, et c'est elle que j'aimerais modifier.
Auriez vous une id&#233;e de la structure &#224; utiliser ?
Merci.

Cirec · Accepted Answer

"J'ai suppos&#233; que la syntaxe &#233;tait identique &#224; celle du Delphi" 
Ben je crois que non

Dans ce cas il ne te reste plus qu'a faire une boucle

Procedure My_Procedure;
Var I : Integer;
Begin
  For I :=  1  to  3 do
    Case I of
      1: Begin
            IP[I,1] : = 1;
            IP[I,2] :=  0;
            IP[I,3] := 1;
           End ;
      2:Begin
            IP[I,1] : = 0;
            IP[I,2] :=  0;
            IP[I,3] := 1;
           End ;
      3:Begin
            IP[I,1] : = 2;
            IP[I,2] := 1;
            IP[I,3] := 4;
          End;
    End;  // End Case
End;

@+
Cirec

Cirec · Answer

Salut,

Essaye comme ceci :

Type Game_Matrix = Array[1..3,1..3] Of Integer;
Var iP : Game_Matrix = ((1,0,1),(0,0,1),(2,1,4));

@+
Cirec

violent_ken · Answer

Violent Ken

Salut.
J'ai essay&#233;, mais mon compilateur refuse la ligne "Var iP : Game_Matrix = ((1,0,1),(0,0,1),(2,1,4));" (attend un ';' &#224; la place du '=')

Mais si j'affecte la valeur en constante dans le Var, ne sera t-il pas plus possible de la changer dans le programme par la suite ?

Merci de m'aider !

Cirec · Answer

Attention pour pouvoir d&#233;clarer une variable comme ceci il faut qu'elle soit globale

Ex:

Type Game_Matrix =   Array [1..3,1..3] Of Integer;

Var
Form1 : TForm; 
iP : Game_Matrix  = ((1,0,1),(0,0,1),(2,1,4));

Implementation

Procedure My_Procedure;
Var iP : Game_Matrix = ((1,0,1),(0,0,1),(2,1,4));  // ceci ne fonctionne pas 
Begin
 // ...
End;

@+
Cirec

violent_ken · Answer

Violent Ken

Ahem, j'ai oubli&#233; de dire que je programmais en Pascal. J'ai suppos&#233; que la syntaxe &#233;tait identique &#224; celle du Delphi.

Oui, j'ai bien d&#233;clar&#233; la variable en global.
Voici l'exemple essay&#233;, et qui ne marche pas :

Program Untitled;


Type Game_Matrix = Array[1..3,1..3] Of Integer;
Var iP : Game_Matrix = ((1,0,1),(0,0,1),(2,1,4));

Procedure My_Procedure;
Begin
//
End;


Begin
//
End.

violent_ken · Answer

Violent Ken

D'accord ! Merci beaucoup pour ta r&#233;ponse pr&#233;cise et ta vitesse.
Merci ! @+

cs_jfs59 · Answer

IP[1,1] :=  1; IP[1,2] := 0; IP[1,3] := 1;  
IP[2,1] : = 0; IP[2,2] := 0; IP[2,3] := 1;
IP[3,1] := 2; IP[3,2] := 1; IP[3,3] := 4;

ca va aussi sinon plus vite ...
Cordialement jfs.
 
Tout est en tout et r&#233;ciproquement ...

violent_ken · Answer

Violent Ken

Oui, c'est aussi rapide, voire plus dans ce cas.
C'est dommage de voir qu'en Pascal, aucun remplissage complet d'une matrice est possible en une ligne de code (comme en Delphi).
Merci, @+

f0xi · Answer

type
  TMatrix3i    = array [1..3] of integer;
  TDblMatrix3i = array [1..3] of TMatrix3i;

var
  VMX : TDblMatrix;

function PushMatrix3i(const v1,v2,v3 : integer) : TMatrix3i;
begin
  result[1] := v1;
  result[2] := v2;
  result[3] := v3;
end;

procedure InitMatrix;
begin
  VMX[1] := PushMatrix3i(11,12,13);

  VMX[2] := PushMatrix3i(21,22,23);

  VMX[3] := PushMatrix3i(31,32,33);

end;

Remplir une matrice

9 réponses

Votre réponse

Discussions similaires