私はクラスのためにパスカルの宿題に取り組んでいます。私は基本的には動作しますが、私たちの宿題提出サイトは私に完全な信用を与えていませんでした。私は教授に電子メールを送って、彼は{$ r +}指令に私を結びつけました。私がそれを含めると、ランタイムエラー201が表示されます。この問題はレンジチェックに関連していることはわかっていますが、どの変更が問題を解決するかはわかりません。どんな助けでも大変感謝
プログラムの一部入力番号が完全な数であるかどうかをチェックします。私たちは、O（sqrt（n））で実行される解を見つけるはずです。残りのプログラムは一定の時間内に実行されますが、この機能は私を後押ししています。 function Perfect(x: integer): boolean;
var
i: integer;
sum: integer=0;
begin
私は100億回のループを実行する必要があり、実行に失敗しました。私は序数的エラーを得ています。 program kittu;
var i:qword;
j:qword;
k:qword;
begin
i:= 10000000000;
k:= 0;
for j:=1 to i do
begin
k:=k+1;
パスカルをよく知っている人の助けが必要です。 私はバリアントレコードを使用するために（教師の必要条件が）必要です。これらのバリアントレコードは、次のように定義されています。 Temperature = record
case scale : TemperatureScale of
celsius : (celsius_value : ScaleCelsius);
ke