Rss

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

Календарь
«    Ноябрь 2019    »
ПнВтСрЧтПтСбВс
 123
45678910
11121314151617
18192021222324
252627282930 
Друзья сайта
кто-то
Знаток » ПРИМЕР 14. РИСУЕМ В ABCPASCAL
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 22
ПРИМЕР 14. РИСУЕМ В 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(45,90,clgreen);
floodfill(70,90,clgreen);
floodfill(90,90,clgreen);
floodfill(110,90,clgreen);
floodfill(140,90,clgreen);
floodfill(160,70,clgreen);
circle(170,70,5);
circle(180,70,5);
arc(175,90,10,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(245,90,clgreen);
floodfill(270,90,clgreen);
floodfill(290,90,clgreen);
floodfill(310,90,clgreen);
floodfill(340,90,clgreen);
floodfill(360,70,clgreen);
circle(370,70,5);
circle(380,70,5);
arc(375,90,10,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(445,90,clgreen);
floodfill(470,90,clgreen);
floodfill(490,90,clgreen);
floodfill(510,90,clgreen);
floodfill(540,90,clgreen);
floodfill(560,70,clgreen);
circle(570,70,5);
circle(580,70,5);
arc(575,90,10,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(645,90,clgreen);
floodfill(670,90,clgreen);
floodfill(690,90,clgreen);
floodfill(710,90,clgreen);
floodfill(740,90,clgreen);
floodfill(760,70,clgreen);
circle(770,70,5);
circle(780,70,5);
arc(775,90,10,0,180);

circle(850,100,20);
circle(875,100,20);
circle(900,100,20);
circle(925,100,20);
circle(950,100,20);
circle(975,75,30);
floodfill(845,90,clgreen);
floodfill(870,90,clgreen);
floodfill(890,90,clgreen);
floodfill(910,90,clgreen);
floodfill(940,90,clgreen);
floodfill(960,70,clgreen);
circle(970,70,5);
circle(980,70,5);
arc(975,90,10,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(45,290,clgreen);
floodfill(70,290,clgreen);
floodfill(90,290,clgreen);
floodfill(110,290,clgreen);
floodfill(140,290,clgreen);
floodfill(160,270,clgreen);
circle(170,270,5);
circle(180,270,5);
arc(175,290,10,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(245,290,clgreen);
floodfill(270,290,clgreen);
floodfill(290,290,clgreen);
floodfill(310,290,clgreen);
floodfill(340,290,clgreen);
floodfill(360,270,clgreen);
circle(370,270,5);
circle(380,270,5);
arc(375,290,10,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(445,290,clgreen);
floodfill(470,290,clgreen);
floodfill(490,290,clgreen);
floodfill(510,290,clgreen);
floodfill(540,290,clgreen);
floodfill(560,270,clgreen);
circle(570,270,5);
circle(580,270,5);
arc(575,290,10,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(445,290,clgreen);
floodfill(470,290,clgreen);
floodfill(490,290,clgreen);
floodfill(510,290,clgreen);
floodfill(540,290,clgreen);
floodfill(560,270,clgreen);
circle(570,270,5);
circle(580,270,5);
arc(575,290,10,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(645,290,clgreen);
floodfill(670,290,clgreen);
floodfill(690,290,clgreen);
floodfill(710,290,clgreen);
floodfill(740,290,clgreen);
floodfill(760,270,clgreen);
circle(770,270,5);
circle(780,270,5);
arc(775,290,10,0,180);

circle(850,300,20);
circle(875,300,20);
circle(900,300,20);
circle(925,300,20);
circle(950,300,20);
circle(975,275,30);
floodfill(845,290,clgreen);
floodfill(870,290,clgreen);
floodfill(890,290,clgreen);
floodfill(910,290,clgreen);
floodfill(940,290,clgreen);
floodfill(960,270,clgreen);
circle(970,270,5);
circle(980,270,5);
arc(975,290,10,0,180);

circle(50,500,20);
circle(75,500,20);
circle(100,500,20);
circle(125,500,20);
circle(150,500,20);
circle(175,475,30);
floodfill(45,490,clgreen);
floodfill(70,490,clgreen);
floodfill(90,490,clgreen);
floodfill(110,490,clgreen);
floodfill(140,490,clgreen);
floodfill(160,470,clgreen);
circle(170,470,5);
circle(180,470,5);
arc(175,490,10,0,180);
floodfill(700,500,cllime);
end.
Подготовила Волонсевич Яна.

Облако Тегов

{links}