Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Выполнить суммирование членов бесконечного ряда https://www.cyberforum.ru/ turbo-pascal/ thread798549.html
Ребята выручайте пожалуста... Очень надо. Только пожалуста сделайте сразу с точностю...
Динамическая память GRAPH Turbo Pascal
Нужно часть рисунка занести в динамическую память. Что не так? Не работает. size:=ImageSize(m-50,n-50,m+50,n+50); GetMem(p,size); GetImage(m-50,n-50,m+50,n+50,p^); ...
В файл g записать положительные числа, а файл h — отрицательные Turbo Pascal
Всем доброго времени суток!Помогите с программой кому не трудно... В файле f записаны целые числа. Написать программу, которая в файл g записывает положительные числа, а файл h - отрицательные. И...
Turbo Pascal Найти сумму элементов в закрашенной области Задана матрица целых чисел размером N*N. Найти сумму элементов в закрашенной области. Запрещено использовать дополнительные массивы https://www.cyberforum.ru/ turbo-pascal/ thread798437.html
Turbo Pascal Упорядочить все слова по убыванию https://www.cyberforum.ru/ turbo-pascal/ thread798424.html
2) Упорядочить все слова по убыванию(тоесть по кол-ву букв в слове) поможете?
Описать, используя структуру записи, информацию о подписчиках на газеты и журналы Turbo Pascal
3)Описать, используя структуру записи, информацию о подписчиках на газеты и журналы: Фамилия с инициалами, адрес, 5 строк с названиями изданий. Составить программу, осуществляющую ввод данных о...
Дан массив А[6,6],сформировать массив B(6) на заданных основаниях Turbo Pascal
Дан массив А,сформировать массив B(6) на следующих основаниях: массив B(1) присваивает число элементов равному нулю в основном диоганале массив B(2) присваивает число элементов равному нулю в ...
Turbo Pascal Даны два одномерных массива. Сравнить совпадающие элементы и сформировать массив из максимальных элементов даны два одномерных массива,сравнить совпадающие элементы и сформировать массив с максимальных элементов... https://www.cyberforum.ru/ turbo-pascal/ thread798339.html
Turbo Pascal Определить количество цифр в числе https://www.cyberforum.ru/ turbo-pascal/ thread798242.html
Пользователь вводит натуральное число N. Определить коли-чество цифр в этом числе. Срочно!! Зарание спасибо!
Turbo Pascal Текстовые файлы. Решение квадратного уравнения всем доброго времени помогите пожалуйста решить задачу. на завтра надо очень... Дано файл в котором каждая строчка содержит 3 числа разделенные пропуском - коэффициенты квадратного уравнения.... https://www.cyberforum.ru/ turbo-pascal/ thread798230.html
4 / 4 / 3
Регистрация: 13.11.2012
Сообщений: 74
0

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

02.03.2013, 18:10. Просмотров 1113. Ответов 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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.