Rss
Виртуальный кабинет МАТЕМАТИКУС
Популярное
Календарь
«     2024    »
1234567
891011121314
15161718192021
22232425262728
2930 
Журнал "Математика"
Математика
Счетчик посещений
счетчик посещений
Flag Counter

Опросы
Оцените работу сайта
Лучший
Неплохой
Устраивает ... но ...
Встречал и получше
Совсем не понравился

Интернет с пользой
Интернет с пользой
Знаток » Информатика » Рисуем в ABCPascal » ПРИМЕР 15. РИСУЕМ В ABCPASCAL
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 700
ПРИМЕР 15. РИСУЕМ В ABCPASCALuses graphABC;
begin
circle(50,100,20);
circle(75,100,20);
circle(100,100,20);
circle(125,100,20);
circle(150,100,20);
circle(175,75,30);
floodfill(50,100,clteal);
floodfill(75,100,clteal);
floodfill(100,100,clteal);
floodfill(125,100,clteal);
floodfill(150,100,clteal);
floodfill(175,75,CLteal);
Circle(160,70,7);
circle(190,70,7);
arc(175,90,11,0,180);

circle(250,100,20);
circle(275,100,20);
circle(300,100,20);
circle(325,100,20);
circle(350,100,20);
circle(375,75,30);
floodfill(250,100,clteal);
floodfill(275,100,clteal);
floodfill(300,100,clteal);
floodfill(325,100,clteal);
floodfill(350,100,clteal);
floodfill(375,75,CLteal);
Circle(360,70,7);
circle(390,70,7);
arc(375,90,11,0,180);

circle(450,100,20);
circle(475,100,20);
circle(500,100,20);
circle(525,100,20);
circle(550,100,20);
circle(575,75,30);
floodfill(450,100,clteal);
floodfill(475,100,clteal);
floodfill(500,100,clteal);
floodfill(525,100,clteal);
floodfill(550,100,clteal);
floodfill(575,75,CLteal);
Circle(560,70,7);
circle(590,70,7);
arc(575,90,11,0,180);

circle(650,100,20);
circle(675,100,20);
circle(700,100,20);
circle(725,100,20);
circle(750,100,20);
circle(775,75,30);
floodfill(650,100,clteal);
floodfill(675,100,clteal);
floodfill(700,100,clteal);
floodfill(725,100,clteal);
floodfill(750,100,clteal);
floodfill(775,75,CLteal);
Circle(760,70,7);
circle(790,70,7);
arc(775,90,11,0,180);

circle(50,300,20);
circle(75,300,20);
circle(100,300,20);
circle(125,300,20);
circle(150,300,20);
circle(175,275,30);
floodfill(50,300,clteal);
floodfill(75,300,clteal);
floodfill(100,300,clteal);
floodfill(125,300,clteal);
floodfill(150,300,clteal);
floodfill(175,275,CLteal);
Circle(160,270,7);
circle(190,270,7);
arc(175,290,11,0,180);

circle(250,300,20);
circle(275,300,20);
circle(300,300,20);
circle(325,300,20);
circle(350,300,20);
circle(375,275,30);
floodfill(250,300,clteal);
floodfill(275,300,clteal);
floodfill(300,300,clteal);
floodfill(325,300,clteal);
floodfill(350,300,clteal);
floodfill(375,275,CLteal);
Circle(360,270,7);
circle(390,270,7);
arc(375,290,11,0,180);

circle(450,300,20);
circle(475,300,20);
circle(500,300,20);
circle(525,300,20);
circle(550,300,20);
circle(575,275,30);
floodfill(450,300,clteal);
floodfill(475,300,clteal);
floodfill(500,300,clteal);
floodfill(525,300,clteal);
floodfill(550,300,clteal);
floodfill(575,275,CLteal);
Circle(560,270,7);
circle(590,270,7);
arc(575,290,11,0,180);


circle(650,300,20);
circle(675,300,20);
circle(700,300,20);
circle(725,300,20);
circle(750,300,20);
circle(775,275,30);
floodfill(650,300,clteal);
floodfill(675,300,clteal);
floodfill(700,300,clteal);
floodfill(725,300,clteal);
floodfill(750,300,clteal);
floodfill(775,275,CLteal);
Circle(760,270,7);
circle(790,270,7);
arc(775,290,11,0,180);
floodfill(1,1,clgray);
end.
Подготовила Синица Юлия.

Облако Тегов

{links}