Разработка базы данных, отражающей учет успеваемости студентов
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: bestreferat ru, роботы реферат
| Добавил(а) на сайт: Жичкин.
Предыдущая страница реферата | 16 17 18 19 20 21 22 23 24 25 26 | Следующая страница реферата
read(outf,temr^.tabl);
if eof(outf) then break;
new(temr^.sled);
temr:=temr^.sled;
end;
temr^.sled:=nil;
case i of
1:tt1:=tems;
2:tt2:=tems;
3:tt3:=tems;
4:tt4:=tems;
end;
end;
CLOSE(outf);
end;
nast:=menu1; menus(nast,nast.m); tek:=2;
end;
procedure main;
begin
key:=#0;
if nast.st[1]=menu1.st[1] then begin {Если меню - основное}
case tek of
2:readtip(temr);
3:writetip(temr);
4,5,7:begin
nast:=menu2; menus(nast,nast.m);
if tek=7 then issor:=true;
if tek=4 then vfile:=true
else if tek=5 then vfile:=false;
tek:=2;
end;
6:begin
nast:=menu3; menus(nast,nast.m); tek:=2;
end;
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;
Рекомендуем скачать другие рефераты по теме: сочинение изложение, курсовые работы бесплатно.
Категории:
Предыдущая страница реферата | 16 17 18 19 20 21 22 23 24 25 26 | Следующая страница реферата
Главная