主题：帮帮新人吧~~~~~~~~
wanshibo121
[专家分：30] 发布于 2008-01-05 11:40:00
5、企业发放的奖金根据年利润提成。利润（G）低于或等于10万元，可提成奖金10％；当10万元＜G＜20万元时，10万元以内的部分仍按10％提成，高于10万元的部分提成7.5%；当20万元＜G＜40万元时，低于20万元部分按以上方法提成，高于20万元的部分提成5%；当40万元＜G＜60万元时，低于40万元部分按以上方法提成，高于40万元的部分提成3%；当G＞60万元时，低于60万元部分按以上方法提成，高于60万元的部分提成1.5%；从键盘输入当年利润（G），求可发的奖金总额（B）。
回复列表 （共4个回复）
沙发
taoanran123 [专家分：20] 发布于 2008-01-08 21:49:00
input g
select case g
case g<100000 or g=100000
b=g*(1+0.1)
case g>100000 and g <200000
b=g*(1+0.0.75)
case g>200000 and g<400000
b=g*(1+0.05)
case g >400000 and g<600000
b=g*(1+0.03)
case else
b=g*(1+0.0.15)
end select
print "b=";b
end
板凳
taoanran123 [专家分：20] 发布于 2008-01-08 21:51:00
仅供参考,如有错误请你更改,并告知 谢谢!!
3 楼
shjbp1112 [专家分：0] 发布于 2008-01-22 12:10:00
10 cls
15 print:B=100000
30 print tab(52);:input "Ci shu N= ";N
25 print " NO: Jin e $ M % Ti Cheng $ "
28 print "------------------------------------------"
30 for I=1 to N
40 print tab(52);:print I;:input "jin e G = ";G
50 if G<=B then T=G*0.1:M=0.1*100:go to 100
60 if G>B and G<2*B then T=b*0.1+(G-B)*0.075:M=0.075*100:go to 100
70 if G>2*B and G<=4*B then T=B*0.1+B*0.075+(G-2*b)*0.05:M=0.05*100:go to 100
80 if G>4*B and G<=6*B then T=B*0.1+B*0.075+2*B*0.05+(G-4*B)*0.03:M=0.03*100:go to 100
90 if G>6*B then T=B*0.1+B*0.075+2*B*0.05+2*B*0.03+(G-6*B)*0.015:M=0.015*100:go to 100
100 print tab(6);I;tab(13);G;tab(24);M;tab(32);USING "##########";T
110 next I
120 end
该程序已通过运行调试’为了避免程序输进输出的错误，我已将文件“Tc3.bas‘发到你的信箱 。
4 楼
shjbp1112 [专家分：0] 发布于 2008-01-22 12:34:00
我是三楼的，现在继续，上面的程序运行后，将如下显示：
NO: Jin e $ M % Ti Cheng $ Ci Shu N = ? 5
-------------------------------------------
1 95000 10 9500
2 123000 7.5 11725
3 180000 7.5 16000
4 215000 5 18250
5 420000 3 28100
上面的程序就是根据主题要求和显示内容写的。
我来回复
您所在位置：