Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
ZayKa^_^
48 / 47 / 4
Регистрация: 25.05.2010
Сообщений: 100
1

Анимировать снеговика

26.05.2010, 20:03. Просмотров 1179. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Program ZaD_Snegovik;
Uses graph;
Var Device,mode:Integer;
Begin
     Device:=0;
     InitGraph(Device,Mode,'c:\Turbo');
     Setcolor(Brown);
     SetFillStyle(SolidFill,Brown);
     Bar(300,30,360,80);{shapka}
     SetColor(white);
     SetFillStyle(1,white);
     Circle(330,120,40);
     Circle(345,110,5);
     Circle(315,110,5);
     Line(320,140,340,140); {rot}
     SetColor(red); SetFillStyle(SolidFill,red);
     Line(330,120,330,130); {nos}
     Line(330,120,305,130); {nos}
     Line(330,130,305,130); {nos}
     SetColor(White);
     SetFillStyle(SolidFill,LightMagenta);
     Circle(330,220,60);
     Circle(330,360,80);
     Rectangle(350,163,455,183); {ryka}
     Rectangle(203,163,308,183); {ryka}
     SetColor(Red);
     Line(210,130,210,440);  {Posoh}
     Readln;
     CloseGraph
END.
Это рисунок снеговика. Теперь мне надо добавить анимацию(т.е. чтобы снеговик двигался как будто идет)
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2010, 20:03
Ответы с готовыми решениями:

Анимация снеговика
Program ZaD_Snegovik; Uses graph; Var Device,mode:Integer; Begin Device:=0; ...

Нарисовать снеговика
в графике не могу нарисовать снеговика( помогите пожалуйста

Нарисовать снеговика
Нарисуйте снеговика: вот какое должно получиться:

Дорисовать снеговика
Вот к этой программке нужно что-то..елочку например..дорисовать снеговика..выручайте.графику вообще...

1
Стервочка
0 / 0 / 1
Регистрация: 23.05.2010
Сообщений: 32
28.05.2010, 06:58 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Program ZaD_Snegovik;
Uses graph;
Var Device,mode:Integer;
Begin
     Device:=0;
     InitGraph(Device,Mode,'c:\Turbo');
     Setcolor(Brown);
     SetFillStyle(SolidFill,Brown);
     Bar(300,30,360,80);{shapka}
     SetColor(white);
     SetFillStyle(1,white);
     Circle(330,120,40);
     Circle(345,110,5);
     Circle(315,110,5);
setcolor(вырезано...);
     Line(320,140,340,140); {rot}
     SetColor(red); SetFillStyle(SolidFill,red);
     Line(330,120,330,130); {nos}
     Line(330,120,305,130); {nos}
     Line(330,130,305,130); {nos}
     SetColor(White);
     SetFillStyle(SolidFill,LightMagenta);
     Circle(330,220,60);
     Circle(330,360,80);
     Rectangle(350,163,455,183); {ryka}
     Rectangle(203,163,308,183); {ryka}
     SetColor(Red);
     Line(210,130,210,440);  {Posoh}
     Readln;
     CloseGraph
END.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2010, 06:58

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Нарисовать тающего снеговика
Нарисовать в паскале снеговика, который при нажатии кнопки(F2) начнет постепенно таять, превращаясь...

Нарисовать лебедя на воде и анимировать его
Народ помогте с задачкой пожалуйста. В общем мне нужно нарисовать лебедя на воде и анимировать его....

Составьте программу рисования на экране снеговика
Составьте программу рисования на экране снеговика. Радиус меньшего круга и координаты центра этого...

Нарисовать подмигивающего снеговика около елки.
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПОЖАЛУЙСТА. Нарисовать подмигивающего снеговика около елки. СПАСИБО ВСЕМ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.