UC知道Pascal入门的几个简单程序设计（急）
来源：百度知道 编辑：UC知道 时间：2024/06/19 13:17:16
y001、编写程序实现输入已知整数n，计算：1+1/2+1/3+…+1/n的值。
y002、某化肥厂1999年生产化肥3886万吨，该厂计划年增长率为10%，编程计算2005年生产多少吨化肥？
y003、现有100元钱存入银行，一年期利息为8%，每年到期时，将本息取出重新存入，这样过n年后本息为多少？
y004、现有100元钱存入银行，存n年后取出，已知n小于5年的年息是8%，大于或等于5年的年息是10%，问n年后取出本息是多少钱？
（请完整解答）
y002、某化肥厂1999年生产化肥3886万吨，该厂计划年增长率为10%，编程计算2005年生产多少吨化肥？
y003、现有100元钱存入银行，一年期利息为8%，每年到期时，将本息取出重新存入，这样过n年后本息为多少？
y004、现有100元钱存入银行，存n年后取出，已知n小于5年的年息是8%，大于或等于5年的年息是10%，问n年后取出本息是多少钱？
（请完整解答）
y001:n的范围是0<n<10000.
program y001;
var i,n:integer;
a:array[1..10000]of real;
he:real;
begin
read(n);
for i:=1 to n do a[i]:=1/i;
he:=0;
for i:=1 to n do he:=he+a[i];
writeln(he:5:5);
end.
y002:n是年数，t是万吨。
program y002;
var n,i:integer;
t:real;
begin
n:=2005;
t:=3886;
for i:=2000 to n do
t:=t*1.1;
writeln(t*10000:5:5);
end.
y003：n是年数m是钱数
program y003;
var n,i:integer;
m:real;
begin
read(n);
m:=100;
for i:=1 to n do m:=m*1.08;
writeln(m:5:2);
end.
y004:其实和y003一样就是多了个判断。
program y004;
var n,i:integer;
m:real;
begin
read(n);
m:=100;
if n<5 then
for i:=1 to n do m:=m*1.08
else for i:=1 to n do m:=m*1.1;
writeln(m:5:2);
end.
y001:n的范围是0<n<10000.
program y001;
var i,n:integer;