TempsSysteme : Reel Lecture Public;
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 temps consommés par les routines systèmes. */
Ecran.Ecrire(Caractere(P.TempsSysteme)+"\n");
Fin Pour
Fin Principal
- | - | - | - | - | - | - | - | - |