免費的 Pascal IDE 問題 蝦幫助跪下乞求。。。。。。 10

Pascal 語言由蘇黎世瑞士聯邦科技大學開發。 它由Niklaus Wirth教授於1971年正式完成，並以法國數學家Pascal的名字命名。 它在1975年被修改為“標準帕斯卡語言”。

Pascal 語言是在 Algol60 的基礎上開發的，Algol60 是一種結構化程式設計語言; 它是一種系統程式語言，可用於編寫應用程式或順序系統軟體。 它是 70 年代最有影響力的演算法語言之一，具有強大的功能和簡單的編譯器。

目前，它已經擴充套件為幾個版本。 例如，Turbo Pascal

說白了，就是程式設計的東西，比Turbo Pascal更強大，語言也更簡單（Pascal）。

Free Pascal 是由國際組織開發的一款完整的 Win32 Pascal 語言編譯器，類似於 Delphi，可以編寫 Windows 程式; Free Pascal 是乙個 32 位編譯器，是乙個跨平台編譯器;

模擬，方法是對的，但錯誤太多了。

出了什麼問題以及如何解決：

1. i：=1 到 n do 的大迴圈後面跟著乙個分號，這樣迴圈是空的，主程式只做一次，去掉分號。

2. Fillchar 放在迴圈之外，而是放在迴圈中，每次都必須恢復。

3.將已開啟的手銬（true）更改為未開啟的手銬（false）時出錯，並且更改僅一次，因此將分號更改為else

4.迴圈應該是a：=1到y做，以弄清楚程式的結構和每個變數的儲存內容，否則會顯得凌亂，容易混淆。

如果第 i 個和 j 個平方是相同的顏色，則必須形成乙個三元組，並且三元組的值與中間數完全無關。

因此，讓我們使用乙個陣列來儲存具有奇偶校驗的相同顏色的塊。 則值為 （numi+numj）*（i+j）。

現在將每組編號的下標表示為 a1 an，numa1 numan 表示 numa1 numa。

答案是（numa1+numa2）*（a1+a2）+....如果你這樣做，它是 o（n 2） 的演算法。

但是，如果您仔細觀察方程式，則可以使用乘法分配率來獲得它。

答案等於 a1*（numa1*（n-1）+numa2+numa3+......numan)+

a2*(numa2*(n-1)+numa1+numa3+……numan)+…

an*(numa1*+numa2+

numa3+……numan*(n-1))

這樣，我們可以用 sum 來表示 a1 到 an 的 num 之和，用 sum2 來表示 a1 到 an 的總和，答案是 sum*sum2+（n-2）*sum2

備註mod10007

百科全書中提供了最流行的尋找素數的方法，稱為“篩選法”，或“埃拉託色尼的篩子”

它所依據的原則是：

在下面的 gif 動畫中，您還可以看到 sieve 方法的一般步驟：（直接刪除 1）。

你如何在 Pascal 中做到這一點？ 這樣做的方法是構造乙個布林型別的陣列，如果 prime[ i ]=true，則表示 i 是素數。

具體如下：

var i,j,n,sum:longint;

prime:array[2..1000000000]of boolean;

beginreadln(n);輸入乙個範圍以查詢 2 n 以內的素數;

fillchar(prime,sizeof(prime),true);首先將 all 設定為 true;

for i:=2 to trunc(sqrt(n)) do

如果 prime[i] 那麼如果 i 是素數，則將 n 內所有 i 的倍數（不包括你自己）分配給 false;

beginfor j:=2 to n div i do

prime[i*j]:=false;

end;對於 i：=2 到 n DO 輸出;

if prime[i] then write(i,' ');

end.

Pascal 不熟悉 C++ 程式。

#include

#include

using namespace std;

int vis[1000];陣列元素都是 0int main（）。

以下是普及組的內容：

注意：以下中文內容無法輸入。

問題出在**啊???

你忘了再發一次嗎???

發現這種無標題的腦死亡問題並不少見！

簡而言之：

read 和 readln 的區別在於讀取資料不帶換行符，而讀取 ln 讀取資料帶換行符。

readln在Free Pascal末尾打字後，可以再次在螢幕上輸入資料，執行後可以檢視資料，而不是按回車鍵返回主介面。

write 和 writeln 的區別在於，在輸出資料時，寫入是不換行的輸出，即在資料輸出後可以繼續輸出這一行，而 writeln 是換行輸出，即輸出下乙個資料時，輸出下一行資料。

發問者說："那你為什麼不結婚呢？ "