PASCL语言习题 求解!月收入T的所得税R如下： T R TT>=800 5% 1500>T>=1000 10%3000>T>=1500 15%T>=3000 20%分别用IF、CASE语句编写程序,输入月收入,输

PASCL语言习题 求解!月收入T的所得税R如下： T R TT>=800 5% 1500>T>=1000 10%3000>T>=1500 15%T>=3000 20%分别用IF、CASE语句编写程序,输入月收入,输
PASCL语言习题 求解!
月收入T的所得税R如下：
T R
TT>=800 5%
1500>T>=1000 10%
3000>T>=1500 15%
T>=3000 20%
分别用IF、CASE语句编写程序,输入月收入,输出所得税率、应缴所得税款以及扣除所得税后的实际收入
----------------------------------------------------------------------------------------------------------- IF语句的我已经做好了 但CASE语句的多个情况好像是等于某个值 不能把大小比较作为情况 但我一直不知道哪个式子能让工资得出的值固定 只要知道这个 其他的就好做了.
----------------------------------------------------------------------------------------------------------- 求CASE语句的解!

PASCL语言习题 求解!月收入T的所得税R如下： T R TT>=800 5% 1500>T>=1000 10%3000>T>=1500 15%T>=3000 20%分别用IF、CASE语句编写程序,输入月收入,输
不好意思,原来是要 pascal 的,我重新发一个吧.
program Test;
var
i: Integer;
s: String;
function Cale(AIncome: Integer): Integer;
begin
case AIncome of
0..799: Cale := 0;
800..999: Cale := 5;
1000..1499: Cale := 10;
1500..2999: Cale := 15;
else
Cale := 20;
end;
end;
begin
Write('Income:');
ReadLn(s);
Val(s,i,i);
WriteLn('Rate:' , Cale(i) , '%');
ReadLn;
end.