Discussion :

[safowan]

à 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 :

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
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.

[droggo]

Lao,

à 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 :

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
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.

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

Code :

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

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 :

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

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 :

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

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 :

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

1
2
3
...
  n := taille_n;
...

[safowan]

Oh! parfois on fait des erreurs qu'on ne crois jamais qu'on tombe la dessus .
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.

[droggo]

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.

[safowan]

oui c'est ça merci Droggo.