comment enregistrer une matrice

comment enregistrer une matrice - Delphi/Pascal - Programmation

Marsh Posté le 01-05-2006 à 11:32:53    

Bonjour, voici mon problème : j'aimerais enregistrer une matrice dans un fichier pour pouvoir ensuite reprendre se fichier et le mettre dans une matrice.
 voici ma déclaration : type symbole = 1..9;
                                      indice = 1..9;
                                      ligne = array[indice] of symbole;
                                      matrice = array[indice] of ligne;
voici se que j'ai fait mais sa ne donne rien :
 
procedure sauvegarde(m:matrice);
 var fichier : file of cardinal;
      i,j:cardinal;
begin
assign(fichier,'mat.txt');
rewrite(fichier);
 
for i:=low(indice) to high(indice) do begin
for j:=low(indice) to high(indice) do begin
   read(m[i,j]);
end;
end;
close(fichier);
end;
 
 
je ne sait pas si c'est correcte ou non, c'est la première fois que j'en fait mais sa ne donne rien ( dans le fichier 'mat.txt').
merci de bien vouloir m'aider.
 


Message édité par jeunePadawan le 01-05-2006 à 16:13:06
Reply

Marsh Posté le 01-05-2006 à 11:32:53   

Reply

Marsh Posté le 01-05-2006 à 17:50:21    

Bonjour,
 
nono ceci n'est pas correct, car si tu veux écrire dans le fichier il fatu que tu utilises write et non read !!!
 
D'autre part, pourquoi te compliques tu la vie pour déclarer ta matrice ?
Un tableau double entrée ferait aussi bien l'affaire :  
 
matrice : array [1..9,1..9]
 
Puis lorsque tu veux accéder à l'élément [i,j] ben tu fais matrice[i,j] !!!
 
Enfin pour le fichier je prendaris un simple fichier texte.
donc moi je ferais cela :  
 

Citation :


procedure sauvegarde(m:matrice);
var fichier : textfile;
      i,j:cardinal;
begin
assignfile(fichier,'mat.txt');  //c'est peut-être assignfile au lieu de assign. De même pour close et closefile.
rewrite(fichier);
 
for i:=1 to 9 do begin
for j:=1 to 9 do begin write(inttostr(m[i,j])); // inttostr : transforme un nb en une chaine de caractères
end;
end;
closefile(fichier);
end;


 
PS : c'est de delphi ou du pascal 7 ??


Message édité par davidmarli le 01-05-2006 à 17:52:01
Reply

Marsh Posté le 02-05-2006 à 19:59:16    

Bonjour,
 
c'est vrai lol, c write mdr :pt1cable:  et c'est du pascal, pour répondre à t'a question.
 
merci bcp ton pour l'aide, mais est-il normale qu'il n'y a rien dans le fichier 'mat.txt' ?
 
bye!

Reply

Sujets relatifs:

Leave a Replay

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