Скачиваний:
59
Добавлен:
01.05.2014
Размер:
1.64 Кб
Скачать
{ "ЋЇҐа жЁ®­­лҐ баҐ¤л Ђ‘Ћ€“" 2003 Ј®¤
‹ Ў®а в®а­ п а Ў®в  1
Ја. 9331 }
Program Lab1;

Uses Corout,Crt;

Var
proc1,
proc2,
proc3,
Monitor : descptr;
{-----------------------------------------------------}
Procedure MonitorProc; far;
Begin
While true do Begin
Transfer(Monitor,proc1);
Transfer(Monitor,proc2);
Transfer(Monitor,proc3);
End;
End;
{-----------------------------------------------------}
Procedure P1; far;
Begin
while true do begin
DirectS.Out(';');
Delay(300);
Transfer(proc1,Monitor);
end {while};
End {P1};
{-----------------------------------------------------}
Procedure P2; far;
Begin
while true do begin
DirectS.Out(')');
Delay(300);
Transfer(proc2,Monitor);
end {while};
End {P2};
{-----------------------------------------------------}
Procedure P3; far;
Begin
while true do begin
DirectS.Out(' ');
Delay(300);
if KeyPressed then
if ReadKey = #27 then
Begin
Writeln('‚л室 Ї® Є« ўЁиҐ ESC!');
Transfer(proc3,main);
End;
Transfer(proc3,Monitor);
End {while};
End {P3};
{-----------------------------------------------------}
Begin
ClrScr;
Writeln('„®бвгЇ­® Ї ¬пвЁ ў ­ з «Ґ: ',MemAvail);
{}
New(Monitor,Init(MonitorProc));
New(proc1,Init(p1));
New(proc2,Init(p2));
New(proc3,Init(p3));
{}
Transfer(main,Monitor);
{}
Dispose(Monitor,Done);
Dispose(proc1,Done);
Dispose(proc2,Done);
Dispose(proc3,Done);
{}
Writeln('„®бвгЇ­® Ї ¬пвЁ ў Є®­жҐ: ',MemAvail);
End {Example}.

Соседние файлы в папке LAB1