问答题
| 【程序说明】某公司货运收费标准是:本地货运每吨都按10元计算运费。外地货运按每吨20元计算运费,如果距离500公里(含)以上,则每吨按25元计算运费。 【程序】 SET TALK OFF CLEAR FL=0 INPUT ’输入货物重量=’ TO ZL ACCEPT ’本地/外地=’TO BODW (1) FL=10*ZL ELSE INPUT ’距离=’ TO JL DO CASE (2) FL=20* ZL CASE JL>=500 FL=25* ZL OTHER ’距离输入有错!’ (3) ENDIF (4) USE SET TALK ON |