Ada

lire et écrire à partir d'un fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : lire et écrire à partir d'un fichier

zuzulia

Bonjour à tous
j'ai un petit souci de programmation et je viens voir si qq'un pourais me donner un coup de pouce.

Voilà alors en fait je voudrais lire à partir d'un fichier une matrice puis l'écrire. Mais mon petit problème c'est que je ne vous pas du tout comment faire pour mon programme sache que c'est une matrice qu'il doit lire dans le fichier...

Publicité

mach-1

Salut!
A tout hasard tu ne serais pas en licence maths-info 2ème année à Perpignan toi?!
A part ça ouais j'y arrive pas non plus, enfin j'ai un peu de mal avec les lectures à partir de fichier, j'ai demandé une explication à ma prof mais elle m'a pas encore répondu... Surtout qu'on l'a pas vu en cours ça!

apprentitux

Plusieurs manières:
1) Ds un fichier texte (Ada.Text_Io)
Tu doit écrire un algo pour ECRIRE les valeurs de ta matrice ds le fichier, et un algo pour LIRE... => fichier texte donc formatage des valeurs en charactère (très facile en Ada). Avantage : consulter facilement le fichier avec un éditeur de fichier texte.

2) Dans un fichier séquenciel (Ada.Sequential_io). Te permet d' y écrire des valeurs de types indéfinis (non contraints)

3) Fichier direct .... no comment

4) Les flots : On écrit comme on veut ...

mach-1

Le truc que moi je ne comprends pas (pourtant j'essaye), c'est comment créer un fichier dans l'extension qu'on nous demande, c'est à dire un .dat . Il suffit de créer un fichier texte normal ( .txt ou .doc par exemple) et de remplacer son extension par .dat? Et comment ça marche exactement? Dans un exo qu'on a fait on s'est servi de cette méthode mais je n'avais pas compris, d'ailleurs voici le passage du programme :

Ada.Text_Io.Open(File => Fich_Texte, Mode => Ada.Text_Io.In_File, Name => "exo4_3.dat" ) ;
S := 0 ; -- somme des nombres qu'on rentre
N := 0 ; -- nombre de nombres qu'on rentre
loop
Ada.Integer_Text_Io.Get(Fich_Texte, Nombre_Lu) ;
Ada.Text_Io.Skip_Line(Fich_Texte) ;
exit when Nombre_Lu = Marque_Findesuite ;
if (Nombre_Lu rem 2)=0 then
S := S + Nombre_Lu ;
N := N + 1 ;
end if ;
end loop ;

En fait ce que je ne comprends pas c'est les fonctions open et skip_line, dans l'aide d'ada il n'explique pas...

apprentitux

https://libre2.adacore.com/french_courses/main.html
Cour 11 "les fichiers"

zuzulia

En fait je voudrais rentrer deux matrices dans un fichier puis les lire dans une procedure, mais je ne vois pas comment.
Voici ce que j'ai essayer de faire mais ça ne me donne pas exactement les matrice tapé dans mon fichier :

for L in M'range loop
for C in M'range loop
Ada.Float_Text_Io.Get(Fich1,M1(L,c));
Ada.Float_Text_Io.Get(Fich1,M2(L,c));
end loop;
end loop;

apprentitux

De quel types sont M1 et M2 ?

Comment veut - tu qu'on t'aide si tu ne donne pas plus de code ?

Apparemment tu lit dans un fichier séquentiel de float c'est ça ?
J'immagine que tu as du écrire:

Code :

package pack_fichier_float is new ada.sequential_io(float);
fichier : pack_fichier_float.file_type;
ma_matrice : .....; -- tu ne nous donne pas de type alors on peut imaginer ce qu'on veut (contraint, non contraint...)
use pack_fichier_float;
begin
create(fichier,out_file,"truc" );
for i in ma_matrice'range(1) loop
for j in ma_matrice'range(2) loop
put(fichier,ma_matrice(i,j));
end loop;
end loop;
-- et idem pour ta deuxième matrice à la suite
close(fichier);

As-tu lu le cours sur les fichiers dont j'ai donné le lien plus haut ?

On dirait que tu as enregistré 2 matrices dans ton fichier et que tu veut les lire en même temps..... tu rêve ou tu ne maitrise pas du tout l'usage des fichiers en accès séquentiel il me semble.....

mach-1

Le type des matices c'est tableau non contraint, et en fait on doit bien enregistrer 2 matrices puis les utiliser après, c'est bizare je n'en doute pas...
Merci pour le lien avec le cours, mais je dois avouer que ça ma pa trop aidé, enfin il me faudrait un exemple excplicite, en TD on en a vu mais j'ai franchement pas compris, et les exos ne marchent même pas en fait, enfin moi ils me mettent une erreur dans l'éxecution, mais aucune dans la compilation!
Regarde le sujet exact de l'exercice pour mieux comprendre mon (notre...) problème :

Citation :

Ecrire des sous-programmes réalisant la lecture à partir dun fichier, lécriture, la somme et la différence et le produit de matrices carrées du type tableau non contraint T_matrice suivant
type T_mat is array(integer range <>,integer range <> ) of float;

Donc en fait on doit créer un fichier qui créera une matrice carrée a la lecture. Le pb de Zuzulia, affecter les nombres du fichiers a une matrice je pense, le mien, créer un fichier et l'utiliser...
Je sais que je devrai essayer de me demerder avant de vous demander ça mais j'ai essayé et j'y arrive pas, c'est en fait le seul truc que je ne comprends pas en ada, sur les 3 DM qu'on a eu j'ai réussi a faire les 2 premiers tou seuls, tranquil, ils étaient pas dur mais là j'ai épuisé toutes mes ressources...
Bref si vous pouvez m'aider serieux merci! @+

apprentitux

ca peut commencer comme ça :

Code :

with Ada.Text_Io; use Ada.Text_Io;
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Sequential_Io;
procedure Matrices is
type T_Mat is array(Integer range <>,Integer range <> ) of Float;
package P_Matrices is new Ada.Sequential_Io(T_Mat);
use P_Matrices;
subtype Fich_Mat is P_Matrices.File_Type;
Fichier : Fich_Mat;
subtype Matrice_3x3 is T_Mat(1..3,1..3);
M1 : Matrice_3x3 := ((2.5,654.56,-50.0),(-789.23,56.2,2.4),(0.23,0.66,-7.1));
M2 : Matrice_3x3;
Nom_Fichier : String := "fichier de matrices";
begin
Create(Fichier,Out_File,Nom_Fichier);
Write(Fichier,M1);
Reset(Fichier,In_File);
Put_Line("voici votre matrice:" );
--Open(Fichier,In_File,Nom_Fichier);
Read(Fichier,M2);
for I in M2'range(1) loop
for J in M2'range(2) loop
Put(M2(I,J),aft => 3, Exp=>0);
Put(" ; " );
end loop;
New_Line;
end loop;
end Matrices;

Après, c'est à toi de faire un paquetage avezc tes méthodes, l'interface graphique, la représentation 3-D des matrices ...

mach-1

Ok merci! Et miracle, ce matin pas très longtemps après avoir poster mon message j'ai compris l'histoire des fichiers (en fait un pote venait de comprendre, il m'a envoyé un exemple simple et du coup j'ai compris)!!
Donc c'est bon avec ça je devrai pouvoir me débrouiller.
Encore merci du coup de main!

Publicité

mach-1

Voila où j'en suis! (je sais apprentitux, je dois commencer a t'enerver legerement) Donc comme je le disais juste avant j'ai enfin compris les fichiers, et maintenant j'en suis au même point que Zuzulia, affecter à chaque aggregat d'une matrice un nombre lu dans un fichier. Mon problème c'est que la première ligne est bien affecté par les nombres du fichier, mais les autres lignes sont affectés par des réels qui sortent de je ne sais où... Voilà tout ce que j'ai fait :

Citation :

with Ada.Text_Io, Ada.Float_Text_Io;

procedure xxx is

type T_Mat is array (Integer range <>, Integer range <> ) of Float;
N : constant Integer := 4;
Mat1 : T_Mat(1..N , 1..N);
Mat2 : T_Mat(1..N , 1..N);
Mat_S : T_Mat(1..N , 1..N);
Mat_D : T_Mat(1..N , 1..N);
Mat_P : T_Mat(1..N , 1..N);
I : Integer;
j : integer;
Fichiera : Ada.Text_Io.File_Type;
Fichierb : Ada.Text_Io.file_type;

procedure Lect_Mat is
begin
I := 1;
J := 1;
Ada.Text_Io.Open(Fichiera,ada.Text_IO.In_File, "lopez_dev3a.dat" );
while i <= N loop
while J <= N loop
Ada.Float_Text_Io.Get(Fichiera, Mat1(I,J));
J := J + 1;
end loop;
i := i + 1;
end loop;
I := 1;
J := 1;
Ada.Text_Io.Open(Fichierb,Ada.Text_Io.In_File,"lopez_dev3b.dat" );
while I <= N loop
while J <= N loop
Ada.Float_Text_Io.Get(Fichierb, Mat2(I,J));
J := J + 1;
end loop;
I := I + 1;
end loop;
end Lect_Mat;

procedure Ecrire_Mat(X : in out T_Mat) is
begin
I := 1;
J := 1;
for I in x'range(1) loop
for J in X'range(2) loop
if J = 1 then
Ada.Text_Io.Put("| " );
end if;
Ada.Float_Text_Io.Put(X(I,J));
if J = N then
Ada.Text_Io.Put(" |" );
end if;
end loop;
ada.Text_IO.New_Line;
end loop;
end Ecrire_Mat;

begin
Lect_Mat;
Ecrire_Mat(Mat1);
ada.Text_IO.New_Line(2);
ecrire_mat(mat2);
end xxx;

A la compilation, aucun problème, à l'execution, ce problème là, bon là il n'y a pas le fichier que j'ai créé. Le fichier c'est un simple fichier ada où on met un nombre sur chaque ligne et puis on l'enregistre en mettant .dat à la fin (c'est comme ça qu'on est censé faire avec notre prof). Et donc moi j'ai fait des matrices 4x4, et la première ligne prend bien les valeurs du fichier mais les 3 autres lignes non...

mach-1

Zuzulia si tu galère encore là dessus j'ai la solution!
En fait, au lieu de s'embeter à affecter les nombres du fichiers à chaque case (où aggrégat) de la matrice, il faut créer un autre vecteur de n² cases:

Citation :

type t_vect is array(integer range <> ) of float;
vect1 : t_vect(1..(N * N));

Comme ça tu obtient un vecteur d'une ligne et de n² colonne. Après il suffit d'affecter chaque valeur de ce nouveau vecteur à la matrice que tu veux remplir :

Citation :

for I in 1..N loop
for J in 1..N loop
Mat1(I,J) := Vect1(K);
K := K + 1;
end loop;
end loop;

Et voila, une matrice remplie avec les nb contenus dans le fichier (dans le même ordre que dans le fichier évidement). J'ai pas trouvé manière plus simple...

apprentitux

Pourquoi tu veux absolument t'embêter à utiliser des fichiers texte ?
Suit plutôt l'exemple que j'ai donné au dessus et crée un fichier séquentiel de matrices.

mach-1

Ben ouais moi je prefererai utiliser ce que tu as fait mais le fait est qu'on a pas le choix, en cours (et donc pour nos devoirs) on doit utiliser ce type de fichier avec un nombre a chaque ligne, c'est une consigne du devoir en quelque sorte.
Mais je doute pas une seconde qu'avec ta méthode c'est plus simple.
Et j'allais oublier, je pense que pour la correction elle utilsera nos programmes avec ses propres fichiers pour pouvoir comparer les exo des differents etudiants entre eux, donc si dans le prog on utilise un autre type de fichier ça buguera...

Message édité par mach-1 le 12-12-2005 à 22:11:23

apprentitux

Ok... sinon, ça marche maintenant ?

FORUM HardWare.fr

Programmation

Ada

lire et écrire à partir d'un fichier

Sujets relatifs
Récupérer les infos d'un fichier txt en batch	Telechargement a partir d'un site flash
[PHP/HTML]Cherche un script pour lire des flux RSS	avoir la date à partir de nb bjour
fichier HEX	Lecture d'un fichier texte en boucle C++
Locker un fichier	Ecrire un fichier texte sur un serveur distant
image à lire avant un script
Plus de sujets relatifs à : lire et écrire à partir d'un fichier

Page générée en 0.070 secondes