Bonjour,
Je doit réaliser un algo correspondant au programme de chargement du fichier fprod dans un tableau appellé TabProd, de TypProd.
Ce programme ne charge pas les produits ayant été retirés d'un catalogue, il calcule également le nombre d'enregistrements effectivement chargés dans TabProd.
On suppose TabProd suffisamment grand pour contenir tous les enregistrements valides de fprod.
 
Etdonc voila, j'ai ce sujet et je bloque un peut.
 
Voici ce que j'ai réussi à faire mais je n'en suis vraiment pas pérsuadé :
 
Début
Ouvrir (fProd, Lecture)
Accés (fProd, Séquntie)
Lire (fProd, TabProd)
NbElem = 0
 
TantQue Non fiDeFicier (fProd)
Faire Lire (fProd, prduit, TabPers)
        Si produit.catalogueOn
        Alors NbElem = NbElem + 1
FinSi
FinTantQue
Afficher (NbElem)
Fermer (fProd)
Fin
 
Voila donc mon résultat et jen'arrive pas vraiment à faire mieu....
Toute aide sera donc la bienvenue

Si tu faisais un "catalogue" avec les variables et les fonctions utilisées, ça t'aiderait peut-être...

Je crois que c'est

 
Par contre ta fonction lire agit comment ? Une fois elle a 2 paramètres, une fois 3 paramètres.
J'ai du mal à comprendre ce qu'est sensé faire le "Lire" qui est hors de la boucle (entre Accès et NbElem=0).
 
Sinon dans ta boucle tu n'incrémente NbElem que si le produit est bien au catalogue, mais la copie du produit dans la table (qui, je suppose, est faite par la fontion lire) est faite que le produit soit au catalogue ou non.
 

 
En reprenant le travail de Dagnir, on obtient :
 
   1. Début
   2. Ouvrir (fProd, Lecture)
   3. Accés (fProd, Séquentiel)
   4. Lire (fProd, TabProd)
   5. NbElem = 0
   6.
   7. TantQue Non FinDeFichier (fProd)
   8. Faire Lire (fProd, Wproduit)
   9.         Si Wproduit.catalogueOn
  10.         Alors  
                   NbElem = NbElem + 1
                   TabProd[NbElem]:=WProduit
  11.         FinSi
  12. FinTantQue
  13. Afficher (NbElem)
  14. Fermer (fProd)
  15. Fin
En supposant que la première case d'un tableau est 1 (et non zéro)