掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
素数かどうかを判定するプログラムをつくるには？ (ID:16508)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
調子悪。3回目 単に数値がどうか判定ですよね。 素数は1と自身でしか割れない数値。 でしたよね。 ならば・・・ 取り急ぎで1は除外 var i,intX :Integer; IntChk :Boolean; begin intX := StrToInt(Edit1.Text); IntChk := False; for i := 2 to intX - 1 do begin if (intX mod i) = 0 then//剰余が無いので割れちゃった begin IntChk := True; end; end; if IntChk = False then begin ShowMessage('素数'); end else begin ShowMessage('以外'); end; end; てのはどうでしょうか？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.