Diapositiva PPT

In a simple railroad system, trains, with a number of coaches equal

to a random number from 16 to 20, depart from a station each 45

minutes. After 25 minutes of travel, the trains reach their destination.

The program writes the time of arrival and the number of coaches.

For clarity, in all the manual, GLIDER and Pascal reserved words are in

upper case letters; user identifications are in lower cases with normally

the first letter in upper case.

NETWORK

Depart (I) Railroad :: Coaches := UNIFI(16,20); IT := 45;

Railroad (R) Destination :: STAY := 25;

Destination (E) :: WRITELN('A train arrives at time:',

TIME, 'Its length is', Coaches);

PAUSE;

INIT TSIM := 1300; ACT(Depart, 0);

DECL MESSAGES Depart(Coaches: INTEGER);

STATISTICS ALLNODES;

END.