高分！一道VFP程序题

来源：百度知道 编辑：UC知道 时间：2024/07/02 18:51:40
某城市的出租车收费分成两部分：里程和耽误时间。其中，里程收费按如下规则计算：起步价5块（可坐一公里（含一公里））。超过一公里小于7公里：1。4元/公里。超过7公里，每公里加收50%
耽误时间收费按如下规则计算：每五分钟收1.4元（不足5分钟舍去），每一趟的收费按四舍五入精确到元收取。现一出租车司机要统计一天的收入情况，分别输入当天每一趟载客的里程和耽误时间。当输入的里程为-1时结束输入
请编写一程序，统计出租车司机当天的收入情况

调试通过的程序代码如下：

set talk off
s=0
lc=0
sj=0
do while lc>=0
  input '里程(-1结束):' to lc
  if lc>=0 then 
    t=0
    input '时间:' to sj
    if lc<=1 then
      t=5
    else
      if lc<7 then
        t=1.4*lc
      else
        t=1.4*lc*1.5
      endif
    endif
    t=t+1.4*int(sj/5)
    s=s+round(t,0)
  endif
enddo
?'全天总收入：',s