2016-02-19 29 views
0

我有一個任務在Pascal中編寫程序。當我運行該程序時,結果是退出代碼201.如何修復exitcode 201?

我不知道如何解決此錯誤。

program convertTime; 
    uses crt; 
    Type 
      Jam = record 
        hh:integer ; 
        mm:integer ; 
        ss:integer; 

    end; 
    var 
      J : Jam; 
      P,totaldetik,sisa : integer; 

    begin 
      J.hh:= 16; 
      J.mm:= 10; 
      J.ss:= 34; 

      write('masukkan waktu(menit): ');read(p); 

      totaldetik:= (J.hh*3600) + (J.mm*60) + J.ss + (p*60); 

      J.hh:= totaldetik div 3600; 
      sisa:= totaldetik mod 3600 ; 
      J.mm:= sisa div 60; 
      J.ss:= sisa mod 60; 

      writeln('total the time: ',J.hh,' Hour ',J.mm,' Minute ',J.ss,' second'); 
      readln; 
    end. 
+1

查找錯誤代碼也許? –

+1

[運行時錯誤201 at fpc]的可能重複(http://stackoverflow.com/questions/20315852/runtime-error-201-at-fpc) –

+0

編譯代碼時使用了什麼選項(如果有)?當您運行程序以獲得201錯誤時,您給該程序什麼輸入? – lurker

回答

5

other questions所示,錯誤代碼201是範圍檢查錯誤。簡而言之,一個值試圖存儲在不適合的地方。

如果在鏈接問題中使用Free Pascal編譯器,則integer變量爲16-bit values - 它們不能高於 32,767。

totaldetik變量看起來往往會比一個integer值的上限越高,所以你需要一個更大的變數將其存儲在。試着做一個totaldetik代替longint