Aide en pascal !!

Fermé
alex6013 Messages postés 2 Date d'inscription vendredi 20 février 2009 Statut Membre Dernière intervention 6 octobre 2009 - 6 oct. 2009 à 20:21
bonsoir voila je dois realiser un developpement en pascal qui doit faire un calcul matriciel en plusieur etape
or, quand je compile il m'affiche une erreur que je n'arrive pas a resoudre
si quelqu'un pouvai m'aider sa serait sympas !!

voici ce que j'ai commencé

writeln ('Saisie aleatoire des matrices A et B :');



// Declaration des variables et constantes
n:integer;
A, B : MATRICE;
DIM=n
ENTREE_MAX=9;

begin

// Declaration du tableau
MATRICE = array[1..ENTREE_MAX,1..ENTREE_MAX] of integer;

// Definition de la dimension "n" de la matrice (dans le cadre de l exercice n=3)
writeln ('Donner la dimension de la matrice');
readln(n);

// procedure de remplissage des matrices de façon aleatoire
procedure CREATION_MATRICE_ALEATOIRE (var m:MATRICE);
i, j : integer; // i correspond a la ligne de la matrice et j a la colonne de la matrice
begin
for i:=1 to DIM do // exemple: On remplit le 1er chiffre de la 1ère ligne, puis le 2ème chiffre de la premiere ligne, puis le 3ème chiffre de la premiere ligne
begin // On passe ensuite a la seconde ligne et ainsi de suite jusqu a ce que i=n et j=n
for j:=1 to DIM do
begin
m[i,j]:=1+random(ENTREE_MAX);
end
end;
end;

// Procedure d affichage des matrices
procedure AFFICHAGE_MATRICE_ALEATOIRE (var m:MATRICE);
i, j : integer;
begin
for i:=1 to DIM do
begin
for j:=1 to DIM do
begin
writeln(m[i,j],' ');
end;
end;
end;

randomize;
CREATION_MATRICE_ALEATOIRE (A)
CREATION_MATRICE_ALEATOIRE (B)
writeln ('Voici la matrice A:');
writeln;
AFFICHAGE_MATRICE_ALEATOIRE (A)
writeln ('Voici la matrice B:');
writeln;
AFFICHAGE_MATRICE_ALEATOIRE (B);

end;