一． 编程
1．某运输公司运费计算方法是：500公里内，每吨200元，
500至1000公里为300元/吨，1000至2000公里为400元/吨，2000公里以上为500元/吨，请编写程序，能根据输入的货物重量和运输距离计算出相应的运费。
2．编写程序，能打印出如下图形：
*
***
*****
*******
*********
3.编写程序,能将1000以内的”水仙花数”打印出来.(“水仙花数是指:该数本身等于各位上数字立方之和,如:153=13+53+33)
把这三个都写成 。prg 文件运行一下就行了
1。
CLEAR
INPUT "请输入运送货物的重量（单位：吨）：" TO m
INPUT "请输入运送货物的距离（单位：公里）：" TO s
DO CASE
CASE s = 500 AND s = 1000 AND s <2000
a = 400
OTHERWISE
a = 500
ENDCASE
?"运费是：",ROUND(a*m,2),"元"
RETURN
2。
CLEAR
FOR i = 1 TO 5 &&行数
FOR j = 1 TO 2*i-1 &&每行*数
??"*"
ENDFOR
FOR j = 1 TO 9-i ...全部
把这三个都写成 。prg 文件运行一下就行了
1。
CLEAR
INPUT "请输入运送货物的重量（单位：吨）：" TO m
INPUT "请输入运送货物的距离（单位：公里）：" TO s
DO CASE
CASE s = 500 AND s = 1000 AND s <2000
a = 400
OTHERWISE
a = 500
ENDCASE
?"运费是：",ROUND(a*m,2),"元"
RETURN
2。
CLEAR
FOR i = 1 TO 5 &&行数
FOR j = 1 TO 2*i-1 &&每行*数
??"*"
ENDFOR
FOR j = 1 TO 9-i &&每行空格数
??SPACE(1)
ENDFOR
?
ENDFOR
RETURN
3。
CLEAR
FOR i = 100 TO 999
a = INT (i/100) &&百位
b = INT ((i-a*100)/10) &&十位
c = MOD (i,10) &&各位
IF a^3+b^3+c^3 == i
?i
ENDIF
ENDFOR
RETURN。
收起
