Rss
Виртуальный кабинет МАТЕМАТИКУС
Календарь
«    Декабрь 2024    »
ПнВтСрЧтПтСбВс
 1
2345678
9101112131415
16171819202122
23242526272829
3031 
Журнал "Математика"
Математика
Счетчик посещений
счетчик посещений
Flag Counter

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

Интернет с пользой
Интернет с пользой
Знаток » Информатика » Рисуем в ABCPascal » Рисуем снеговика
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 452
  • Сообщить о ошибке
Рисуем снеговика
uses GraphABC;
begin
Ellipse(250,300,550,500);
Ellipse(300,200,500,350);
Ellipse(290,80,510,230);
Ellipse(260,260,310,300);
Ellipse(490,260,540,300);
circle(345,130,12);
circle(455,130,12);
arc(400,180,30,180,360);
line(400,155,400,170);
line(400,170,480,170);
line(480,170,400,155);
rectangle(310,20,490,110);
end.

Облако Тегов

{links}