Szkielet metody która po 12 jednostkach czasu przerwie prace gniazda obsługi ,a po 28 wznowi prace gniazda. Kazał w tym uzyc : START SIMULATION, TELL GEN TO WORK, TELL SER TO WORK
Gen to generator, Ser to gniazdo obsługi,chyba
Tell method obsluguj (in t1:integer, in t2:integer)
Zadania te dwa są pisane szybko przed zaliczeniem więc nie spodziewałabym się po nich dobrych rozwiązań
Var
I:integer
Time1:integer
Time2:integer
Begin
I:in
Time1:t1
Time2:t2
Tell self to dodaj();
Wait duration 12.0;
On interrupt;
End wait;
Interrupt(self,”dodaj”);
Wait duration 16.0;
On interrupt;
End wait;
Tell self to Dodaj();
End method;
2. Po 17 jedostkach dodaje 3 zgłoszenia, po 35 jednostkach odejmuje jedno o ile jest.
Tell metod..
Var
Time1:integer;
Time2:integer;
I:integer;
Begin
timje1:=17;
time2:=35;
wait duration (time1)
end wait
for i=1 to 3 by 1
New (klien);
Ask kolejka to wstaw (klient);
End for;
Wait duration(time2)
End wait;
.
.
.
Else if output(“Kolejka pusta”)
Podał tresc zadania, ta sama jest dla metody ask I tell, należy podac wyniki dla obu metod. Podchwytliwe, bo ask nie wytraca czasu dlatego należało napisac ERROR.
Ask Output( ”A: ” + simtime) //gdzie A=1.0 Wait duration (2.0); Output(”B: ” + simtime) ; On interrupt; Podac rozwiazania dla a,b,c,d |
Tell Output( ”A: ” + simtime) //gdzie A=1.0 Wait duration (2.0); Output(”B: ” + simtime) ; On interrupt; Podac rozwiazania dla a,b,c,d |
|---|---|
| error | A:1.0 B 3.0 C 1.0-3.0 D 3.0 |