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

8:begin nast:=menu4; menus(nast,nast.m); tek:=2; end;

9: begin exist:=true; end; end; end

else if nast.st[1]=menu3.st[1] then begin {Если текущее меню-menu3} case tek of

2,3,4:begin izm:=tek-1; nast:=menu2; menus(nast,nast.m); tek:=2; end;

5:begin nast:=menu1; menus(nast,nast.m); tek:=2; end; end; end

else if nast.st[1]=menu4.st[1] then begin {Если текущее меню-menu4} case tek of

2,3,4,5,6:zapros(tek);

7:begin nast:=menu1; menus(nast,nast.m); tek:=2; end; end; end

else if nast.st[1]=menu2.st[1] then begin {Если текущее меню-menu2} if izm>0 then begin case tek of

2:obrabotka(izm, tek-1,tt1);

3:obrabotka(izm, tek-1,tt2);

4:obrabotka(izm, tek-1,tt3);

5:obrabotka(izm, tek-1,tt4);

6:begin nast:=menu1; menus(nast,nast.m); izm:=0; tek:=2; end; end; end else if issor=true then begin issor:=false; case tek of

2:sort(izm, tek-1,tt1);

3:sort(izm, tek-1,tt2);

4:sort(izm, tek-1,tt3);

5:sort(izm, tek-1,tt4);

6:begin nast:=menu1; menus(nast,nast.m); izm:=0; tek:=2; end; end; end

else begin case tek of

2:if vfile then tabl11(tek,tt1) else tabl1(tek,tt1,false);

3:if vfile then tabl11(tek,tt2) else tabl1(tek,tt2,false);

4:if vfile then tabl11(tek,tt3) else tabl1(tek,tt3,false);

5:if vfile then tabl11(tek,tt4) else tabl1(tek,tt4,false);

6:begin nast:=menu1; menus(nast,nast.m); izm:=0; tek:=2; end; end; end; end; end;

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



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

Поделитесь этой записью или добавьте в закладки