PlaceLibre : Reel Lecture Public;
Principal
/*******/
Variable
/******/
L : Nul Ou ListeDe UniteListee;
U : Nul Ou UniteListee;
Debut
L=ListerUnites();
/* Liste les unités disponibles. */
Pour U=L.ParcoursAuDebut() JusquA L.DernierElement() Faire
/* Affiche la place libre. */
Ecran.Ecrire(Caractere(U.PlaceLibre)+" Ko\n");
Fin Pour
Fin Principal
- | - | - | - | - | - | - | - | - |