c quoi le fuck

c quoi le fuck - Delphi/Pascal - Programmation

Marsh Posté le 16-12-2002 à 23:42:37    

je sais pas si je suis sou mais j'arrive pas a trouver l'erreur  
c'est marqué...
 

Code :
  1. unit produit;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ComCtrls;
  9. type
  10.   matrice1=array[1..2,1..3]of integer;
  11.   matrice2=array[1..3,1..2]of integer;
  12.   matrice=array[1..2,1..2]of integer;
  14. type
  15.   TForm1 = class(TForm)
  16.     Button2: TButton;
  17.     RichEdit3: TRichEdit;
  18.     procedure Button2Click(Sender: TObject);
  19.   private
  20.     function Produit2(MatA:matrice1;MatB:matrice2):matrice;
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  26. var
  27.   Form1: TForm1;
  29. implementation
  31. {$R *.dfm}
  33. procedure TForm1.Button2Click(Sender: TObject);
  34. var
  35. i,j,k:integer;
  36. ok:boolean;
  37. begin
  38.   matrice1[1][1]:=1; //erreur [Error] produit.pas(38): '(' expected but '[' found
  39.   matrice1[1][2]:=2;
  40.   matrice1[1][3]:=3;
  41.   matrice1[2][1]:=4;
  42.   matrice1[2][2]:=5;
  43.   matrice1[2][3]:=6;
  45.   matrice1[1][1]:=1;
  46.   matrice1[1][2]:=2;
  47.   matrice1[2][1]:=3;
  48.   matrice1[2][2]:=4;
  49.   matrice1[3][1]:=5;
  50.   matrice1[3][2]:=6;
  52.   matrice:=Produit2(matrice1,matrice2);
  53. end;
  55. function TForm1.Produit2(MatA,MatB:Matrice):matrice;
  56. var i,j,k:integer;
  57.   MatC:matrice;
  58. begin
  59. for i:=1 TO high(MatA) DO
  60.   for j:=1 TO high(MatA) DO
  61.     begin
  62.     MatC[i,j]:=0;
  63.     for k:=1 TO high(MatA) DO
  64.       MatC[i,j]:=MatC[i,j]+MatA[i,k]*MatB[k,j];
  65.     end;
  66.     result:=matc;
  67. end;
  68. end.


Message édité par os2 le 16-12-2002 à 23:53:58

---------------
Borland rulez: http://pages.infinit.net/borland
Reply

Marsh Posté le 16-12-2002 à 23:42:37   

Reply

Marsh Posté le 17-12-2002 à 03:21:47    

c clair que tu as bu, matrice1 que tu utilises, c ton type, mais t'as pas défini de variables dans ta procédure de ce type la, donc je vois pas comment tu espères l'utiliser  :heink:  
 


---------------
Informaticien.be - Lancez des défis à vos amis
Reply

Marsh Posté le 17-12-2002 à 10:22:14    

T'aurais du mettre "var" à la place de "type"... et choisir un meilleur titre :D


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed