1樓：
1. var s,x:real;
i:=integer;
begin
s:=100;x:=100;
for i:=1 to 19 do
s:=s+x;
x:=x/2;
writeln(s)
end.
2. var s,x:real;
i,n:integer;
begin
read(n);
s:=0;x:=1;
for i:=1 to n do
if i mod 2=1 then s:=s+1/i else s:=s-1/i;
write(s)
end.
2樓：匿名使用者
1.我寫成了函式:
function ball(tal:real;times:integer):real;
var moves:real;
i:integer;
begin
moves:=tal;
for i:=1 to times-1 dobegin
tal:=tal/2;
moves:=moves+tal*2 ;
end;
ball:=moves;
end;
其中tal是路程,times是次數.
呼叫方式是ball(100,20);
2.function sumn(n:integer):real;
var s:real;
i,k:integer;
begin
s:=0;
k:=1;
for i:=1 to n do
begin
s:=s+k/n;
k:=-k;
end;
end;
呼叫方式是sumn(n);
3樓：
1var i:integer
j,max:real;
begin
j:=100;
for i:=1 to 20 do
begin
max:=max+j;
j:=j / 2;
end;
writeln(max);
end.
2 var n,i,j:integer;
ans:real;
begin
readln(n);
max:=1;
for i:=1 to n do
if i mod 2 =0 then max:=max+1/i else max:=max-1/i;
writeln(max);
end.
直接寫的，應該可以的
4樓：匿名使用者
1、路程變數s初始為100，再用一個變數h，初始也100。迴圈19次，每次進入迴圈時，s:=s+h（實際上是加上h的一半的兩倍，因為球彈起多高，落下去也要經過同樣的路程），h減半，繼續迴圈。
2、設變數i初始為1，變數k初始為1，變數s初始為0。迴圈n次，每次迴圈時，s:=s+k/i，然後i加1，k:=-k，繼續迴圈。
思路已經給你了，程式還是自已編的好。
5樓：匿名使用者
其實提並不難，但是pascal語言並不是很多人使用，如果可以的話，你可以問一下用c++做出來，然後再自己該吧，pascal語言我一點也不懂
小學題目 求解急，急！！！！！！！會計題目，求解！！
假設火車沒有提速，還是以原速度行駛，那麼過156m大橋用的時間應該是14 2 28s,那麼火車的速度應該 156 76 28 20 因為火車多走的 156 76 m用了 28 20 s，速度 10m s。火車長度 10 20 76 124m 設原來的速度是v m s 車身長 x m 列方程 2x 7...
化學題目求解，求解化學題目啊！！！
1.在zn cu原電池中，原來的電解質是稀硫酸，加入高錳酸鉀 雙氧水等強氧化劑，得電子能力增強，加速zn失去電子，也就是單位時間通過的電子多，使電流增大，燈變亮，燈泡亮度增加且持續時間較長。2.0.02 mol l 1醋酸與0.02 mol l 1naoh等體積混合後的溶液，實質是ch3coona溶...
求解歷史題目，求解一道歷史題目
因為，出巡的御史，並不總是負責監察的，比如總督和巡撫，理論上也是出巡御史的一種。顯然已經是主要負責監管地方事務的方面大員了。再加上，題幹中，也沒有描述出巡御史的工作規程，所以，算不得介紹監察制度的。只是在說 迴避制度 而已。根據題幹 對御史出巡有嚴格規定 可知，明朝實行較為完善的司法制度有利於司法的...