如何優化PASCAL數程式？

試試看。

DK，你想說位壓，對吧，你也可以預處理2 n

它不必每次都乘以 2。

您每次都可以將其乘以更大的數字 2，例如：2048 這是為了減少運算次數，無論如何您都在驅動乙個整數

順便說一句，您還需要控制乘法次數。

沒看得太仔細。 只要問你每個 a[i] 是有 1 位數字還是 4 位數字？ 呵呵。 如果您要儲存 1 位數字。 你應該知道我在說什麼

varn:longint;

i,j:longint;

out:array[1..500] of longint;

sta:array[1..1000] of longint;變數的說明。

procedure solve(n:longint);用乙個過程來做。

beginif n=0 then

exit;判斷是否要這樣做。

solve(n div 2)；遞迴。

對於 i：=1 到 500 做做 Maisons 的數量。

for j:=1 to 500 do

if n mod 2=0

thensta[i+j-1]:=sta[i+j-1]+out[i]*out[j]

elsesta[i+j-1]:=sta[i+j-1]+out[i]*out[j]*2;

對於 i：=1 到 500 做處理攜帶。

beginout[i]:=sta[i] mod 10;

sta[i+1]:=sta[i+1]+sta[i] div 10;

end；for i:=1 to 1000 do sta[i]:=0

end;begin

readln(n)；輸入。

writeln(trunc(ln(2)/ln(10)*n)+1);輸出第一行。

out[1]:=1;分配初始值。

solve(n);呼叫該過程。

對於 i：=500 下降到 2 個 do 輸出。

beginwrite(out[i]);

end;writeln(out[1]-1);

end.

看看說明書，如果看完還不知道建議通讀一遍！

優化器其實一點也不難，只要清理垃圾和整理記憶體就行了，如果你的電腦速度慢，效能不是很好，你可以幫它清理臨時的垃圾檔案，或者清理筆記和刪除表，整理大部分儲存空間。

我不知道你想用Windows Optimizer做什麼

總的來說，他的自動優化---功能還不錯

還有一般用途

刪除軟體---智慧型解除安裝功能很好

功能不錯，可以去掉多餘的右鍵選單

驅動器備份 --

還有登錄檔清理 --

磁碟檔案清理 - （有時被錯誤刪除）

都還不錯 反正你的問題很籠統

其實選單也很簡單

一旦你熟悉了它，你就可以快速上手了！

昏厥，系統是要優化的，不優化就很難使用。 使用 Optimizer 也是乙個好主意。 不要自動優化，只需手動優化，因為細節太多，無法一一解釋。

系統清理和維護。

第一：登錄檔清理。 首先掃瞄以刪除所有出來的檔案，這些檔案是無用的，會影響計算機的速度。

第二：垃圾檔案清理。 此外，還會先掃瞄以刪除所有掃瞄。

系統效能優化。

第二：開機速度優化。 點優化。

以上所有將幫助您優化計算機，其餘的就沒有多大用處了！ 我就是這樣使用它的！

首先清理垃圾檔案。

清理登錄檔。

清理登錄檔和清理垃圾檔案可以用一點。 垃圾檔案清理（現在的磁碟管理）只能清理系統磁碟，而不能清理其他磁碟。 其他優化函式應該手動優化，但不要進行自動優化。

您嘗試了 Turbo Pascal 沒有問題，您使用了 Free Pascal

使用 Free Pascal 時，會遇到錯誤訊息“fatal：compilation aborted”，意思是：fatal：編譯失敗。 通常有兩種可能的情況：

1.你的**犯了乙個致命的錯誤; （經檢查，您的**中沒有錯誤）。

2. free pascal 有問題。

解決方法是：

1、檢查**，確認無誤;

3. 如果以上方面仍然不起作用，剩下的更方便的方法是解除安裝 Free Pascal 並重新安裝。

另乙個問題：vari：整數;

beginfor i:=0 to 999 do

if (i mod 3 = 0) and ((i div 100=5) or ((i div 10) mod 10=5) or (i mod 10=5)) then

write(i,',');

end.

可以按一位讀取，在讀取時轉換並儲存在陣列中，遇到空格時跳轉到第二個陣列中。

您還可以使用 ansistring 讀取（正確，僅 65536-1 位）pos 空格，並將它們拆分為兩個陣列。

使用 ansistring 型別讀入，一次一行。 這種字串有無限位。