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

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

Интернет с пользой
Интернет с пользой
Знаток » Информатика » Рисуем в ABCPascal » ПРИМЕР 17. РИСУЕМ В ABCPASCAL
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 800
ПРИМЕР 17. РИСУЕМ В ABCPASCALuses graphabc;
begin
circle(100,100,40);
rectangle(300,100,400,200);
line(139,110,300,150);
circle(600,100,40);
line(400,150,560,100);
circle(300,350,30);
circle(400,350,30);
line(310,200,300,320);
line(390,200,400,320);
rectangle(320,110,340,120);
rectangle(380,110,360,120);
rectangle(330,170,370,180);
floodfill(302,102,clyellow);
floodfill(332,172,clblue);
floodfill(322,112,clblue);
floodfill(361,111,clblue);
floodfill(100,100,cllime);
floodfill(600,100,cllime);
floodfill(300,350,clred);
floodfill(400,350,clred);
end.
Подготовил Грико Игнат

Облако Тегов

{links}