[TPW] Ecriture dans un fichier typé

:salut: à tous,
je remerci dieu, à cause de ce forum qui m'a aider beaucoup pour faire un pas en avant à la programmation en Pascal. Je vous remerci de tout mon coeur. :)
Cette fois j'ai fait un petit prog qui écrit des données dans un fichier typé, ces données sont de type composé, composé d'une phrase et de sa taille.

Code:

---

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

program fichier; uses wincrt;   type phrase=record ph : string; m : integer;   end;   var enreg : phrase; f : file of phrase; n,i : integer;   procedure taille_n(n : integer); begin repeat write('Donnez le nombre de phrases à saisir : '); read(n); until n in [1..10]; end;   begin assign(f,'saf.dat'); rewrite(f); taille_n(n); for i:=1 to n do begin writeln('Entrez la',i,'ème phrase : '); readln (enreg.ph); enreg.m := length (enreg.ph); write(f,enreg); end; close(f); end.

---

Alors le problème c'est qu'il n'y a pas une résultat aprés l'execution de ce code, seulement l'affichage du message de la saisie de n, par la suite il n'ya pas autre affichage à l'écran qui demande la saisie des phrases, même que le fich est crée mais vide.
J'éspère que je vais avoir une réponse, je vous remerci tous.:D

Lao,

Citation:

---

Envoyé par safowan

:salut: à tous,
je remerci dieu, à cause de ce forum qui m'a aider beaucoup pour faire un pas en avant à la programmation en Pascal. Je vous remerci de tout mon coeur. :)
Cette fois j'ai fait un petit prog qui écrit des données dans un fichier typé, ces données sont de type composé, composé d'une phrase et de sa taille.

Code:

---

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

program fichier; uses wincrt;   type phrase=record ph : string; m : integer;   end;   var enreg : phrase; f : file of phrase; n,i : integer;   procedure taille_n(n : integer); begin repeat write('Donnez le nombre de phrases à saisir : '); read(n); until n in [1..10]; end;   begin assign(f,'saf.dat'); rewrite(f); taille_n(n); for i:=1 to n do begin writeln('Entrez la',i,'ème phrase : '); readln (enreg.ph); enreg.m := length (enreg.ph); write(f,enreg); end; close(f); end.

---

Alors le problème c'est qu'il n'y a pas une résultat aprés l'execution de ce code, seulement l'affichage du message de la saisie de n, par la suite il n'ya pas autre affichage à l'écran qui demande la saisie des phrases, même que le fich est crée mais vide.
J'éspère que je vais avoir une réponse, je vous remerci tous.:D

---

Tu es tombé dans un des pièges classsiques : ta procédure

Code:

---

procedure taille_n(n : integer);

---

reçoit de n une copie locale, c'est ce qu'on appelle un passage de paramètre par valeur.

Cette copie peut être localement modifiée par la procédure, mais en aucun cela ne modifie la variable d'origine dans le programme principal.

Pour cela, il faut faire un passage de paramètre par adresse, avec le mot clé var, comme ceci :

Code:

---

procedure taille_n(var n : integer);

---

D'autre part, comme tu renvoies une valeur d'un type simple, il serait plus logique d'utiliser une fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

function taille_n : integer; var resultat : integer; begin repeat write('Donnez le nombre de phrases à saisir : '); { pour lire au clavier, préférer ReadLn } ReadLn(resultat); until resultat in [1..10]; taille_n := resultat; end;

---

et son utilisation :

Code:

---

1 2 3

... n := taille_n; ...

---

Oh! :wow: parfois on fait des erreurs qu'on ne crois jamais qu'on tombe la dessus :oops: .
Alors cette fois avec le même code aprés avoir corrigé mon ancienne erreur (passage pas variable) j'ai eu un autre prob: lors de l'execution, le programme passe pour saisir la 2 ème phrase sans attendre la saisie de la 1 ère.
et voila un exemple de l'execution:
Donnez le nombre de phrases à saisir :3
Entrez la1ème phrase :
Entrez la2ème phrase :
là je met ma 1 ère phrase
Entrez la3ème phrase :
et là je met la 2 ème
c'est drole même que j'ai utilisé la boucle while, et aussi j'ai éssayé de faire la saisie du premier enregistrement en dehord de la boucle et la commencer par le 2 ème enregistrement sans aucune difference.

Joa,

Je l'ai déjà dit maintes fois : il ne faut pas utiliser Read pour lire des données au clavier, mais ReadLn.

Tu tombes précisément sur un des problèmes que Read peut poser. :D

:ccool: oui c'est ça merci Droggo.