Моделирование движения тела под действием силы тяжести

[AleSS]

Сообщение от IT-man

Программа готова!Стучи в аську!отдам за 50 рублей

=(((
Ну что не кто не может сделать. Не верю задача 11 класса. А это форум программистов =(

[AleSS]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

const dt=0.2;
       g=9.81;
       pi=3.14;
       tp=0.035;
 var u:real;
     s,sx,sy:real;
     t,v0,x,y:Real;
      xv,yv:Real;
      fl:Boolean;
begin
  Writeln('input xv,yv:');
  Readln(xv,yv);
  Writeln('input v0');
  Readln(v0);
  Writeln('input ugol');
  Readln(u);
  clrscr;
  Writeln('------------------------------------');
  Writeln('':4,'xv','':8,'yv','':6,'v0','':5,'u');
  Writeln('------------------------------------');
  Writeln(xv:8:2,yv:8:2,v0:8:2,u:8:2);
  Writeln('------------------------------------------------');
  Writeln('':4,'t','':8,'x','':8,'y','':5,'sx','':6,'sy','':6,'s');
  Writeln('------------------------------------------------');
  u:=u*pi/180;
  t:=0;
  repeat
    fl:=False;
    x:=v0*cos(u)*t;
    y:=v0*sin(u)*t-0.5*g*t*t;
    sx:=xv-x;
    sy:=yv-y;
    s:=Sqrt(Sqr(sx)+sqr(sy));
    if s<=tp then
    begin
      fl:=True;Break;
      Writeln(t:8:3,x:8:3,y:8:3,Abs(sx):8:3,Abs(sy):8:3,s:8:3);
      Writeln('------------------------------------------------');
    end;
    Writeln(t:8:3,x:8:3,y:8:3,Abs(sx):8:3,Abs(sy):8:3,s:8:3);
    Writeln('------------------------------------------------');
    t:=t+dt;
  until (y<0);
  if fl then writeln('Yes')
  else Writeln('no');
  Readln;
end.

спасибо большое!!!! большое при большое!!!