Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
4 / 4 / 3
Регистрация: 13.11.2012
Сообщений: 74
1

Анимация самолета, управляемая клавиатурой

02.03.2013, 18:10. Просмотров 1107. Ответов 3
Метки нет (Все метки)

Ребят, помогите с программой.
Нужно , чтоб самолет летел , а при нажатии пробел , падал ящик и летел по осе Y, пока не упадет на остров либо в море(если попал на море, то должен утонуть), самолет должен летать постоянно, программа выключ при нажатии Esc.

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
program samolet;
uses graph,crt;
var x,i,m,y,a,k :integer;
c:char;
procedure ostrov;
begin
setbkcolor(lightcyan);
setcolor(brown);                                    {-80 }
setlinestyle(0,0,3);
setfillstyle(1,yellow);
sector(320,479,0,180,180,60);                       { -80  }
                   {palma}
setcolor (brown);
setlinestyle(0,0,1);
line(170,446,110,300);
line(188,438,120,290);
line(110,300,120,290);
line(170,446,188,438);
{readln;
setfillstyle(1,brown);
floodfill(124,300,darkgray); }
setfillstyle(1,brown);
floodfill(124,300,brown);
                  {more}
line(490,460,640,460);
Line(0,460,150,460);
setcolor(blue);
line(493,460,640,460);
Line(0,460,146,460);
setfillstyle(1,blue);
floodfill(10,470,brown);
floodfill(500,470,brown);
                  {listi}
setcolor(green);
setfillstyle(1,green);
 
ellipse(120,320,90,270,6,30);
ellipse(120,320,90,270,20,30);
floodfill(110,320,green);
 
ellipse(114,330,110,195,23,35);
ellipse(109,315,110,225,25,30) ;
 
{putpixel(90,300,red);}
 
 
ellipse(100,295,15,180,20,7);
ellipse(100,295,15,180,20,15);
floodfill(90,300,green);
floodfill(90,285,green);
 
ellipse(122,320,340,100,40,35);
 
ellipse(119,330,360,100,40,35);
 
{putpixel(120,287,red);
readln;          }
floodfill(120,287,green);
ellipse(133,292,8,210,20,10);
 
ellipse(133,292,0,210,20,20);
{putpixel(130,277,red);
readln;        }
floodfill(130,277,green);
end;
 
procedure jahic;
begin
 
 
 
setfillstyle(1,LIGHTCYAN);
bar(m-20,y-20,m+35 ,y+20);
setlinestyle(1,0,red);
setfillstyle(1,brown);
bar3d(m,y,m+25,y+25,10,true);
y:=y+10;
 
 
end;
 
 
Procedure samol;
var c:integer;
begin
c:=red;
setfillstyle(1,lightcyan);
bar(0,100,640,220);
setcolor(c);
   setlinestyle(0,0,1);
line(532+x,120,514+x,170);
line(522+x,120,514+x,142);
 
line(514+x,142,524+x,142);
line(514+x,170,440+x,170);
line(430+x,160,480+x,210);
line(400+x,160,450+x,210);
ellipse(415+x,160,0,180,15,7);
   {setlinestyle(0,0,1);}
ellipse(465+x,210,0,360,14,3);
line(380+x,170,410+x,170);
line(532+x,120,506+x,120);
line(500+x,140,506+x,120);
line(500+x,140,380+x,140);
line(380+x,140,350+x,155);
setlinestyle(0,0,3);
line(350+x,155,330+x,155);
setlinestyle(0,0,1);
line(350+x,155,380+x,170);
ellipse(395+x,140,0,180,15,10);
line(430+x,140,460+x,110);
line(408+x,134,430+x,110);
ellipse(445+x,110,0,180,15,5);
 
 
SetFillStyle(1,yellow);
FloodFill(400+x,150,c);
 
SetFillStyle(1,white);
FloodFill(520+x,140,c);
floodfill(420+x,170,c);
line(529+x,120,521+x,142);
line(527+x,120,519+x,142);
line(403+x,157,453+x,207);
line(405+x,155,457+x,207);
floodfill(440+x,120,c);
line(410+x,137,440+x,106);
line(412+x,139,444+x,105);
setfillstyle(1,lightgray);
floodfill(400+x,135,c);
{setfillstyle(1,c); }
floodfill(465+x,210,c);
 
 
setcolor(red);
settextstyle(0,0,1);
Line(364+x,148,522+x,148);
line(360+x,150,520+x,150);
outtextxy(480+x,160,'*');
outtextxy(490+x,160,'*');
outtextxy(500+x,160,'*');
 
end;
 
 var gd,gm,error:integer;                {Раздел описания переменных}
begin                                          {Начало программы}
  gd:=detect;                        {Автоматическое определение драйвера}
  InitGraph (gd,gm,' ');                    {Инициируем графику}
  error:=GraphResult;                    {Получаем результат}
  if error<>grok then                      {Проверяем ошибку}
    WriteLn (GraphErrorMsg(Error))            {Выводим сообщение}
  else                    {Нет ошибки}
   begin
 
{c:= readkey;       }            {Начало основной части программы}
ostrov;
a:=0;
y:=250;
repeat
repeat
samol;
delay (1000);
 x:=x-10;
until keypressed;
if c=#32 then begin
 
if a=0 then begin
m:=480+x;
a:=a+1;
if y<400 then
jahic;
delay(1000);
if x=-500 then
x:=620;
 
end;
end;
until keypressed{c=#27};
     Readln;                                {Ожидание нажатия клавиши Enter}
     CloseGraph;                         {Закрытие графического режима}
   end;                                     {Конец основной части программы}
end.                                            {Конец программы}
Добавлено через 29 минут
Рисунок полностью есть, только с циклом нужно разобраться. Кто сможет помочь?

Добавлено через 3 часа 14 минут
Как сделать так, чтобы программа ждала нажатия клавиши, при этом отсутствовала задержка, а сама программа работает?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2013, 18:10
Ответы с готовыми решениями:

Движение самолета, управляемое клавиатурой
Всем здравствуйте! Помогите пожалуйста решить вот эту задачу - Вверху справа налево медленно...

Анимация самолета
program ex; uses crt,graph; var a,b,i:integer; begin InitGraph(a,b,''); for i:=1 to 350 do...

Управляемая анимация
Здравствуйте, в проекте есть моделька из max, что нужно сделать, чтобы при сохранении в swf ее...

Управляемая анимация в C++
Нарисовать схему электрической цепи, чтобы ключи при нажатии на соответствующие цифры открывались и...

3
Модератор
62531 / 46709 / 32193
Регистрация: 18.05.2008
Сообщений: 113,031
02.03.2013, 18:31 2
Цитата Сообщение от BS-0 Посмотреть сообщение
Как сделать так, чтобы программа ждала нажатия клавиши
Uses crt;
..............
процедуры readkey, keypreesed.
0
4 / 4 / 3
Регистрация: 13.11.2012
Сообщений: 74
02.03.2013, 20:02  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Uses crt;
..............
процедуры readkey, keypreesed.
Это надо для того, чтобы после нажатия пробела рисунок продолжал двигаться, но ждал , пока я нажму еще одну клавишу(Escape), чтобы выйти из программы
0
Модератор
62531 / 46709 / 32193
Регистрация: 18.05.2008
Сообщений: 113,031
03.03.2013, 07:46 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
repeat
if keypreesed then
 begin
  c:=readkey;
  case c of 
  #32:begin
         //что-то делаем
        end;
  #27:exit;
  end;
 end;
until c=#27;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.03.2013, 07:46

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

Анимация летящего самолета
program z1; uses graphABC; var i,x:integer; begin setwindowsize(1000,1000); ...

Анимация движения самолета по небу
помогите составить программу включающую в себя: 1) фон (небо, деревья, дорога, дома) 2)...

Анимация. Крутящийся винт самолета
Добрый вечер, кто-то может помочь с кодом? Нужно создать крутящийся винт самолета на си шарп? Там...

Не работает анимация движения самолета
Всем привет! 3 месяца собрал мини-мультик, а сейчас запустить он не работает illegal call...


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

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

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