作业帮pascal问题,请用while语句做出,1.某登山队员第一天登上山峰高度的一半又24米; 第二天登上余下高度的一半又24米；每天均如此.到第七天,距山顶还剩91米.求此山峰的高度?2.求S=1-1/2+1/3-1/4+1/5-1/6+.
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/17 14:46:17
pascal问题,请用while语句做出,1.某登山队员第一天登上山峰高度的一半又24米; 第二天登上余下高度的一半又24米；每天均如此.到第七天,距山顶还剩91米.求此山峰的高度?2.求S=1-1/2+1/3-1/4+1/5-1/6+.
pascal问题,请用while语句做出,
1.某登山队员第一天登上山峰高度的一半又24米; 第二天登上余下高度的一半又24米；每天均如此.到第七天,距山顶还剩91米.求此山峰的高度?
2.求S=1-1/2+1/3-1/4+1/5-1/6+.（求前N项的和）.
3.给出某整数N,将N写成因数相乘的形式.如N=12,输出：12=1*2*2*3.
pascal问题,请用while语句做出,1.某登山队员第一天登上山峰高度的一半又24米; 第二天登上余下高度的一半又24米；每天均如此.到第七天,距山顶还剩91米.求此山峰的高度?2.求S=1-1/2+1/3-1/4+1/5-1/6+.
第1题：
program t1;
var
i,m:integer;
begin
i:=6; m:=91; // 因为第7天离山顶只有91米,不属于循环中,所以m=6,所以只有六天,所以i=6
while i>=1 do // 使用递减的方法做
begin
m:=(m+24)*2; //按条件计算m
dec(i);
end;
write(m); // 咦,答案是珠穆朗玛峰的高度
end.
第2题：
program t2;
var
i,n:integer;
m:real;
begin
read(n);
m:=1;
for i:=2 to n do
begin
if (i mod 2)=0 then m:=m-1/i //判断是加还是减
else m:=m+1/i;
end;
write(m);
end.
第3题：
program t3;
var
n,d,m:longint;
begin // 时间不够了,不加注释了,你自己琢磨一下,很简单的
readln(n);
m:=2; d:=n;
write(n,'=1*');
repeat
if (d mod m)0 then inc(m)
else begin
d:=d div m;
if (d=1) then write(m)
else write(m,'*');
end;
until m=n;
end.