運行時錯誤

Question

我試圖因素給定數量a，所以我寫了下面的Pascal代碼：

program prime_factors; 
    var b:array[1..1000] of integer; 
    k,i,d,a:integer; 
begin 
    k:=0; 
    write(' enter number '); 
    read(a); 
    while a>1 do 
    if a mod d =0 then 
     begin 
     k:=k+1; 
     b[k]:=d; 
     a:=a div d; 
     end 
    else 
     if d=2 then 
     d:=d+1 
     else 
     d:=d+2; 
    for i:=1 to k do 
    write(b[i],' '); 
    readln(); 
    readln(); 
end. 

但是當我運行它，它給了我錯誤200或運行時錯誤，但我無法確定是什麼問題。我已經使用k作爲b數組中的因子長度。我應該認爲索引k有什麼問題嗎？

Answer 1

你應該定義D：= 2;在開始：D之後，因爲它的默認值是0.