Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Курсовая работа / Курсовая 2012!7.doc
Скачиваний:
0
Добавлен:
30.05.2020
Размер:
1.79 Mб
Скачать

Додаток в (Обов’язковий) Лістинг модуля Graf

unit graf;

interface

uses Graph, Init;

procedure start;

procedure final;

implementation

procedure start;

begin

mygraphinit;

setbkcolor(8);

setcolor(2);

settextstyle(7,horizdir,6);

outtextxy(85,150,'Kursova robota');

settextstyle(7,horizdir,2);

outtextxy(180,215,'studenta 210-ik grupy');

outtextxy(210,240,'Krykunova Igora');

outtextxy(250,265,'variant 15');

setcolor(4);

line(10,10,10,200); line(10,10,200,10);

line(20,20,20,150); line(20,20,150,20);

line(629,10,429,10); line(629,10,629,210);

line(619,20,469,20); line(619,20,619,150);

line(10,450,10,250); line(10,450,210,450);

line(20,440,20,300); line(20,440,170,440);

line(629,450,629,250); line(629,450,429,450);

line(619,440,619,300); line(619,440,469,440);

Группа 4152readln; closegraph; end;

procedure final;

begin

mygraphinit;

setbkcolor(8);

setcolor(2);

settextstyle(7,horizdir,5);

outtextxy(175,175,'Robota bude');

outtextxy(175,245,'zavershena!');

setcolor(4);

line(10,10,10,200); line(10,10,200,10);

line(20,20,20,150); line(20,20,150,20);

line(629,10,429,10); line(629,10,629,210);

line(619,20,469,20); line(619,20,619,150);

line(10,450,10,250); line(10,450,210,450);

line(20,440,20,300); line(20,440,170,440);

line(629,450,629,250); line(629,450,429,450);

line(619,440,619,300); line(619,440,469,440);

readln;

closegraph;

end;

end.

Соседние файлы в папке Курсовая работа