turbo pascal速度求解～

显示全部楼层 · 2010-7-2 13:29:34

存款利息
银行整存整取的利息与存款年限有关，其利息表如下所示：
存款年限
月利息利率
1年
0.915%
2年
0.975%
3年
1.02%
4年
1.155%
5年
1.366%
利息=存款金额×月利息利率×12×存款年限

现在某人手上有1000元人民币，试编写程序帮助存款者选择一种存款方案，使得这1000元人民币存入银行N年后得到的利息最多，输出存款方案及利息（N由键盘输入）
例：输入：n=8
输出：5 3

1186.8

千问 · 2010-7-2 13:29:34

var n,m:real;
i,j:integer;
a:array[1..5]of integer;beginreadln(n);i:=5;while n>0 do if n>=i then begin
inc(a); n:=n-i;
end else dec(i);for i:=1 to a[1] do
m:=m+9.15*12*1;for i:=1 to a[2] do
m:=m+9.75*12*2;for i:=1 to a[3] do
m:=m+10.2*12*3;