Discussion :

[superdj]

Pouvez-vous m'aider ?
Pour un programme, j'ai besoin de réaliser l'opération suivante :

Dès qu'il y a une ligne vide (c'est-à-dire une ligne sans rien d'écrit), alors ecrire n.
Je précise que n corespond à une variable du programme (un nombre de paragraphes en fait).

En gros, je veux faire un truc qui, dès qu'il déctecte une ligne vide, m'affiche le nombre de paragraphes, mais là je bug.

Merci d'avance

[Loceka]

pour compter le nombre de paragraphe (ou plutôt de lignes vides), tu n'as qu'à faire :

Code :

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

1
2
3
4
5
6
while (not eof(F)) do
begin
  readln(F,ligne);
  if (ligne = '') then
    n := n+1;
end;

[superdj]

que veut dire la commande eof(F) je conanit eof tout seul mais pas avec quelque chose entre parenthese

[Loceka]

euh... tu travailles bien sur un fichier texte, non ?
Si tu travailles en interactif avec l'utilisateur, en lisant ce qu'il écrit dans la console alors c'est pas tout à fait la même chose.

Pour répondre à ta question, eof(F) teste si on est arrivé à la fin du fichier F.

[superdj]

ok en fait on appel un fichier texte , annexe sous dos , donc on travail avec la commance eof, donc tu a une idée avec eof?

[Tuxico]

le code que t'as donné Loceka est bon...

Code :

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

1
2
3
4
5
6
7
while (not eof(F)) do  {tant que ce n'est pas la fin du fichier}
begin             
  readln(F,ligne);       {ligne contient une ligne de F}
  if (ligne = '') then    {Si ligne est vide alors on incrémente n, càd le nombre de paragraphes}
    n := n+1;
end;
writeln(n);               {on affiche le nombre de paragraphe}