百度作业网一道pascal问题，求大师解答！
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/04/29 09:23:12
一道pascal问题，求大师解答！
某军区开展军事演习，红军指挥部接到紧急电报：负责向蓝军据守的13号高地发起进攻的A队数次冲锋之后，还没有拿下目标，且损失较大，需要支援。于是红军马上调集靠近13号高地的C、D两只队伍前去支援。C、D两队打算会师之后再开往A队驻地，已知C、D两队相距S公里，C队行进速度为Vc公里/小时，D队为Vd公里/小时，C、D两队同时出发进行会师。另有一名通讯员骑摩托车从C队驻地与C队一起出发，一遇到D队马上折回驶向C队，以此类推，每遇一队立即折回驶向另一队，为行进中的两队传递信息。摩托车的速度为Vm公里/小时。当两队距离小于等于0.8公里时，摩托车停下来不再传递信息。输入S、Vc、Vd、Vm的值，计算通讯员一共跑了多少趟（从一队驶向另一队为一趟）。
请你编写程序帮助小明解决这个问题。
输入文件共有4行：
第1行为C、D两队相距的距离S(50
某军区开展军事演习，红军指挥部接到紧急电报：负责向蓝军据守的13号高地发起进攻的A队数次冲锋之后，还没有拿下目标，且损失较大，需要支援。于是红军马上调集靠近13号高地的C、D两只队伍前去支援。C、D两队打算会师之后再开往A队驻地，已知C、D两队相距S公里，C队行进速度为Vc公里/小时，D队为Vd公里/小时，C、D两队同时出发进行会师。另有一名通讯员骑摩托车从C队驻地与C队一起出发，一遇到D队马上折回驶向C队，以此类推，每遇一队立即折回驶向另一队，为行进中的两队传递信息。摩托车的速度为Vm公里/小时。当两队距离小于等于0.8公里时，摩托车停下来不再传递信息。输入S、Vc、Vd、Vm的值，计算通讯员一共跑了多少趟（从一队驶向另一队为一趟）。
请你编写程序帮助小明解决这个问题。
输入文件共有4行：
第1行为C、D两队相距的距离S(50
程序已经调试运行通过，如图：var n:integer; s,vc,vd,vm,t:real;begin read(s,vc,vd,vm); while s>0.8 do begin t:=s/(vm+vd); s:=s-t*(vc+vd); inc(n); if s<=0.8 then break; t:=s/(vm+vc); s:=s-t*(vc+vd); inc(n); end; writeln(n);end.