Разработка базы данных, отражающей учет успеваемости студентов
Категория реферата: Рефераты по информатике, программированию
Теги реферата: bestreferat ru, роботы реферат
Добавил(а) на сайт: Жичкин.
Предыдущая страница реферата | 16 17 18 19 20 21 22 23 24 25 26 | Следующая страница реферата
end;
end;
end;
end;
begin
clrscr;
textBackground(black);
tek:=2; kr:='-';
exist:=false;
nast:=menu1; menus(nast,nast.m);
while 1>0 do begin
if keypressed then key:=readkey;
case key of
#80:ramka('+');
#72:ramka('-');
#27:exist:=true;
#13:main;
end;
if exist then exit;
krutis;
end;
end.
Текст модуля Tips.pas
Unit tips;
interface
type
pered=record
st:array[1..12] of string;
m:byte;
end;
tabl2=record
t1,t2,t3,t4,t5:string[12];
end;
cc=^tab;
tab=record
tabl:tabl2;
sled:cc;
end;
var
menu1,menu2,menu3,menu4:pered;
mm:array[1..5,1..5] of string[50];
implementation
begin
with menu1 do begin
st[1]:='БАЗА ДАННЫХ';
st[2]:='Загрузка';
st[3]:='Сохр. в тип. файл';
st[4]:='Сохр. в текст. файл';
st[5]:='Просмотр';
st[6]:='Корректировка';
Рекомендуем скачать другие рефераты по теме: сочинение изложение, курсовые работы бесплатно.
Предыдущая страница реферата | 16 17 18 19 20 21 22 23 24 25 26 | Следующая страница реферата