Pascal用while语句编程的问题9个.大神帮帮忙!急啊!
1.求S= 1-1/2 +1/3-1/4+1/5-1/6+ ……（求前N项的和)
2. Faibonacci数列前几项为: 0,1,1,2,3,5,8,…,其规律是从第三项起, 每项均等于前两项之和.求前30项, 并以每行5个数的格式输出.
3.小球从100高处自由落下,着地后又弹回高度的一半再落下.求第20次着地时, 小球共通过多少路程?
4.某登山队员第一天登上山峰高度的一半又24米; 第二天登上余下高度的一半又24米；每天均如此.到第七天,距山顶还剩91米.求此山峰的高度?
5.给出某整数N,将N写成因数相乘的形式.如: N=12,输出:12=1*2*2*3.
6.出售金鱼者决定将缸里的金鱼全部卖出.第一次卖出全部金鱼的一半加二分之一条;第二次卖出剩余的三分之一加三分之一条金鱼;第三次卖出余下金鱼的四分之一加四分之一条;第四次卖出余下的五分之一加五分之一条金鱼.还剩下11条金鱼.当然,出售金鱼时都是整数条,不能有任何破损.求缸里原有的金鱼数?
7.外出旅游的几位朋友决定次日早晨共分一筐苹果.天刚亮,第一个人醒来,他先拿了一个,再把筐里的八分之一拿走;第二个人醒来,先拿两个,再把筐里的八分之一拿走;第三个人醒来,先拿三个,再拿走筐里的八分之一;…每个人依次照此方法拿出各人的苹果,最后筐里的苹果全部拿完,他们每人所拿到的苹果数正巧一样多.求原先筐里的苹果数和人数.
8.图中由6个圆圈构成三角形,每条边上有三个圈, 将自然数1--6 不重复地填入各圆圈位置上,使每条边圆圈上的数字之和相等,请编程输出所有的填法.
9．请编程显示出下面数字金字塔图形：
我给你几题吧,我要去参加宁波编程比赛,没时间了.
1.
var n,i:longint;s:real;
begin
readln(n);
i:=1;
while in do
begin
if i mod 2=1 then s:=s+1/i else s:=s-1/i;
inc(i);
end;
writeln(s:0:2);
end.
2.
var a:array[1..30]of longint;i:longint;
begin
a[1]:=0;a[2]:=1;
i:=2;
while i30 do
begin
inc(i);
a[i]:=a[i-1]+a[i-2];
end;
for i:=1 to 30 do
begin
write(a[i],' ');
if i mod 5=0 then writeln;
end;
end.
3.
var i,s,sum:longint;
begin
i:=1;
s:=100;
sum:=100;
while i20 do
begin
inc(i);
s:=s div 2;
sum:=sum+s*2;
end;
writeln(sum);
end.
4.
var i,s,sum:longint;
begin
i:=1;
s:=100;
sum:=100;
while i20 do
begin
inc(i);
s:=s div 2;
sum:=sum+s*2;
end;
writeln(sum);
end.
5.
var n,l,i,p:longint;a:array[1..10000]of longint;
begin
readln(n);l:=2;i:=0;
write(n,'=1*');
while n1 do
begin
if n mod l=0 then begin inc(i);a[i]:=n div l;n:=n div l;end;
inc(l);
end;
for p:=1 to i-1 do
write(a[p],'*');
writeln(a[i]);
end.
