[求助]个人所得税题目的lingo程序求助

沙之雪

1.

1.

1.

月应纳税所得额=月工薪收入-费用扣除标准（1600）

超额累进税率
级数	月应纳税所得额	税率（％）
1	不超过500元部分	5
2	超过500元至2000元的部分	10
3	超过2000元至5000元的部分	15
4	超过5000元至20000元的部分	20
5	超过20000元至40000元的部分	25
6	超过40000元至60000元的部	30
7	超过60000元至80000元的部分	35
8	超过80000元至100000元的部分	40
9	超过100000元的部分	45

例如：

如某人月工薪收入为3500元，则月应纳税所得额=3500-1600=1900元,当月应交个人所得税=500?%+（1900-500）?0%=165元。

2. 将雇员个人当月内取得的全年一次性奖金，按所确定的适用税率计算征税。

例如：某公司某职员年终奖是6000元，按国税发[2005]9号文的规定公式，计算如下：平均月收入＝6000/12＝500元，则适用税率是5%。应缴纳个人所得税＝6000?%=300元；而如果职员年终奖是6001元，按国税发[2005]9号文的规定公式，计算如下：平均月收入＝6001/12＝500.0833元，则适用税率是10%。应缴纳个人所得税＝6000?0%=600元；

注：年终一次性奖金纳税计算与每月收入纳税计算独立进行。

第一小题：请根据以上方案，假某公司某职员年总收入为10万元，公司允许其自行决定每月收入及年终奖的分配数额。为他设计一个方案是其每年纳税总额最少。

分析：1.每月工资相等；

题目我已经分析出来了，就是程序写不好，不会写；

附件是lingo程序，我编了但是不知道错在什么地方，希望高手指教~~~~~~~~~~~~~~~~~~~~

[此贴子已经被作者于2008-5-30 20:30:10编辑过]

沙之雪

程序贴出来了
sets:
month/x1..x100/:a;
year(month):b;
links(month,year):f;
endsets
@bin(x);
@for(links(i,j):12*a+b=100000);!说明这是有用的;

@for(month:x+y=10000);!说明这是有用的;

k=@min(links:f);

fx=@if(x#le#1600,0,
@if(x#le#2100,((X-1600)*0.05)*12,
@if(x#le#3600,((X-2100)*0.1+500*0.05)*12,
@if(x#le#3600,((X-2100)*0.1+500*0.05)*12,
@if(x#le#6600,((x-3600)*0.15+1500*0.1+500*0.05)*12,
@if(X#le#21600,((X-6600)*0.20+3000*0.15+1500*0.1+500*0.05)*12,
@IF(x#le#41600,((x-21600)*0.25+20000*0.20+3000*0.15+1500*0.1+500*0.05)*12,
@if(x#le#61600,((x-41600)*0.30+20000*0.25+20000*0.20+3000*0.15+1500*0.1+500*0.05)*12,
@if(x#le#81600,((x-61600)*0.35+20000*0.30+20000*0.25+20000*0.20+3000*0.15+1500*0.1+500*0.05)*12,
@if(x#le#100000,((x-81600)*0.40+20000*0.35+20000*0.30+20000*0.25+20000*0.20+3000*0.15+1500*0.1+500*0.05)*12,
((x-100000)*0.45+18400*0.40+20000*0.35+20000*0.30+20000*0.25+20000*0.20+3000*0.15+1500*0.1+500*0.05)*12
))))))))))+
@if(y#le#6000,y*0.05,
@if(y#le#24000,y*0.1,
@if(y#le#60000,y*0.15,
@if(y#le#240000,y*0.2,y*0.25))));
end

如果x10写成10w的话，一运行就超出内存，就取了个x10,y本来是表示年终将的，无奈，不知道该怎么加了，请教高手。

题目不难只是第一小题，但是程序把我难住了

[em08]

[此贴子已经被作者于2008-5-30 20:27:50编辑过]

小宛

请问你已经解决了吗，正确的是什么啊？