Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.12.2011, 18:55   #1
Mariy_19
Новичок
Джуниор
 
Регистрация: 17.12.2011
Сообщений: 6
Восклицание Построить снеговика

Построить снеговика, разукрасить его по своему вкусу. Дайте картинке название.
Mariy_19 вне форума Ответить с цитированием
Старый 18.12.2011, 19:00   #2
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 15,596
По умолчанию

Arigato вне форума Ответить с цитированием
Старый 18.12.2011, 19:01   #3
badname47
Пользователь
 
Регистрация: 03.12.2011
Сообщений: 19
По умолчанию

Цитата:
Сообщение от Arigato Посмотреть сообщение
Классный снеговик
badname47 вне форума Ответить с цитированием
Старый 19.12.2011, 06:53   #4
8Observer8
Старожил
 
Аватар для 8Observer8
 
Регистрация: 02.01.2011
Сообщений: 3,327
По умолчанию

O_o

Ооо, здорово! Новогоднее настроение

А название так и не придумали. Предлагаю название "наивный снеговик-вратарь"

Последний раз редактировалось 8Observer8; 19.12.2011 в 06:57.
8Observer8 вне форума Ответить с цитированием
Старый 19.12.2011, 07:38   #5
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,543
По умолчанию

Ура! Весна ещё не скоро!
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder
Smitt&Wesson вне форума Ответить с цитированием
Старый 19.12.2011, 12:01   #6
warca
Пользователь
 
Регистрация: 14.10.2011
Сообщений: 51
По умолчанию

могу дать самого простого снеговика с ведром и метлой
warca вне форума Ответить с цитированием
Старый 19.12.2011, 12:04   #7
warca
Пользователь
 
Регистрация: 14.10.2011
Сообщений: 51
По умолчанию

Код:
USES Graph;
VAR  Device, Mode: Integer;
BEGIN
	Device:=0;
	InitGraph(Device, Mode, 'c:\tp\bgi');
	Rectangle(300,30,360,80);		{шапка}
	Circle(330,120,40);			{голова}
	Circle(345,110,5);			{глаз}
	Circle(315,110,5);			{глаз}
	Line(320,140,340,140);			{pот}
	Line(330,120,330,130);		 	{нос}
	Line(330,120,305,130); 		{нос}
	Line(330,130,305,130);			{нос}
	Circle(330,220,60);			{сеpедина}
	Circle(330,360,80);			{низ}
	Rectangle(350,163,455,183);  	{pука}
	Rectangle(203,163,308,183);  	{pука}
	Line(210,130,210,440);			{посох}
	ReadLn;
	CloseGraph
END.

Последний раз редактировалось warca; 19.12.2011 в 12:14.
warca вне форума Ответить с цитированием
Старый 19.12.2011, 12:05   #8
warca
Пользователь
 
Регистрация: 14.10.2011
Сообщений: 51
По умолчанию

вроде так :D

думаю разукрасить можете сами.

Последний раз редактировалось warca; 19.12.2011 в 12:33.
warca вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
построить график. с++ Yokka C++ Builder 1 13.05.2010 18:23
построить компилятор matsa Общие вопросы C/C++ 6 13.02.2010 18:23
Построить график!! Inferno777 Помощь студентам 10 30.06.2009 17:46
Графика на Паскале - создать изображение Снеговика HECTOR.A. Помощь студентам 6 23.02.2009 08:52