[Bergik]

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

[Aristarh Dark]

Что-то я не понял вопроса....
Текст примерно выглядел бы так: ядро вылетело из пушки, летело, летело, упало на землю.
Хотя... возможны варианты.

[Bergik]

Текст программы, каторая показывала бы движения адра на графике в зависимости от скорости выстрела

[Aristarh Dark]

Насколько я помню школьный курс физики, ядро движется по баллистической траектории. Все это описывается функцией учитывающей массу, начальную скорость, угол наклона к горизонту и прочее. Ищи функию и строй график.

[eXplorer]

Сообщение от Bergik

Текст программы, каторая показывала бы движения адра на графике в зависимости от скорости выстрела

физика вроде 8 класс.. применяешь формулу и через определённый интервал времени перересовываешь график... Как-то так

правка:
Aristarh Dark ответил уже пока я писал

[Bergik]

Да я знаю как движеться я незнаю как это в дефи написать.
Так выглядело бы из физике:
ma(x)=v(x)-v(x)*
ma(y)=-mg-v(y)

[Bergik]

Как мне в делфи написать вот это?
Проекция скорости
vx и координата x летящего ядра
определяются соотношениями:
vx = v0 cos,
x = x0 +v0t cos

vy и координата y летящего камня задаются формулами
vy = v0 sin - gt
y=y0+v0tsin-(gt(во второй степени))/2

максимальная высота подъема:
hmax=(v(0)(в во 2ой степени)*sin2/2g
Lальность полета L камня определяется подстановкой времени полета t0 в x(t): L = x0 +v0 t0cos

[Bergik]

Дальность полета L камня определяется подстановкой времени полета t0 в x(t): L = x0 +v0 t0cos

[Konrad]

Сообщение от Bergik

L = x0 +v0 t0cos

cos чего???

Мой совет, если хочешь чтобы кто-то решил - напиши НОРМАЛЬНО формулы.

Так как вспоминать формулы нету никакого желания.

[Bergik]

Угол альфа-начальный угол броска

[Konrad]

Угол альфа-начальный угол броска


А gt?

[Bergik]

t- время полёта
g- 9.8(сила тяжести

[Bergik]

g=9.8 так вот

[AND_REY]

Если по простому то рисовать графики можно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
 Y, x: Real;
begin
 x:= -30;           // нижний предел х
 While x <= 30 Do   // верхний предел х
  begin
   Y:= 50*Sin(x/3); // формула
   x:= x + 0.1;     // шаг изменения х
   Form1.Canvas.Pixels[100+Round(x),100+Round(Y)]:= clRed; // рисование
  end;
end;

[Bergik]

Спасибо, но почему ядро летит синусойодой а не пораболой ветвями вниз?И хотелось бы чтоб на вижение влияло начальная скорость,масса и угол полета.