UC知道程序代码跟流程图
来源：百度知道 编辑：UC知道 时间：2024/05/24 15:14:31
有一工资处理系统，每月根据职工应发的工资计算个人收入所得税，交税额算法如下：
若职工月收入=<800元，不交税；
若800职工<职工月收入=<1300元，则交超过800元工资额的5%；
若超过1300元，则交800到1300元的5%和超过1300元部分的10%。
试画出流程图，并使用你所掌握的高级语言，写出程序代码
若职工月收入=<800元，不交税；
若800职工<职工月收入=<1300元，则交超过800元工资额的5%；
若超过1300元，则交800到1300元的5%和超过1300元部分的10%。
试画出流程图，并使用你所掌握的高级语言，写出程序代码
流程图省略，pascal代码如下：（带注释）
var
a,i,n:longint;
begin
readln(n);{读入职工人数}
for i:=1 to n do
begin
readln(a);{读入职工工资,一行一个数字}
if a<=800 then writeln('0');{若职工月收入=<800元，不交税}
if (a>800)and(a<=1300) then writeln((a-800)/20:0:1);
{若800<职工月收入=<1300元，则交超过800元工资额的5%,输出时我保留了一位小数}
if a>1300 then
begin
writeln((25+(a-1300)/10):0:1);
end;{若超过1300元，则交800到1300元的5%和超过1300元部分的10%,输出时我保留了一位小数}
end;
end.