Rss

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

Календарь
«    Ноябрь 2019    »
ПнВтСрЧтПтСбВс
 123
45678910
11121314151617
18192021222324
252627282930 
Друзья сайта
кто-то
Знаток » ПРИМЕР 11. РИСУЕМ В ABCPASCAL
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 18
ПРИМЕР 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}