"тело брошено вертикально вверх с высоты Н0,с начал скоростью V0,определить место...

Question

"тело брошено вертикально вверх с высоты Н0,с начал скоростью V0,определить место положения и скорость тела в заданное время" написать программу для решения этой задачи

Answer 1

Uses crt;
var h0,v0,g,v1:integer;
h,t1,t,h1,v:real;
begin
readln(t);
readln(h0);
readln(v0);
g:=10;
if (h0+v0*t-g*t*t/2<0) then<br>begin
t1:=v0/g;
t:=t-t1;
h1:=h0+v0*t1-g*t1*t1/2;
h:=h1+g*t*t/2;
v:=g*t;
end
else
begin
h:=h0+v0*t-g*t*t/2;
v:=v0-g*t;
end;
writeln;
writeln(h);
writeln(v);
end.