База данных группы

[romashon]

Пожалуйста, помогите с задачей:
Необходимо создать базу данных группы в графическом режиме с добавлением информации о сдаваемых предметах, добавление и удаление студентов с сохранением информации в типизированном файле и возможностью сортировки.
Оставьте пожалуйста код программы.
Заранее благодарен.

[Grag]

А не слишком ли шикарно будет за просто так решить эту задачу???

[ROMA2PVT]

Да эт точно во фриланс.Могу ток обычную базу данных кинуть.Без графического интерфейса.

[romashon]

лучше бы вы мне скинули графический интерфейс или хотя бы какие нить наброски его. Остальное я сам могу написать. У меня затруднения вызывает граф режим. Я его совсем не догоняю (( Если нетрудно помогите с граф режимом...

[999Crow999]

Процедура InitGraph инициирует перевод видеоадаптера в видеорежим. Общий вид:

InitGraph(Driver,Mode,Path);

Driver - параметр, определяющий графический драйвер; 0 - автоопределение,9 - VGA.
Mode - параметр, задающий один из графических режимов. Для VGA 0 - 640X200 16 цветов, 1- 640Х350 16 цветов, 2 - 640Х480 16 цветов. Если стоит автоопределение, то параметр Mode надо задавать, выбор будет сделан в пользу максимально возможного из режимов.
Path - имя файла и путь графического драйвера. Указывать надо только путь. Обычно в Паскале используется egavga.bgi. Он расположен в каталоге(например): D:\tp7\BGI\
Пример:

InitGraph(9,2,'d:\tp7\bgi\') ;


Замечание редактора: указанный пример не будет работать, так как первые два аргумента у процедуры InitGraph - параметры-переменные. То есть, числа 9 и 2 надо поместить в переменные типа Integer, и имена этих переменных ставить в качестве первых двух аргументов:

var gd,gm: integer
.........
gd:=9;
gm:=2;
InitGraph (gd,gm,'d:\tp7\bgi\');