Rss
Виртуальный кабинет МАТЕМАТИКУС
Популярное
Календарь
«     2024    »
 123
45678910
11121314151617
18192021222324
25262728293031
Журнал "Математика"
Математика
Счетчик посещений
счетчик посещений
Flag Counter

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

Интернет с пользой
Интернет с пользой
Знаток » Информатика » Рисуем в ABCPascal » ПРИМЕР 7. РИСУЕМ В ABCPASCAL
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 719
uses graphabc;
begin
rectangle(80,260,200,370);
rectangle(200,100,350,380);
rectangle(350,210,700,380);
circle(275,400,60);
circle(550,400,60);
floodfill(82,262,clred);
floodfill(202,102,clyellow);
floodfill(352,212,clblue);
rectangle(250,150,300,260);
floodfill(252,152,claqua);
circle(275,400,20);
circle(550,400,20);
floodfill(278,402,clgray);
floodfill(558,402,clgray);
floodfill(235,360,clblack);
floodfill(510,360,clblack);
rectangle(400,150,650,210);
rectangle(450,165,675,210);
floodfill(402,152,clbrown);
floodfill(452,167,clbrown);
rectangle(375,175,625,210);
floodfill(377,177,clbrown);
end.
Составил Грико Игнат.

Облако Тегов

{links}