Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
1 / 1 / 1
Регистрация: 16.08.2013
Сообщений: 66
1

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

25.08.2013, 19:29. Просмотров 940. Ответов 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
uses crt,graph;
var device,mode,x,y,x1:integer;
pusk:string;
begin
initgraph(device,mode, '');
x:=10;
repeat
setcolor(white);
ellipse(x,300,0,360,50,20);
delay(100);
setcolor(black);
ellipse(x,300,0,360,50,20);
x:=x+5;
y:=270;
if keypressed then begin
repeat
setcolor(white);
ellipse(x1,y,0,360,15,10);
setcolor(black);
delay(100);
ellipse(x1,y,0,360,15,10);
y:=y-2;
until y>0;  end;
until x>300;
readln;
end.
(Вот сделал как-то так, но не получается идеально, получилась фигня какая-то)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.08.2013, 19:29
Ответы с готовыми решениями:

Анимация самолета, управляемая клавиатурой
Ребят, помогите с программой. Нужно , чтоб самолет летел , а при нажатии пробел , падал ящик и...

Смоделировать движение сверхзвукового самолета
дана блок-схема в фортране, необходимо смоделировать движение сверзвукового самолета в паскале,...

Движение самолета на фоне неба
Движение самолета на фоне неба. А то курсовой нужно писать. Времени совсем нет. Изучить не успеваю....

Движение автомобиля и самолета в противоположных направлениях
Люди, сделайте плиз анимацию чтоб, например, сверху самолет летит в одну сторорну а снизу машина...

2
1 / 1 / 1
Регистрация: 16.08.2013
Сообщений: 66
02.09.2013, 20:57  [ТС] 2
Никто не может её сделать?
0
1462 / 1170 / 551
Регистрация: 08.01.2012
Сообщений: 4,513
03.09.2013, 13:46 3
x1:=????
Цитата Сообщение от Igroman98 Посмотреть сообщение
until y>0;
может наоборот?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.09.2013, 13:46

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

Как реализовать одновременное движение многих объектов, один из которых управляется клавиатурой
Скорость объектов разная (за один проход делают разное количество движений). Движения наложены на...

Управляемое движение textview
Привет... Как реализуется управляемое движение.. Вращение... Размер...

Движение самолета
Подскажите пожалуйста, как сделать следующее задание: Движение самолета по круговой траектории по...

Уравнение движение самолета
Друзья, как вычислить скорость самолета. Самолет летит над нами прямолинейно. Вы наблюдаем его...

Движение сверхзвукового самолета
Здравствуйте! Мне нужно смоделировать движение сверхзвукового самолета. Литература есть...

Движение самолета по заданным точкам
Здравствуйте! Нужна помощь в создании игры. Есть самолет, который должен двигаться по заданным...


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

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

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