Rss
Виртуальный кабинет МАТЕМАТИКУС
Популярное
Календарь
«    Сентябрь 2020    »
ПнВтСрЧтПтСбВс
 123456
78910111213
14151617181920
21222324252627
282930 
Журнал "Математика"
Математика
Счетчик посещений
счетчик посещений
Flag Counter

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

Интернет с пользой
Интернет с пользой
Знаток » Информатика » Рисуем в ABCPascal » ПРИМЕР 13. РИСУЕМ В ABCPASCAL
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 272
ПРИМЕР 13. РИСУЕМ В ABCPASCALuses graphabc;
begin
circle(200,200,30);
circle(250,200,30);
circle(300,200,30);
circle(350,200,30);
circle(400,200,30);
circle(450,170,50);
floodfill(202,202,clgreen);
floodfill(252,202,clgreen);
floodfill(302,202,clgreen);
floodfill(352,202,clgreen);
floodfill(402,202,clgreen);
floodfill(452,202,clgreen);
line(425,130,410,80);
line(480,130,500,80);
circle(410,80,10);
circle(500,80,10);
floodfill(410,80,clgreen);
floodfill(500,80,clgreen);
circle(440,160,10);
circle(485,160,10);
floodfill(440,160,clyellow);
floodfill(485,160,clyellow);
line(440,190,465,210);
line(465,210,485,190);
line(485,190,465,200);
line(465,200,440,190);
end.
Подготовил Грико Игнат.

Облако Тегов

{links}