千诺
春芽
共回答了17个问题采纳率:88.2% 举报
不好意思,原来是要 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.
1年前
9