Графика в паскаль

Государственного бюджетного образовательного учреждения среднего профессионального образования Свердловской области «Слободотуринский аграрно – экономический техникум» группа 113 ПК 230115 Программирование в компьютерных системахПрограмма на языке програмирования паскальСтудент выполнял работы в качестве домашнего задания, мини проекта, тема Програмировние в среде паскаль, линейные алгоритмы, основные графические команды языка.Данная работа выполнена в нетрадиционном представлении на плоскасти...

Раздел	Информатика
Класс	-
Тип	Другие методич. материалы
Автор	Мозырев Д.С.
Дата	17.03.2014
Формат	docx
Изображения	Есть

Поделитесь с коллегами:

Program my_dom; Графика в паскаль

Uses GraphABC;

begin

FloodFill(1,1,clLtGray);

SetPenColor(clBrown);

Line(1,120,100,1);

Line(100,1,200,140);

Line(200,140,200,420);

Line(200,420,20,340);

Line(20,340,20,120);

Line(20,120,1,120);

Line(200,140,20,120);

Line(40,180,40,300);

Line(40,300,160,340);

Line(160,340,160,200);

Line(160,200,40,180);

Line(120,193,120,327);

Line(100,1,420,20);

Line(420,20,540,100);

Line(540,100,520,100);

Line(520,100,200,140);

Line(340,180,420,160);

Line(420,160,420,240);

Line(520,180,642,180);

Line(420,240,340,280);

Line(340,280,340,180);

Line(380,170,380,200);

Line(340,215,380,200);

Line(380,170,380,260);

Line(440,140,480,130);

Line(480,130,480,230);

Line(480,230,440,250);

Line(440,250,440,140);

Line(470,190,480,180);

Line(200,420,520,220);

Line(520,220,520,100);

Line(20,180,-1,180);

Line(20,120,110,10);

FloodFill(60,60,clBlue);

FloodFill(20,20,clSkyBlue);

FloodFill(140,100,clSilver);

FloodFill(100,160,clBrown);

FloodFill(260,240,clMoneyGreen);

FloodFill(460,160,clMedGray);

FloodFill(400,200,clYellow);

FloodFill(360,190,clYellow);

FloodFill(360,240,clYellow);

FloodFill(80,240,clMaroon);

FloodFill(140,260,clMaroon);

FloodFill(60,420,clGreen);

FloodFill(300,60,clBlue);

Circle(100,80,30);

FloodFill(100,80,clBlack);

end.

загрузить