как исправить exitcode 201?

Question

У меня есть задача написать программу в Паскале. Когда я запускаю программу, результатом был 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. 

Answer 1

Как видно из other questions, код ошибки 201 является ошибкой проверки диапазона. Проще говоря, значение пытается быть сохранено там, где оно не подходит.

Если, как в связанном вопросе, вы используете Free Pascal Compiler, integer переменные 16-bit values - они не могут пойти выше, чем 32767.

Вашего totaldetik переменные выглядит она часто выше, чем предел для integer значения, так что вам нужно больше переменный для его хранения. Попробуйте сделать totaldetiklongint вместо этого.