Définition...
Opérateurs...
Exemple...
Traduction...
/***************************************************************/
Type UniteListee Defaut
/* Objet : Unite retourne par ListerUnites. */
/****************************************************************/
Prive :
NomUnite : Caractere Lecture Public;
Unite : SorteUnite Lecture Public;
PlaceLibre : Reel Lecture Public;
PlaceTotale : Reel Lecture Public;
Constructeur();
Fin Type
Le type UniteListee possède un constructeur implicite.
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 les noms des unités. */
Ecran.Ecrire(U.NomUnite+"\n");
Fin Pour
Fin Principal
VerzeichneteMasseeinheit | ListedUnit | 列出了单位 | UnidadAlistada | - | - | - | - |