1樓：匿名使用者
好像上面兩位都有點問題
第一題program exe1;
vars:real;
i,n,k:integer;
begin
s:=0.0;
readln(n);
for i:=1 to n do
if odd(i) then s:=s+1/ielse s:=s-1/i;
writeln(s:0:6);
end.
第二題program exe2;
vari,sum:real;
n:integer;
begin
sum:=100.0;
i:=100;
for n:=1 to 19 do
begin
sum:=sum+i;
i:=i/2;
end;
writeln(sum:0:6)
end.
2樓：者問提
**樓上的都說了。這方法叫遞迴，程式設計基礎中的基礎。
Pascal 程式設計，pascal程式
要想提高，得自己寫程式，讓大家看看你錯在 看別人的程式上進比較慢的。下面的程式除錯通過，完全滿足你的要求，迴圈裡面的writeln是輸出每一項數值的，你可以註釋掉。program ygb var i,j,n,x integer begini 0 j 0 x 1 write n readln n wh...
pascal程式設計問題
vara,b,c,d integer begin read a,b,c if a b then d b else d a if c d then d c writeln d end.vars string t,q,m,b,i,k,max longint a array 1.1000 of longi...
pascal程式設計 急將n個學生成績從鍵盤輸入,按
vari,n,x,c0,c60,c70,c80,c90 integer begin write n readln n writeln 請輸入 n,個學生成績 for i 1 to n do begin read x case i div 10 of 6 c6 c6 1 7 c7 c7 1 8 c8 ...