# comptage de lignes vides dans un fichier

si aucun_parametre()
   # rappel de la syntaxe :
   écrire " passer le nom du fichier en paramètre "
   quitter_le_programme()
finsi

si le fichier nomfic n'existe pas
   écrire " fichier " nomfic " non vu "
   quitter_le_programme()
finsi

nblig  <- 0
nblvid <- 0
nbcmt  <- 0

ouvrir nomfic comme fic # en lecture

tant que non fin_de_fichier(fic)
   lire lig dans nomfic)
   nblig <- nblig + 1
   si nbmots(lig)=0 alors
      nblvid <- nblvid + 1
   finsi
   si premier_caractère_non_vide(lig,1) = "#" alors
      nbcmt <- nbcmt + 1
   finsi
fin de tant que

fermer(fic)

écrire nblig " lignes dont " nblvid " lignes vides et " nbcmt " commentaires."