Numero : Entier Lecture Public Trace;
Principal
/*******/
Variable
/******/
L : Nul Ou ListeDe ProcessusListe;
P : Nul Ou ProcessusListe;
Debut
L=ListerProcessus();
/* Liste les processus s'exécutant. */
Pour P=L.ParcoursAuDebut() JusquA L.DernierElement() Faire
/* Affiche les numéros des processus. */
Ecran.Ecrire(Caractere(P.Numero)+"\n");
Fin Pour
Fin Principal
- | - | - | - | - | - | - | - | - |