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