Mathematica程序刹车后车滑行的位移(*刹车过程中,车的初速度为V0,加速度为a,经历了t时间后,位移s是多少?*)v0=Input["输入刹车时的初速度v0,单位m/s:",10];shuchu=StringJoin["刹车时的初速度v0:",ToString[v0],"m/s"]a=Input["输入刹车时的加速度a,单位m/s^2:",2];shuchu=StringJoin["刹车时的加速度a:",ToString[a],"m/s^2"]t=Input["输入经历的时间t,单位s:",5.1];shuchu=StringJoin["经历的时间t:",ToString[t],"s"]t1=Min[v0/Abs[a],t];shuchu=StringJoin["刹车过程持续的时间:",ToString[t1],"s"]If[t>t1,s=v0^2/(2Abs[a]),s=v0t-1/2Abs[a]t^2];shuchu=StringJoin["在",ToString[t],"s内产生的位移:",ToString[s],"m"]
