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

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

Интернет с пользой
Интернет с пользой
Знаток » Информатика » Рисуем в ABCPascal » ПРИМЕР 12. РИСУЕМ В ABCPASCAL
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 291
ПРИМЕР 12. РИСУЕМ В ABCPASCALuses GraphABC;
begin
Circle(50,100,20);
FloodFill(50,100,clGreen);
Circle(75,100,20);
FloodFill(75,100,clRed);
Circle(100,100,20);
FloodFill(100,100,clBlue);
Circle(125,100,20);
FloodFill(125,100,clYellow);
Circle(150,100,20);
FloodFill(150,100,clGray);
Circle(175,75,30);
FloodFill(175,75,clAqua);
Circle(165,72,10);
FloodFill(165,72,clblack);
Circle(190,72,10);
FloodFill(190,72,clbrown);
FloodFill(1000,1000,cllime);
Circle(355,100,20);
FloodFill(355,100,clGreen);
Circle(380,100,20);
FloodFill(380,100,clRed);
Circle(400,100,20);
FloodFill(400,100,clBlue);
Circle(425,100,20);
FloodFill(425,100,clYellow);
Circle(450,100,20);
FloodFill(450,100,clGray);
Circle(475,75,30);
FloodFill(475,75,clAqua);
Circle(465,72,10);
FloodFill(465,72,clblack);
Circle(490,72,10);
FloodFill(490,72,clbrown);
FloodFill(1000,100,cllime);
end.
Подготовил Томашевич Вадим.

Облако Тегов

{links}