Файл: Звіт з курсової роботи по АП.docx

Лістинг модуля GRAPHIKA

unit Graphika;

interface

procedure Privetstvie;

procedure Mywork;

procedure KONETS;

implementation

uses Graph, Mygraph;

var k,x,y: integer;

s:string;

procedure Privetstvie;

begin

Mygraphinit;

x:=350;

y:=200;

s:='PRIVET!';

k:=6;

setbkcolor(2);

setcolor(4);

settextstyle(0,0,5);

outtextxy(x,y,s);

setcolor(4);

circle(200,200,100);

setfillstyle(1,14);

floodfill(200,200,4);

circle(160,180,20);

setfillstyle(1,12);

floodfill(160,180,4);

circle(240,180,20);

floodfill(240,180,4);

ellipse(200,220,180,0,70,50);

settextstyle(0,0,1);

outtextxy(200,430,'Dlia prodolzhenia nazhmite klavishu ENTER...');

readln;

ClearDevice; Closegraph; end;

procedure Mywork;

begin

Mygraphinit;

setbkcolor(2);

setcolor(1);

rectangle(70,60,600,250);

setfillstyle(1,1);

floodfill(100,100,1);

setcolor(14);

settextstyle(0,0,3);

outtextxy(100,100,'Vykonala Susyk Alina');

outtextxy(200,200,'Variant 21');

readln;

Cleardevice;

Closegraph;end;

procedure KONETS;

begin

Mygraphinit;

setbkcolor(10);

setcolor(4);

settextstyle(0,0,5);

outtextxy(100,300,'DO SVIDANIA!');

setfillstyle(1,4);

line(290,220,170,100);

line(290,220,410,100);

ellipse(230,100,0,180,60,50);

ellipse(350,100,0,180,60,50);

floodfill(230,100,4); readln;

ClearDevice; Closegraph;

end;end.