中科新闻网无痕除痣:请教：vfp编程
来源：百度文库 编辑：中科新闻网 时间：2024/04/28 02:16:47
一． 编程
1．某运输公司运费计算方法是：500公里内，每吨200元，
500至1000公里为300元/吨，1000至2000公里为400元/吨，2000公里以上为500元/吨，请编写程序，能根据输入的货物重量和运输距离计算出相应的运费。
2．编写程序，能打印出如下图形：
*
***
*****
*******
*********
3.编写程序,能将1000以内的”水仙花数”打印出来.(“水仙花数是指:该数本身等于各位上数字立方之和,如:153=13+53+33)
1．某运输公司运费计算方法是：500公里内，每吨200元，
500至1000公里为300元/吨，1000至2000公里为400元/吨，2000公里以上为500元/吨，请编写程序，能根据输入的货物重量和运输距离计算出相应的运费。
2．编写程序，能打印出如下图形：
*
***
*****
*******
*********
3.编写程序,能将1000以内的”水仙花数”打印出来.(“水仙花数是指:该数本身等于各位上数字立方之和,如:153=13+53+33)
第一题：
input "请输入货物重量：" to w
input "请输入运输距离：" to d
do case
case d<500
total=200*w
case d>=500 and d<1000
total=300*w
case d>=1000 and d<2000
total=400*w
case d>=2000
total=500*w
endcase
?"总费用为："
??total
第二题：不知道你要的是金字塔样的还是直角三角形的？白度有可能把你的格式变了：
i=1
do while i<=9
j=1
?""
do while j<=i
??" "
??"*"
j=j+1
enddo
i=i+1
enddo
第三题：
?"水仙花数："
m=100
do while m<1000
a=int(m/100)
b=int((m-a*100)/10)
c=int(m-a*100-b*10)
if m==a^3+b^3+c^3
?m
??":"
??a,b,c
endif
m=m+1
enddo