v[t_]:=-g*t-ve*Log[(m-r*t)/m]
g=9.8
m=30000
r=160
ve=3000
Plot[v[t],{t,0,60}]

Integrate[v[t],{t,0,60}]