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

Опросы
Оцените работу сайта

Интернет с пользой
Интернет с пользой
Знаток » Информатика » Рисуем в ABCPascal » ПРИМЕР 17. РИСУЕМ В ABCPASCAL
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 1 064
  • Сообщить о ошибке
ПРИМЕР 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}