Discussion :

[favorit]

Bonjour à tous,

J'ai parcouru le forum,les tuto et tout et tout mais mon problème subsiste.

La structure du code n'est pas finalisée mais ça compile.
Problème :je n'arrive pas à écrire mon tableau dans un fichier et ce fichier doit-il être de type txt/dat etc ?

Merci pour vos réponses car pour l'instant je suis assez déçu de mes retrouvailles avec TP et de bloquer depuis 3 jours.

Code en pj.

Favorit.

[favorit]

Même message que le précédent avec le code joint c'est mieux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Uses crt;
 
 Type article=record
        reference:string;
        quantite:integer;
        qtepal:integer;
        nbpal:integer;
      end;
      inventaire=array[1..200] of article;
 
  stock= file of inventaire;
var  a:stock;
     ref:string;
     tab:inventaire;
     b:article;
     rep,o,r:char;
     qte,pal,nbpal,i,n:integer;
 begin
  rep:=o;
  Clrscr;
  i:=1;
  repeat
   with b do
   begin
    Writeln('Entrez votre r‚f‚rence');
    readln(tab[i].reference);
    Writeln('Entrez votre quantit‚ en stock');
    Readln(tab[i].quantite);
    Writeln('Entrez votre palettisation');
    Readln(tab[i].qtepal);
             if frac(pal)<>0
      then
       begin
        tab[i].nbpal:=trunc((tab[i].quantite/tab[i].qtepal)+1);
       end
      else
       begin
        tab[i].nbpal:=trunc(tab[i].quantite/tab[i].qtepal);
       end;
     end;
    Writeln('Voulez-vous continuez la saisie ? o/n');
    Readln(r);
    rep:=r;
    i:=i+1;
    n:=i-1;
    Until rep<>'o';
 
 
     for i:=1 to n do
      begin
        write(tab[i].reference,tab[i].quantite,tab[i].qtepal,tab[i].nbpal);
        writeln;
      end;
      readln;
      assign(a,'c:\tp7\bin\stockage.dat');
      rewrite(a);
      for i:=1 to n do
      write(a,tab);
      close(a);
      reset(a);
      read(a,tab);
      readln;
      close(a);
 
end.

Merci encore
Favorit.

[darrylsite]

Chez moi, le programme compile tres bien et le fichier est crée dans le dossier c:\tp7\bin.
Le fichier crée est un fichier binaire donc tu ne peux pas lire le contenu avec bloc note. Pour lire le contenu, il te faut faire un autre programme et permet de lire le fichier en declarant un fichier du meme du type que lors de la creation.

[favorit]

Merci pour ta réponse rapide.
Mon programme compile effectivement bien.
Tu me dis que mon fichier binaire s'écrit bien.

Mais pourquoi faut-il faire un programme annexe pour le lire ?
Une procédure de lecture ne suffit-elle pas?

Mes lignes de lecture sur mon programme de départ sont-elles correctes?

J'écris read(a,tab).

Or la logique voudrait que ce soit:
for i:=1 to n do
read(a,tab[i]) mais le compilateur me mets TYPE MYSMATCH.

VOTRE AVIS svp.

Favorit.

[darrylsite]

effectivement, tu peux lire le fichier dans le meme programme.
Aussi tu as bien lu le fichier en faisant:

read(a,tab);

pour voir le contenu, il faut parcourir le tableau et afficher les differents elements.

[favorit]

effectivement, tu peux lire le fichier dans le meme programme.
Aussi tu as bien lu le fichier en faisant:

pour voir le contenu, il faut parcourir le tableau et afficher les differents elements.

Ok Je lis mais j'oublie de demander d'écrire..
Merci de m'avoir éclairer, ça marche maintenant.

A bientôt;

fav.