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

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

Интернет с пользой
Интернет с пользой
Знаток » Информатика » Рисуем в ABCPascal » ПРИМЕР 8. РИСУЕМ В ABCPASCAL
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 316
uses GraphABC;
begin
rectangle(80,260,200,370);
rectangle(200,100,350,380);
rectangle(350,180,650,380);
circle(275,400,60);
circle(550,400,60);
FloodFill(85,265,clMoneyGreen);
FloodFill(205,105,clSilver);
FloodFill(355,185,clTeal);
FloodFill(280,405,clMedGray);
FloodFill(560,405,clSkyBlue);
rectangle(250,170,300,300);
FloodFill(355,185,clLime);
circle(550,400,20);
FloodFill(555,405,clTeal);
circle(275,400,20);
FloodFill(275,405,clTeal);
rectangle(400,100,630,180);
FloodFill(405,165,clBrown);
rectangle(410,110,630,180);
FloodFill(415,115,clBrown);
end.
Подготовил Журавель Егор.

Облако Тегов

{links}