Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 27.10.2015
Сообщений: 1
1

Анимация летящего самолета

17.12.2015, 23:35. Просмотров 2071. Ответов 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
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
program z1; 
uses graphABC; 
var i,x:integer; 
begin 
setwindowsize(1000,1000); 
 
setpenwidth(5); 
 
i:=200; 
for x:=0 to 399 do 
begin; 
ClearWindow; 
 
floodfill(200,205,clblack); 
 
 
line(200+i*5,200,700+i*5,200); 
line(700+i*5,200,800+i*5,100); 
line(800+i*5,100,900+i*5,100); 
line(900+i*5,100,750+i*5,300); 
line(750+i*5,300,660+i*5,330); 
line(460+i*5,350,200+i*5,350); 
line(200+i*5,350,175+i*5,300); 
line(175+i*5,300,175+i*5,250); 
line(175+i*5,250,200+i*5,200); 
 
line(175+i*5,250,125+i*5,275); 
line(125+i*5,275,175+i*5,300); 
 
 
line(350+i*5,200,400+i*5,150); 
line(400+i*5,150,500+i*5,150); 
line(500+i*5,150,600+i*5,200); 
 
line(400+i*5,250,400+i*5,300); 
line(400+i*5,300,650+i*5,500); 
line(650+i*5,500,750+i*5,450); 
line(750+i*5,450,600+i*5,250); 
line(600+i*5,250,400+i*5,250); 
 
line(525+i*5,160,650+i*5,50); 
line(650+i*5,50,720+i*5,75); 
line(720+i*5,75,625+i*5,200); 
 
line(160+i*5,258,175+i*5,150); 
line(175+i*5,150,125+i*5,150); 
line(125+i*5,150,140+i*5,265); 
line(160+i*5,293,175+i*5,400); 
line(175+i*5,400,125+i*5,400); 
line(125+i*5,400,142+i*5,285); 
 
line(425+i*5,150,425+i*5,200); 
 
sleep(25); 
i:= i- 1; 
end; 
 
end.
Добавлено через 33 секунды
Что изменить?

Добавлено через 8 минут
ЧЕТКО?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.12.2015, 23:35
Ответы с готовыми решениями:

Анимация: робот трансформирующийся в машину. Парашютист прыгает с самолета и летит по ломаной линии
Помогите пожалуйста с анимацией abc net. Робот трансформирующийся в машину (любые движения робота...

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

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

Изобразить летящего комара
Ребят даны такие задачи: 1.Циссоида: x3+(x-a)y2=0, a>0. Воспользуйтесь параметрическим...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
Модератор
63229 / 46981 / 32383
Регистрация: 18.05.2008
Сообщений: 113,873
18.12.2015, 14:06 2
Сделайте самолет меньше и не привязывайте его точки к счетчику i, а заведите переменную х, одной из точек самолета, к которой привязаны все остальные.
Вот пример.
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
uses graphABC;
procedure samolet(x:integer);
begin
setpencolor(clblack);
line(3+x,160,3+x,200);     // зад
line(3+x,160,30+x,180);
line(3+x,200,88+x,205);
line(30+x,180,100+x,175);
line(125+x,176,170+x,200);
line(170+x,200,172+x,202);
line(172+x,202,170+x,204);
line(170+x,204,115+x,205);
line(120+x,195,85+x,255);   //крыло 2
line(85+x,255,75+x,258);
line(75+x,258,90+x,195);
line(95+x,175,105+x,125);       // крыло
line(105+x,125,116+x,128);
line(125+x,175,116+x,128);
setpencolor(clblue);          //пилот
floodfill(135+x,190,clred);
line(135+x,182,135+x,192);
line(135+x,192,158+x,194);
end;
var x:integer;
begin
lockdrawing;
for x:=1 to 640 do      //движения
 begin
  clearwindow;
  samolet(x);
  sleep(10);
  redraw
 end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2015, 14:06

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

Составьте программу вывода на экран летящего самолета с постоянной скоростью
Составьте программу вывода на экран летящего самолета с постоянной скоростью. В нижней части экрана...

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

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

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

Изменение угла тангажа летящего объекта
Как можно реализовать изменение угла между направлением снаряда и горизонтом? Для полёта...

Перемещение влево-вправо летящего объекта мышкой?
Добрый день, есть куб, который движется по Z и Y координате, движение задается приложением силы...


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

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

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