pascal题目1

来源：百度知道 编辑：UC知道 时间：2024/09/13 06:46:03
“希望工程”的捐款
问题描述
小芳和妈妈商量好，把一万元以存本取息的方式存入银行，利息捐赠给“希望工程”。如果每月的利率是0.1425%，几个月后，小芳可捐赠给“希望工程”达1000元？
求高人编程，好的追加得分
“希望工程”的捐款

var i:longint;
begin
for i:=1 to 20 do
begin
if 10000*0.001425*i>=1000
then begin
writeln(i);exit;
end;
end.

program ss;
var i:integer;
j:real;
begin
j:=10000;
for i:=1 to 20 do
begin
j:=j*1.001425
if j>=11000
then begin
writeln(i);exit;
end;
end.

优化的：
program temp;
var k,l,q:real;j,i:integer;
begin
l:=10000;q:=l;
for i:=1 to 10000 do begin
if k>=1000then begin write(j);halt end;
j:=j+1;q:=q+0.001425*q;k:=q-l;
end;
end.

Program wu;
Var
a,s,i,j:Integer;
d:Real;
Begin
a:=10000;
s:=0;
While d>=1000 Do Begin
d:=a*0.1425%+d;
s:=s+1;
End;
WriteLn(s);
End.