Rss

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

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