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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.05.2011, 11:14   #1
kresik
 
Регистрация: 24.05.2011
Сообщений: 6
Печаль Графика

Код:
Program domik;
Var d,m:integer;
begin
d:=detect;
initgraph(d,m,’’);
setcolor(14);
setbkcolor(15);
circle(570,70,50);
setfillstyle(1,14);
floodfill(570,70,14);
setcolor(11);
circle(550,56,4);
setfillstyle(1,11);
floodfill(550,56,11);
circle(590,56,4);
setfillstyle(1,11);
floodfill(590,56,11);
setcolor(12);
line(570,62,570,70);
line(555,82,585,82);
setcolor(6);
rectangle(200,400,400,200);
line(400,200,300,100);
line(200,200,300,100);
setfillstyle(9,6);
floodfill(360,180,6);
setfillstyle(9,11);
floodfill(201,398,6);
rectangle(310,400,400,240);
setfillstyle(1,7);
floodfill(311,398,6);
circle(360,330,5);
setfillstyle(1,6);
floodfill(360,330,6);
rectangle(230,290,270,240);
setfillstyle(1,15);
floodfill(231,288,6);
line(250,240,250,290);
line(230,260,270,260);
readln;
closegraph;
end.
вот тут нужно добавить колобка :D который из исходной точки передвигается по введнным с клавиатуры координат, типо анимации. Заранее благодарен
kresik вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Графика!!! H'orn Общие вопросы .NET 1 20.03.2010 17:40
Графика в C# levonec88p Помощь студентам 0 23.01.2010 20:20
Графика VB 6 MarihuanaP Помощь студентам 0 05.12.2009 19:49
Графика и БД Elena_Saygina Компоненты Delphi 7 13.10.2009 06:26
Графика!!! kykysya Общие вопросы C/C++ 1 17.12.2008 20:18