pascal问题,请用while语句做出,1.某登山队员第一天登上山峰高度的一半又24米; 第二天登上余下高度的一半又24米;每天均如此.到第七天,距山顶还剩91米.求此山峰的高度?2.求S=1-1/2+1/3-1/4+1/5-1/6+.
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/25 15:24:22
![pascal问题,请用while语句做出,1.某登山队员第一天登上山峰高度的一半又24米; 第二天登上余下高度的一半又24米;每天均如此.到第七天,距山顶还剩91米.求此山峰的高度?2.求S=1-1/2+1/3-1/4+1/5-1/6+.](/uploads/image/z/2788426-10-6.jpg?t=pascal%E9%97%AE%E9%A2%98%2C%E8%AF%B7%E7%94%A8while%E8%AF%AD%E5%8F%A5%E5%81%9A%E5%87%BA%2C1.%E6%9F%90%E7%99%BB%E5%B1%B1%E9%98%9F%E5%91%98%E7%AC%AC%E4%B8%80%E5%A4%A9%E7%99%BB%E4%B8%8A%E5%B1%B1%E5%B3%B0%E9%AB%98%E5%BA%A6%E7%9A%84%E4%B8%80%E5%8D%8A%E5%8F%8824%E7%B1%B3%3B+%E7%AC%AC%E4%BA%8C%E5%A4%A9%E7%99%BB%E4%B8%8A%E4%BD%99%E4%B8%8B%E9%AB%98%E5%BA%A6%E7%9A%84%E4%B8%80%E5%8D%8A%E5%8F%8824%E7%B1%B3%EF%BC%9B%E6%AF%8F%E5%A4%A9%E5%9D%87%E5%A6%82%E6%AD%A4.%E5%88%B0%E7%AC%AC%E4%B8%83%E5%A4%A9%2C%E8%B7%9D%E5%B1%B1%E9%A1%B6%E8%BF%98%E5%89%A991%E7%B1%B3.%E6%B1%82%E6%AD%A4%E5%B1%B1%E5%B3%B0%E7%9A%84%E9%AB%98%E5%BA%A6%3F2.%E6%B1%82S%3D1-1%2F2%2B1%2F3-1%2F4%2B1%2F5-1%2F6%2B.)
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.