この発言は
#00946　べあ            さんの素数を求める関数
に対するコメントです



　べあ さん、こんにちは。

 >  repeat
 >    j := i ; inc(j,i);

      j := i * i;

 >    until sosuflag[i];         //次に小さい素数を探す
 >  until i > $8FFF;

    until i > $FF;
で十分では？

ａが合成数で ａ＝ｍｎ とすると、min(ｍ,ｎ) ≦ √ａ だから。

                                                    ぜえた (QZC05100)

Original document by ぜえた          氏 ID:(QZC05100)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。