- 18.04.2014
- 1307
- 14
-
Курсы
-
Другое
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.
Курс повышения квалификации
Курс повышения квалификации
Курс профессиональной переподготовки
Курс повышения квалификации
Рабочие листы
к вашим урокам
Скачать
Государственного бюджетного образовательного учреждения среднего профессионального образования Свердловской области «Слободотуринский аграрно – экономический техникум» группа 113 ПК 230115 Программирование в компьютерных системахПрограмма на языке програмирования паскальСтудент выполнял работы в качестве домашнего задания, мини проекта, тема Програмировние в среде паскаль, линейные алгоритмы, основные графические команды языка.Данная работа выполнена в нетрадиционном представлении на плоскасти а объеме.
7 364 953 материала в базе
Настоящий материал опубликован пользователем Мозырев Дмитрий Степанович. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материал
Вам будут доступны для скачивания все 353 572 материалы из нашего маркетплейса.
Мини-курс
2 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.