Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

Key:=true;

TextColor(11);

TextBackGround(7);

Clrscr;

SetWindow(24,10,45,14,2,' Главное меню ');

Switch:=GetMainMenuChoice; case Switch of

1:begin

About;

Readln;

Key:=False; end;

2: begin

TextColor(0);

ClrScr;

SetWindow(25,10,40,13,1,' Образовать ');

Switch:=GetSubMenuChoice; case Switch of

1:begin

TextBackGround(0);

TextColor(15);

ClrScr;

SetWindow(1,1,79,24,2,' Демонстрация');

TextColor(14);

GotoXY(2,2);

Init(m,p,r,MainFlag);

Write(‘Информационный полином ');

TextColor(2); for i:=n downto 0 do begin if(i=0)and(r2[i1]=0))do dec(i1); if(i1=-1)then goto RETURN;

Рекомендуем скачать другие рефераты по теме: курсовые, архитектура реферат.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата