на какию тему не знаю

[SERGIYS]

Опр.расстояние,пройденное физ.телом за время t если тело движется с постоянным ускорением а и имеет в начальный момент времени скорость V0.

[ROMA2PVT]

http://elementy.ru/trefil/accelerate...e_design=print

[SERGIYS]

мне нужна программа ..., препод сказал написать ...

[ROMA2PVT]

Ну так и пиши.Формулу я дал.

[SERGIYS]

если бы я умел ..

[Roof]

var
a,t,d: real;

begin
 writeln('Vvedite uskorenie');
 readln(a);
 writeln('Vvedite vremya');
 readln(t);
 d:= a * sqr(t)/2;
 writeln('Rasstoyanie= ', d:4:2);
 readln;
end.

[ROMA2PVT]

начальный момент времени скорость V0.

А это тогда нафик?Как бы для начала нужно вычислить скорость:v(t) = v0 + at,а дальше уже расстояние.

[SERGIYS]

для чего v0 я не знаю ,спс что написал программу

[ROMA2PVT]

/////////////

[ROMA2PVT]

var
  a,t,S,v,v0:real;
begin
 write('Введите ускорение a: ');
 readln(a);
 write('Введите время t: ');
 readln(t);
 write('Введите начальную скорость v0: ');
 readln(v0);
 S:=v0*t+((a*sqr(t))/2)   {вычисляем расстояние пройденное телом}
 writeln('Раатояние пройденное телом:=',S:1:0);
 readln;
end.

Та программа неверна та формула действует только при начальной скорости v0:=0.