1樓：匿名使用者
while j>0 do後面的意思是 把b【1~5】 從1~5 變為6~10 所以要25次 因為s本來是1 所以s為26 還有觀察一下就知道for i:=j+i to 5 do b[i]:=b[j]+i-j 這段中i永遠比5大 所以不會執行 望 （僅限你現在的程式 就如樓上所說 這一段 問題很多 你打錯了 不少吧 少打了分號 i:
=j+i 這裡 也應該有問題 還有是 writeln 不是writein) 額。。就5個資料，當然就是人工模擬啦，實在不行，你把每一句的作用寫出來，如b[i]:=b[j]+i-j即在j之後到5的每一個數加上這個數的標號與當前處理的數的距離，慢慢模擬吧，關鍵是細心。
還有 for i:=j+i to 5 do b[i]:=b[j]+i-j 這個怎麼看都是 for i:
=j+1 to 5 do b[i]:=b[j]+i-j把，是題目錯了還是你打錯了？
2樓：匿名使用者
額。。就5個資料，當然就是人工模擬啦，實在不行，你把每一句的作用寫出來，如b[i]:=b[j]+i-j即在j之後到5的每一個數加上這個數的標號與當前處理的數的距離，慢慢模擬吧，關鍵是細心。
還有 for i:=j+i to 5 do b[i]:=b[j]+i-j 這個怎麼看都是 for i:
=j+1 to 5 do b[i]:=b[j]+i-j把，是題目錯了還是你打錯了？
一道簡單的free pascal題目，各位free pascal大師解答一下吧。。
一道free pascal 題目
free pascal程式設計中的一道非常簡單的題目。
3樓：武風
你等會啊，我馬上編完了。
求一道free pascal題目源**
一道最最最簡單的free pascal題目，懸賞高！！！
4樓：匿名使用者
{}是什麼意思？
如果等價於()的話，那就這樣：
vari,j,s:longint;
beginfor i:=1 to 10 do
for j:=1 to i do inc(s,2*j);
writeln(s);
end.
求一道free pascal題目的源**
5樓：網友
應該說是「記憶化搜尋」吧……
一道free pascal題目
6樓：楊耀東
vara:array[1..52] of boolean;
i,j,z:longint;
beginfor i:=1 to 52do a[i]:=true; 先假定所有撲克牌都正面朝上。
for i:=2 to 52 do
beginfor j:=i to 52 do 當i升到一定數時，i前的數 mod i 都<>0 這樣可以提高效率。
if j mod i=0 then
beginif a[j]=true then a[j]:=false else a[j]:=true; 如果正面朝上，則翻成背面；如果背面朝上，則翻成正面。false代表背面。
end;end;
for i:=1 to 52 do
if a[i]=true then 如果是正面，就進行以下操作。這些就 easy 了。哈。
begininc(z);write(i,'
end;write ('z=',z);
end.
一道vb題，急求，vb題一道，急求
答案是c.輸入10000個數值，計算平均數，適合採用迴圈結構演算法。a。判斷一個證書是否為偶數，解決該問題僅需一步判斷，也許需要一步賦值，沒有多次重複的步驟，不適合採用迴圈結構演算法。b。輸入一個圓的半徑，計算面積和周長。輸入資料 計算面積，這三個內容都是一個語句就可以完成的，沒有多次重複的步驟，不...
求一道奧數題，求一道奧數題的答案！！
因為1,2,3,4,5,及其5的倍數就可以代表整個自然數的所有元素 因為自然數是十進位制，而五恰好是中間 反正法 假設任意6個不同的自然數中至少有2個數的差不是5的倍數那麼其尾數的差就不等於 5或0，又因為自然數尾數為1,2,3,9,0,任意選6個尾數，其結果總會出現 5或者0，這與假設矛盾，所以假...
求解一道關於極限的題,一道求極限題
取x 0 有 分子bai部分du 等於 1 0 0.5 0 1 2 分母部分 等於 0 ln 1 0 0 所以這是一zhi個 2 0型 當然應該等dao於無窮大。專回去查查有沒有抄錯吧屬。樓上的思路是利用分母中 ln 1 x 在 x 0 時 和 x是等價無窮小。但分子部分的處理是錯誤的。分子中根號裡...