1樓：幽幽深紫
for i=1 to n(限定的數的分母) do接下來說思路吧。。
總之分母是i，分子就是i-1，除一除就行了。
然後把每次除得的商累加到一個變數中去。
能明白吧？
2樓：
varn,i : longint;
ans : double;
begin
read(n);
ans:=1;
for i:=2 to n do ans:=ans+(i-1)/i;
writeln(ans:0:8);
end.
3樓：逸之朦朧
var n,i:longint;
sum:real;
begin
readln(n);
sum:=0;
for i:=1 to n do
sum:=sum+1/i;
writeln(sum);
end.
Pascal問題 矩陣乘法，Pascal 矩陣乘法的完整過程？
vara,b,c,i,j,k longint x,y,f array 0.2000,0.2000 of longint begin read a read b read c for i 1 to a do for j 1 to b do read x i,j for i 1 to b do for ...
Pascal的if語句問題
1.要確認a能不能被b整除，只要a除b的餘數 0，那麼他就能被b整除。否則就輸出a，除號，b，等號，商 用整除函式div 再用a b 商。程式 var a,b integer beginreadln a,b if a mod b 0 then write a,b,a div b elsewrite ...
pascal郵票問題
你最後一步的prin寫錯了！應該這樣寫 var n,m,i,mm integer a array 1.100 of integer money array 0.10000 of boolean procedure print var max,i,j integer begin max 0 區域性變數...