Авторская разработка проекта на тему "Графика в Паскале"

Авторская разработка проекта на тему "Графика в Паскале"

Презентации учебные
pdf
Информатика
5 кл—11 кл
16.01.2020
Авторская разработка проекта в паскале по графике
скачать по прямой ссылке

150.000₽ призовой фонд • 11 почетных документов • Свидетельство публикации в СМИ

Опубликовать материал

Проект «Графика в паскале».pdf

ПРОЕКТ «ГРАФИКА В ПАСКАЛЕ»

«Слон»

Автор: Смирнова А. 

Учитель: Шерстюк С.В.

МБОУ «Гимназия №8» г.Можга УР

              Program Slon;

              uses GraphABC;

              begin SetWindowWidth(620);

              SetWindowHeight(480);

              SetPenWidth(3);

              SetFontSize(18);

              SetFontColor(clBlack);

              SetFontStyle(fsBold);

              Line(20,340,80,320);

              Line(20,340,80,340);

              Line(80,340,100,400); Line(100,400,80,440);

              Line(80,440,100,460);

              Line(100,460,140,460);

              Line(140,460,160,440);

Line(160,440,140,400); Line(140,400,160,360);

              Line(140,400,180,400); Line(180,400,200,420); Line(200,420,180,440); Line(180,440,160,440);

              Line(180,400,240,380);

              Line(240,380,260,360); Line(260,360,260,320); Line(260,320,220,340); Line(260,360,280,380); Line(280,380,320,360); Line(320,360,320,340); Line(320,340,300,300); Line(300,300,240,280); Line(260,360,280,400); Line(280,400,260,420); Line(260,420,280,440);

              Line(280,440,320,440);

 

 

 

              Line(320,440,340,420); Line(340,420,320,400); Line(320,400,340,310); Line(320,340,360,280);

              Line(340,260,440,360);

              Line(440,360,480,360); Line(480,360,520,320); Line(520,320,480,300); Line(480,300,460,320); Line(460,320,480,360); Line(460,320,440,320); Line(440,320,440,360); Line(440,320,420,300); Line(420,300,400,320);

              Line(420,300,400,260);

Line(400,260,380,280); Line(400,260,400,220);

              Line(400,220,380,200); Line(380,200,360,200);

              Line(360,200,320,240);

              Line(80,340,80,300);

              Line(80,300,100,260);

              Line(100,260,120,240); Line(120,240,200,240);

              Line(200,240,280,220);

              Line(120,240,40,220);

              Line(40,220,40,160); Line(40,160,60,120); Line(60,120,100,80);

              Line(100,80,120,80);

              Line(120,80,280,140);

              Line(120,80,300,120);

              Line(280,140,240,140);

              Line(240,140,220,160);

              Line(220,160,220,180); Line(300,120,280,140); Line(280,140,260,180); Line(260,180,280,220);

              Line(280,220,300,240);

              Line(300,120,380,120); Line(340,140,320,140); Line(320,140,300,160);

              Line(300,160,300,180);

              Line(380,120,540,80);

              Line(400,140,540,80);

              Line(380,120,400,140); Line(380,140,420,140); Line(400,140,400,160);

              Line(420,140,440,160);

Line(440,160,440,180); Line(420,180,420,200);

              Line(420,200,400,220); Line(400,240,420,260); Line(420,260,500,220); Line(500,220,580,160);

              Line(580,160,580,100);

              Line(580,100,560,80);

              Line(560,80,540,80);

              Line(340,160,320,180); Line(340,160,360,180); Line(360,180,340,200); Line(340,200,320,180); Line(340,200,340,180); Line(340,180,320,180); Line(400,160,380,180); Line(380,180,400,200); Line(400,200,420,180);

 

 

 


              Line(420,180,400,160); Line(400,180,380,180); Line(400,180,400,200); Line(480,300,480,240);

              Line(480,240,500,260);

              Line(500,260,480,300); Line(520,300,560,260); Line(560,260,560,280); Line(560,280,520,300); Line(520,260,540,220); Line(540,220,560,220); Line(560,220,560,240); Line(560,240,520,260);

 

 

 

              FloodFill(180,420,clGray);

              FloodFill(300,400,clGray);

              FloodFill(180,300,clLightGray);

              FloodFill(70,330,clLightGray);

              FloodFill(260,120,clLightGray);

              FloodFill(420,120,clLightGray); FloodFill(420,320,clLightGray); FloodFill(460,340,clLightGray);

              FloodFill(480,320,clLightGray);

              FloodFill(490,270,clLightBlue); FloodFill(540,240,clLightBlue);

              FloodFill(550,280,clLightBlue);

              FloodFill(330,185,clBlack);

              FloodFill(390,185,clBlack);

              FloodFill(120,140,clLightPink);

              FloodFill(500,140,clLightPink);

end.

 


Друзья! Добро пожаловать на обновленный сайт «Знанио»!

Если у вас уже есть кабинет, вы можете войти в него, используя обычные данные.

Что-то не получается или не работает? Мы всегда на связи ;)