Разработка базы данных, отражающей учет успеваемости студентов
Категория реферата: Рефераты по информатике, программированию
Теги реферата: bestreferat ru, роботы реферат
Добавил(а) на сайт: Жичкин.
Предыдущая страница реферата | 16 17 18 19 20 21 22 23 24 25 26 | Следующая страница реферата
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;
Рекомендуем скачать другие рефераты по теме: сочинение изложение, курсовые работы бесплатно.
Предыдущая страница реферата | 16 17 18 19 20 21 22 23 24 25 26 | Следующая страница реферата