Тело, брошенное под углом к горизонту

[blackberryx]

Помогите пожалуйста написать программу, которая моделирует процесс бросания тела под углом к горизонту.
Дано : Начальная скорость, угол с горизонтом
Сделать : Построить график
Я пытался сделать, но не выходит. Надо ещё, чтобы график "масштабировался". Т.е. график всё время должен занимать примерно одинаковое место на экране, несмотря на то, какие величины я введу.

[__STDC__]

что именно не получается? уравнения движения не знаем?

[blackberryx]

Уравнение знаю. У меня просто этот "кружок" которым я обозначаю точку не двигается.
Могу тут код выложить.

program gorizont;
uses graph, wincrt;
const g=9.81;
var v0 : real;
    angle : real;
    x,y, x0, y0 : real;
    S, h : real;
    T,tt : real;
    gm,gt : integer;
    scaleX, scaleY : real;
    scale : real;
begin
Writeln('Программа моделирует бросок тела');
Writeln();
Write('Введите нач. скорость');
Readln(v0);
Write('Введите угол');
Readln(angle);

S:=(v0*v0/g)*(sin(angle*2*pi)/180);
h:=((v0*v0)/(2*g))*(sin(angle*2*pi)/180);
T:=2*(v0/g)*sin(angle*pi/180);
gt:=detect;
Initgraph(gt,gm,'');

scaleX:=(GetMaxX div 6)*5-(GetMaxX div 6)/S;
scaleY:=(GetMaxY div 6)*5-(GetMaxY div 6)/S;
If angle>45 Then scale:=scaley Else scale:=scalex;
Line(GetMaxX div 6, (GetMaxY div 6)*5, (GetMaxX div 6)*5+10, (GetMaxY div 6)*5);
//OX
Line(GetMaxX div 6, (GetMaxY div 6)*5, GetMaxX div 6, GetMaxY div 6+10);
//OY
tt:=0;
x0:=GetMaxX div 6;
y0:=(GetMaxY div 6)*5;
While tt<T Do Begin
   tt:=tt+0.0001;
   x:=(x0+v0*t*cos(angle*pi/180))*scale;
   y:=(y0+v0*t*sin(angle*pi/180)-(g*(t*t))/2)*scale;
   Circle(round(x),round(y),5);
End;
end.

[__STDC__]

хм.. значение x в нижнем цикле на первой итерации - "-162338917753650238,40042072256824" (вводил что-то типа 20, 45)

позвольте поинтересоваться, откуда такие формулы?
S:=(v0*v0/g)*(sin(angle*2*pi)/180);
h:=((v0*v0)/(2*g))*(sin(angle*2*pi)/180);

[blackberryx]

В том-то и дело, что я не могу оттрасировать. У меня вылетает с какими-то ошибками.
http://img210.imageshack.us/img210/9131/troublel.jpg Вот такие вот ошибки. Поэтому и прошу помощи.

Пардон, там у синусов, конечно, степень. Но всё равно вылетает с 207-й ошибкой.

[__STDC__]

ох... надо просто окошечко Call Stack закрыть... и попробовать еще.. отладчик в FPC частенько глючит... суть не в том..
насколько я знаю, ур-я движения такие:
x = V0 * cos(a) * t
y = V0 * sin(a) * t - (g * t^2) / 2

***
ага.. все понятно.. они ниже.. те формулы значит для расчета масштаба..

[blackberryx]

Они у меня там и написаны.
x:=(x0+v0*t*cos(angle*pi/180))*scale;
y:=(y0+v0*t*sin(angle*pi/180)-(g*(t*t))/2)*scale;
Я прошу, чтобы мне с масштабом помогли. Не понимаю я его.

[__STDC__]

эх.. давай я завтра посмотрю? спать пора уже.. там явно с масштабом проблема.. из-за него ошибка..

[blackberryx]

Гх, я как всегда поздно спохватился. А будет ли к 11 где-то?
Мне в школу позарез надо.

[__STDC__]

о_О к 11?? не знаю... я постараюсь.. если проснусь, попробую сделать =) сейчас уже не соображаю что-то... а может кто-то раньше сделает...)