掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
37181の謎 (ID:529)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
簡単な素数判定のプログラムを作って遊んでいたのですが、なぜかいつも37181という数値でエラーが出るわけでもなく普通に計算が終わっています。ちなみにこんな感じのプログラムです。 procedure TForm1.Button1Click(Sender: TObject) ; var i,j,n : Cardinal ; Ret,Ret1,Ret2 : Integer ; begin if Edit1.Text <> '' then {エディットに文字が入力されてる場合} begin Ret1 := GetTickCount ; n := StrToInt(Edit1.Text) ; for i := 2 to n do begin for j := 2 to i do begin if (i mod j) = 0 then break ; if j = (i div 2) + 1 then Memo1.Lines.Add(IntToStr(i)); end; end; Ret2 := GetTickCount ; Ret := Ret2 - Ret1 ; Memo1.Lines.Add('計算時間 ' +IntToStr(Ret) +' (ms)'); end; end; なぜ計算が終わってしまうのでしょうか?
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.