Лабораторная работа №4 по О-Средам / lab_4_1 / LAB4

{ "ЋЇҐа жЁ®­­лҐ баҐ¤л Ђ‘Ћ€“"
Copyrights 2003 "9331 super group"
‹ Ў®а в®а­ п а Ў®в  4

„Ґ¬®­бва жЁп а Ў®вл б бЁб⥬­л¬Ё ®зҐаҐ¤п¬Ё }

Program Lab4;

{$F+}

Uses Corout,CRT,Dir_Scr;

Procedure myDelay; { Њ Ґ¬бп ¤гамо ;) }
Var I,X : LongInt;
Begin
For I:=1 to 3000000 do
X := Round(3/2);
End;

Const CurKey : Char = #00;

{-- Џа®жҐбб, Є®в®ал© ¤Ґ¬®­бваЁагҐв § ¤Ґа¦Єг --}
Procedure P1; far;
Begin
while true do begin
DirectS.Out('1');
myDelay;
If CurKey = '1' then
Begin
DirectS.Out('D');
DelayList.Delay(40);
End;
end {while};
End {P1};
{-- ‘ ¬®г­Ёз⮦Ґ­ЁҐ Їа®жҐбб  --}
Procedure P2; far;
Begin
while true do begin
DirectS.Out('2');
myDelay;
If CurKey = '2' then
Begin
DirectS.Out('X');
KillList.SelfInsert; { ‘гЁжЁ¤ ;) }
End;
end {while};
End {P2};
{-- ‚л室 Ё§ Їа®Ја ¬¬л --}
Procedure P3; far;
Begin
while true do begin
DirectS.Out('3');
myDelay;
if KeyPressed then
Begin
CurKey := ReadKey;
If CurKey = #27 then { ESC - ‚л室 Ё§ бЁб⥬л }
Begin
Writeln('‚л室 Ї® Є« ўЁиҐ ESC!');
ReadyList.Stop_Manager;
End;
End
Else
CurKey := #00;
End {while};
End {P3};
{-----------------------------------------------------}
Begin
Writeln('ESC - ‚л室 Ё§ Їа®Ја ¬¬л');
Writeln('"1" - ‡ ¤Ґа¦Є  ЇҐаў®Ј® Їа®жҐбб  ­  40 в Єв®ў');
Writeln('"2" - ‚в®а®© Їа®жҐбб б®ўҐаи Ґв бгЁжЁ¤!');
{}
ReadyList.Add_New_Process(p1);
ReadyList.Add_New_Process(p2);
ReadyList.Add_New_Process(p3);
{}
ReadyList.Run_Manager;
{}
Free_All_Subsystems;
End.