Курсовая работа: Проектирование базы данных "Справочник покупателя" в среде Turbo Pascal

initgraph (gd,gm,'c:\tp7\BIN');

где процедура detect автоматически определяет тип драйвера;

процедура initgraph переводит монитор с текстового режима в графический.

Если необходимо вывести цветной текст, то следует использовать процедуру setcolor(с), где с выбранный вами цвет от 0 до 15. При помощи процедуры settextstyle(a,b,c),(где а – шрифт, b – стиль, с – размер текста), можно задать шрифт, размер и стиль текста, и с использованием процедуры outtextxy(х,у,' '), (где х,у – координаты расположения курсора для вывода текста, а в кавычках записывается сам текст), вывести его в любом месте экрана. Процедура closegraph завершает работу в графическом режиме.

setcolor(15);

settextstyle(8,0,1);

outtextxy(160,70,'ПАВЛОДАРСКИЙ КОЛЛЕДЖ УПРАВЛЕНИЯ');

outtextxy(170,165,'КУРСОВОЙ ПРОЕКТ ПО ДИСЦИПЛИНЕ: ');

outtextxy(110,180,'"ОСНОВЫ АЛГОРИТМИЗАЦИИ И ПРОГРАММИРОВАНИЯ"');

outtextxy(150,225,'TEMA: Проектирование баз данных «Справочник покупателя»');

outtextxy(465,345,'Разработал');

outtextxy(465,365,'Запорожец А.С.');

outtextxy(465,385,'Группа П-33);

outtextxy(270,410,'2010 год’);

Процедура ВВОDорганизует окно, в котором будут заноситься данные в базу данных.

В начале выполнения процедуры запрашиваются количество записей:

write('skolko to4ek v spravochnike');

readln(x);

Далее в цикле происходит заполнение полей записи после вывода на экран соответствующих сообщений:

write('nazvanie to4ku: ');

readln(z[i].n);

write('telefon: ');

readln(z[i].t);

write('agpec: ');

readln(z[i].a);

write('specializacia: ');

readln(z[i].s);

write('forma sobstven: ');

readln(z[i].f);