ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 19.09.2024
Просмотров: 15
Скачиваний: 0
СОДЕРЖАНИЕ
3.1 Опис структури даних та вимоги до них
3.2 Опис файлів та їх призначення
3.3 Опис процедур та функцій користувача
3.4 Опис процедур та функцій, що використовувалися у програмі
4 Інструкція для роботи з програмою
Додаток а (Обов’язковий) Лістинг основної програми
Лістинг модуля 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.