SorteUnite Dans (UniteDisqueDur, UniteDisqueAmovible, UniteReseau, UniteCdRom, UniteVirtuelle);
La signification des valeurs est la suivante :
Principal
/*******/
Variable
/******/
L : Nul Ou ListeDe UniteeListee;
U : Nul Ou UniteeListee;
Debut
L=ListerUnites(Nul);
Pour U=L.ParcoursAuDebut() JusquA L.DernierElement() Faire
Selon U.Unite Faire
Cas Dans (UniteDisqueDur, UniteDisqueAmovible) Faire
Ecran.Ecrire("Disque classique\n");
Fin Cas
Defaut
Ecran.Ecrire("Disque spécial\n");
Fin Defaut
Fin Selon
Fin Pour
Fin Principal
- | - | - | - | - | - | - | - | - |