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

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

22.09.2011, 15:18. Просмотров 1473. Ответов 5
Метки нет (Все метки)


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
program ex;
uses crt,graph;
var a,b,i:integer;
begin
InitGraph(a,b,'');
  for i:=1 to 350 do begin
  begin
  {nebo}
  setfillstyle(1, 3);
  bar(1,1,640,200);
  {trava}
  setfillstyle(1, 10);
  bar(1,200,640,480);
  { derevo }
  setcolor(green);
  setfillstyle(5, green);
  moveto(80, 240);
  lineto(95, 300);
  lineto(65, 300);
  lineto(80, 240);
  floodfill(80, 250, green);
  moveto(80, 300);
  lineto(110, 380);
  lineto(50, 380);
  lineto(80, 300);
  floodfill(80, 310, green);
  moveto(80, 380);
  lineto(120, 460);
  lineto(40, 460);
  lineto(80, 380);
  floodfill(80, 400, green);
  setcolor(brown);
  setfillstyle(solidfill, brown);
  bar(75, 460, 85, 478);
  { domik }
  setcolor(15);
  setfillstyle(solidfill, 15);
  bar(520, 380, 638, 478);
  bar(535,320,550,360);
  setcolor(4);
  setfillstyle(1,4);
  moveto(520, 380);
  lineto(580, 300);
  lineto(638, 380);
  lineto(520, 380);
  floodfill(600, 350, 4);
  { solnce }
  setcolor(yellow);
  setfillstyle(solidfill, yellow);
  circle(520, 80, 45);
  floodfill(520, 80, yellow);
  {zabor}
  setcolor(8);
  setfillstyle(solidfill, 8);
  bar(510,450,315,455);
  setcolor(7);
  setfillstyle(solidfill, 7);
  bar(510,420,515,480);
  bar(500,420,505,480);
  bar(490,420,495,480);
  bar(480,420,485,480);
  bar(470,420,475,480);
  bar(460,420,465,480);
  bar(450,420,455,480);
  bar(440,420,445,480);
  bar(430,420,435,480);
  bar(420,420,425,480);
  bar(410,420,415,480);
  bar(400,420,405,480);
  bar(390,420,395,480);
  bar(380,420,385,480);
  bar(370,420,375,480);
  bar(360,420,365,480);
  bar(350,420,355,480);
  bar(340,420,345,480);
  bar(330,420,335,480);
  bar(320,420,325,480);
  bar(310,420,315,480);
  {derevoo}
  setcolor(6);
  setfillstyle(1, 6);
  bar(200, 379, 210, 479);
  setcolor(2);
  setfillstyle(10, 2);
  Circle(205, 335, 45);
  floodfill(205, 335, 2);
  {samolet}
  setcolor(15);
  setfillstyle(2, 15);
  {Rectangle(0,0,640,800);                  }
  Line(350-i,50,400-i,50);
  Line(350-i,50,400-i,50);
  Line(350-i,50,300-i,110);
  Line(400-i,50,330-i,150);
  Line(330-i,150,200-i,150);
  Line(300-i,110,200-i,110);
  Line(200-i,110,110-i,110);
  Line(200-i,150,110-i,150);
  Line(110-i,110,90-i,130);
  Line(110-i,150,90-i,130);
  Line(200-i,130,230-i,200);
  Line(230-i,200,270-i,200);
  Line(270-i,200,240-i,130);   
  delay(1000);
  cleardevice;  
  end;
  readkey;
end.
Помогите с программой
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.09.2011, 15:18
Ответы с готовыми решениями:

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

Время приземления самолёта
Нужно написать программу, которая считает время приземления самолёта, если известно время взлёта в...

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

Полет сверхзвукового самолета. Что не правильно?
program Polet; const N=1000; var i:integer; x,y,v,a,vx,vy1:array of real; ...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
5
Модератор
63223 / 46978 / 32379
Регистрация: 18.05.2008
Сообщений: 113,863
22.09.2011, 15:25 2
Цитата Сообщение от Smat11 Посмотреть сообщение
Помогите с программой
Чем помочь, болезный? Ты бы хоть задание написал полностью...
0
0 / 0 / 1
Регистрация: 31.03.2010
Сообщений: 15
22.09.2011, 15:34  [ТС] 3
Нарисовать любую картинку с анимацией
0
Модератор
63223 / 46978 / 32379
Регистрация: 18.05.2008
Сообщений: 113,863
22.09.2011, 15:59 4
Если любую, то посмотри здесь.
Графика в Турбо Паскаль
0
0 / 0 / 1
Регистрация: 31.03.2010
Сообщений: 15
23.09.2011, 07:42  [ТС] 5
хотелось бы эту доделать
0
Модератор
63223 / 46978 / 32379
Регистрация: 18.05.2008
Сообщений: 113,863
23.09.2011, 10:01 6
Цитата Сообщение от Smat11 Посмотреть сообщение
Нарисовать любую картинку с анимацией
Цитата Сообщение от Smat11 Посмотреть сообщение
хотелось бы эту доделать
Что доделать, задачу опиши нормально.

Добавлено через 13 минут
Можно так. Есди самолет слишком быстро будет улетать, значит у Вас плохие модули .tpl и delay(1000) не равно 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
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
program ex;
uses crt,graph;
var a,b,i:integer;
begin
InitGraph(a,b,'');
  {nebo}
  setfillstyle(1, 3);
  bar(1,1,640,200);
  {trava}
  setfillstyle(1, 10);
  bar(1,200,640,480);
  { derevo }
  setcolor(green);
  setfillstyle(5, green);
  moveto(80, 240);
  lineto(95, 300);
  lineto(65, 300);
  lineto(80, 240);
  floodfill(80, 250, green);
  moveto(80, 300);
  lineto(110, 380);
  lineto(50, 380);
  lineto(80, 300);
  floodfill(80, 310, green);
  moveto(80, 380);
  lineto(120, 460);
  lineto(40, 460);
  lineto(80, 380);
  floodfill(80, 400, green);
  setcolor(brown);
  setfillstyle(solidfill, brown);
  bar(75, 460, 85, 478);
  { domik }
  setcolor(15);
  setfillstyle(solidfill, 15);
  bar(520, 380, 638, 478);
  bar(535,320,550,360);
  setcolor(4);
  setfillstyle(1,4);
  moveto(520, 380);
  lineto(580, 300);
  lineto(638, 380);
  lineto(520, 380);
  floodfill(600, 350, 4);
  { solnce }
  setcolor(yellow);
  setfillstyle(solidfill, yellow);
  circle(520, 80, 45);
  floodfill(520, 80, yellow);
  {zabor}
  setcolor(8);
  setfillstyle(solidfill, 8);
  bar(510,450,315,455);
  setcolor(7);
  setfillstyle(solidfill, 7);
  bar(510,420,515,480);
  bar(500,420,505,480);
  bar(490,420,495,480);
  bar(480,420,485,480);
  bar(470,420,475,480);
  bar(460,420,465,480);
  bar(450,420,455,480);
  bar(440,420,445,480);
  bar(430,420,435,480);
  bar(420,420,425,480);
  bar(410,420,415,480);
  bar(400,420,405,480);
  bar(390,420,395,480);
  bar(380,420,385,480);
  bar(370,420,375,480);
  bar(360,420,365,480);
  bar(350,420,355,480);
  bar(340,420,345,480);
  bar(330,420,335,480);
  bar(320,420,325,480);
  bar(310,420,315,480);
  {derevoo}
  setcolor(6);
  setfillstyle(1, 6);
  bar(200, 379, 210, 479);
  setcolor(2);
  setfillstyle(10, 2);
  Circle(205, 335, 45);
  floodfill(205, 335, 2);
  i:=0;
  repeat
    i:=i+1;
    {samolet}
    setcolor(15);
    {setfillstyle(2, 15);
    Rectangle(0,0,640,800);}
    Line(350-i,50,400-i,50);
    Line(350-i,50,400-i,50);
    Line(350-i,50,300-i,110);
    Line(400-i,50,330-i,150);
    Line(330-i,150,200-i,150);
    Line(300-i,110,200-i,110);
    Line(200-i,110,110-i,110);
    Line(200-i,150,110-i,150);
    Line(110-i,110,90-i,130);
    Line(110-i,150,90-i,130);
    Line(200-i,130,230-i,200);
    Line(230-i,200,270-i,200);
    Line(270-i,200,240-i,130);
    delay(100);
    setcolor(3);
    {setfillstyle(2, 15);
    Rectangle(0,0,640,800); }
    Line(350-i,50,400-i,50);
    Line(350-i,50,400-i,50);
    Line(350-i,50,300-i,110);
    Line(400-i,50,330-i,150);
    Line(330-i,150,200-i,150);
    Line(300-i,110,200-i,110);
    Line(200-i,110,110-i,110);
    Line(200-i,150,110-i,150);
    Line(110-i,110,90-i,130);
    Line(110-i,150,90-i,130);
    Line(200-i,130,230-i,200);
    Line(230-i,200,270-i,200);
    Line(270-i,200,240-i,130);
  until(i>350)or keypressed;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.09.2011, 10:01

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

Какой должна быть минимальная мощность двигателя, необходимая для взлета самолета?
Самолет массой m = 3 т для взлета должен иметь скорость V = 360 км/час и длину разбега S = 600 м....

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

Определить время приземления самолета в часах, минутах и секундах по времени вылета и длительности полета
1. Определить время приземления самолета в часах X, минутах Y и секундах Z. Известно, что самолет...

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


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

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

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