Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3294 connectés 

  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  comment enregistrer une matrice

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

comment enregistrer une matrice

n°1356996
jeunePadaw​an
Posté le 01-05-2006 à 11:32:53  profilanswer
 

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
mood
Publicité
Posté le 01-05-2006 à 11:32:53  profilanswer
 

n°1357269
davidmarli
Posté le 01-05-2006 à 17:50:21  profilanswer
 

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
n°1358061
jeunePadaw​an
Posté le 02-05-2006 à 19:59:16  profilanswer
 

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!


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  comment enregistrer une matrice

 

Sujets relatifs
probléme : passage de l'adresse d'une matricevba : sélectionner une colonne d'un matrice
vba matriceAffichage d'une matrice
Enregistrer sous et cellule existante[résolu] Enregistrer page.php interpretté dans un variable
[Java] comment enregistrer GLcanvas en Jpeg??Enregistrer son SITE en ENTREPRISE ou pas [CANADA]
[résolu]Ne pas enregistrer les précédents éléments saisis[JAVA] Redimensionner une image via une matrice
Plus de sujets relatifs à : comment enregistrer une matrice


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)