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

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

Интернет с пользой
Интернет с пользой
Знаток » Информатика » Рисуем в ABCPascal » ПРИМЕР 11. РИСУЕМ В ABCPASCAL
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 259
ПРИМЕР 11. РИСУЕМ В ABCPASCALUses GraphABC;
begin
Circle(50,100,20);
FloodFill(50,100,clGray);
Circle(75,100,20);
FloodFill(75,100,clRed);
Circle(100,100,20);
FloodFill(100,100,clLime);
Circle(125,100,20);
FloodFill(125,100,clGreen);
Circle(150,100,20);
FloodFill(150,100,clSkyBlue);
Circle(175,73,30);
FloodFill(175,73,clGreen);
circle(162,72,7);
FloodFill(162,75,clBlack);
circle(189,72,7);
FloodFill(189,75,clBlack);
Circle(50,200,20);
FloodFill(50,200,clGray);
Circle(75,200,20);
FloodFill(75,200,clRed);
Circle(100,200,20);
FloodFill(100,200,clLime);
Circle(125,200,20);
FloodFill(125,200,clGreen);
Circle(150,200,20);
FloodFill(150,200,clSkyBlue);
Circle(175,180,30);
FloodFill(175,180,clGreen);
circle(162,180,7);
FloodFill(162,180,clBlack);
circle(189,180,7);
FloodFill(189,180,clBlack);
Circle(50,300,20);
FloodFill(50,300,clGray);
Circle(75,300,20);
FloodFill(75,300,clRed);
Circle(100,300,20);
FloodFill(100,300,clLime);
Circle(125,300,20);
FloodFill(125,300,clGreen);
Circle(150,300,20);
FloodFill(150,300,clSkyBlue);
Circle(175,285,30);
FloodFill(175,285,clGreen);
circle(162,278,7);
FloodFill(162,278,clBlack);
circle(189,278,7);
FloodFill(189,278,clBlack);
FloodFill(1,1,clSilver)
end.
Подготовил Яковенко Матвей.

Облако Тегов

{links}