Синтез комбинацонных схем и конечных автоматов, сети Петри
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: список рефератов, контрольные работы 7 класс
| Добавил(а) на сайт: Доминика.
Предыдущая страница реферата | 12 13 14 15 16 17 18 19 20 21 22 | Следующая страница реферата
Line(445,273,444,264);Line(445,273,440,265);
Line(293,135,287,142);Line(293,135,291,143);
Line(307,135,309,143);Line(307,135,312,142);
Line(290,282,282,288);Line(290,282,285,290);
Line(311,282,315,290);Line(311,282,317,288);
SetFillStyle(1,8); for counter := 0 to 1 do begin
Line(540,counter*70+150,600,counter*70+150);
Line(540,counter*70+170,600,counter*70+170);
Line(600,counter*70+150,600,counter*70+170);
Line(540,counter*70+150,540,counter*70+170);
FloodFill(570,counter*70+160,15) end;
SetFillStyle(1,15);
OutTextXY(543,159,'Restore');
OutTextXY(555,229,'Exit'); end; procedure Design_Mark_and_Jumps; begin
SetColor(15);
SetLineStyle(0,0,3);
SetFillStyle(1,15);
Hide_Mouse; for counter := 0 to 2 do if ((m shr (7 - counter)) and 1) = 1 then begin
SetColor(15);
SetFillStyle(1,15);
FillEllipse(150,counter*150+50,1,1) end else begin
SetColor(0);
SetFillStyle(1,0);
FillEllipse(150,counter*150+50,1,1) end; for counter := 3 to 4 do if ((m shr (7 - counter)) and 1) = 1 then begin
SetColor(15);
SetFillStyle(1,15);
FillEllipse(300,(counter-3)*150+120,1,1) end else begin
SetColor(0);
SetFillStyle(1,0);
FillEllipse(300,(counter-3)*150+120,1,1) end; for counter := 5 to 7 do if ((m shr (7 - counter)) and 1) = 1 then begin
SetColor(15);
SetFillStyle(1,15);
FillEllipse(450,(counter-5)*150+50,1,1) end else begin
SetColor(0);
SetFillStyle(1,0);
FillEllipse(450,(counter-5)*150+50,1,1) end; for counter := 0 to 2 do if ((r shr (7 - counter)) and 1) = 1 then begin
SetFillStyle(1,10);
FloodFill(150,counter*150+125,15) end else begin
SetFillStyle(1,12);
FloodFill(150,counter*150+125,15) end; for counter := 3 to 5 do if ((r shr (7 - counter)) and 1) = 1 then begin
SetFillStyle(1,10);
FloodFill(450,(counter-3)*150+125,15) end else begin
SetFillStyle(1,12);
FloodFill(450,(counter-3)*150+125,15) end;
SetColor(15);
SetFillStyle(1,15);
Show_Mouse end;
Begin
Init_Graph_Mode; ok := Init_Mouse; flag_of_exit := false; m := m_0; r := r_0; old_m := 0; old_r := 0; if ok = $FFFF then begin
{$I-} assign(f,path); reset(f); ok := filesize(f);
{$I+} if (IOResult = 0) and (ok = 64) then begin for i := 0 to 63 do read(f,ScrMask[i]);
Set_Graph_Cursor(seg(ScrMask),ofs(ScrMask),2,2) end;
Design_Kernel;
Рекомендуем скачать другие рефераты по теме: курсовая работа 2011, современные рефераты.
Категории:
Предыдущая страница реферата | 12 13 14 15 16 17 18 19 20 21 22 | Следующая страница реферата
Главная