Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Нужна помощь по Delphi!!! [D7, Win2k]

Петя © (2005-01-19 20:57:00)
Всем привет!Мне нужна ваша помощь.
Задание следующие:

Составить программу, демонстрирующую траекторию тела, брошенного под некоторым углом к горизонту, с некоторой начальной скоростью.
freim@stsland.ru

Петя (2005-01-20 18:39:00) [1]
Всем премного благодарен

sniknik (2005-01-20 11:25:00) [2]
Рамиль © (20.01.05 10:28) [7]
полностью это даже не программа это оценка в зачетке. ;о))

Рамиль (2005-01-20 10:28:00) [3]
Петя (19.01.05 22:45) [3]
Спасибо хоть за половину.
Хм... если это половина. Разжевали же все! Тебе осталось только проглотить.

begin...end (2005-01-20 09:04:00) [4]
> Петя (19.01.05 22:45) [3]

> А за сессию свою, каждый сам в ответе.

Чего и Вам желаю.

Yanis (2005-01-19 23:16:00) [5]
Вот. Слепил тут примерчик.
http://actualsoft.narod.ru/DropBall.zip

Fay (2005-01-19 22:55:00) [6]
2 Петя (19.01.05 22:45) [3]
А у нас в школе не было сессий. Четверти всякие были.
Как всё изменилось...

Петя (2005-01-19 22:45:00) [7]
-Alexander Panov
(Предлагаешь выполнить?) Да нет. Только помощи

-begin...end
Спасибо хоть за половину.
А за сессию свою, каждый сам в ответе.

begin...end (2005-01-19 21:22:00) [8]
> Петя (19.01.05 20:57)

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

Петя, ну а что же тут сложного?

У скорости движущегося тела, в том числе и у тела, брошенного под углом к горизонту, есть горизонтальная и вертикальная составляющие.

Например, тело бросили под углом Alpha, и его начальная скорость равна V0. Тогда горизонтальная составляющая будет равна Vx0 = V0 * Cos(Alpha), а вертикальная Vy0 = V0 * Sin(Alpha).

А теперь нужно вспомнить, какие силы действуют на тело после того, как его бросили. Если не учитывать сопротивление воздуха (а что-то мне подсказывает, что в Вашем, Петя, случае его учитывать не надо), то остаётся только одна сила - сила тяжести. Направлена она, как известно, вертикально вниз, и равна F = m * g, где m- масса тела, а g- ускорение свободного падения. Сила эта придаёт телу вертикальное ускорение, равное -g.

Таким образом, со временем будет изменяться только вертикальная составляющая скорости: в момент времени tэта составляющая будет равна Vy = Vy0 - g * t. А горизонтальная составляющая скорости всё время будет равна Vx0.

А чтобы найти траекторию тела, нужно найти законы изменения его координат ( Xи Y). Пусть начальные координаты тела были равны X0и Y0. Тогда в момент времени tкоординаты будут такими: X = X0 + V0 * Cos(Alpha) * t; Y = Y0 - V0 * Sin(Alpha) * t - g * Sqr(t) / 2.

И изменяться эти координаты будут до тех пор, пока тело не упадёт. А как определить момент времени, когда оно упадёт - уж подумайте, Петя, сами.

А потом просто реализуйте визуальное отображение этой самой траектории с помощью Delphi. Рисовать её можно на TCanvas. А время отсчитывать с помощью TTimer. А как именно - подумайте, пожалуйста, сами.

А то как-то несправедливо получается. Вы же за меня мою сессию не сдаёте?

Alexander Panov (2005-01-19 21:18:00) [9]
Петя (19.01.05 20:57)
Задание следующие:

Предлагаешь выполнить?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »