掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
素数かどうかを判定するプログラムをつくるには？ (ID：16512)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
しつこいです。すいません。 やっぱり、間違いない。 何か勘違いか？ >自然数ｎを入力してそれが素数かどうかを判定するプログラム ウォレスさんには申し訳ないのですが、この場合はメルセンヌ数も平方根 云々も複雑な公式も無関係のような・・・<m(__)m> 最初の内容とはずれているような var i,j,IntX :Integer; IntChk :Boolean; IntCount :Integer; intMax :Integer; begin IntCount := 0; intMax := StrToInt(Edit1.Text); Memo1.Clear; for i := 2 to IntMax do begin IntChk := False; for j := 2 to i -1 do begin if (i mod j) = 0 then begin IntChk := True; Break; end; end; if IntChk = False then begin IntCount := IntCount + 1; Memo1.Lines.Add(IntToStr(i)); end; end; Edit2.Text := IntToStr(IntCount); // intMAX内に素数が何個有るか end; 膨大な桁数を計算するならいざ知らず。 10万桁までなら確認しましたが、結果は正しく出力されますので関数化すればよいものと。 なんか、間違ってますか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.