OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
締切り
済み

素数の判定

  • すぐに回答を!
  • 質問No.144632
  • 閲覧数322
  • ありがとう数3
  • 気になる数0
  • 回答数4
  • コメント数0

お礼率 12% (8/66)

BASICで50までの素数を表示するプログラムが、なかなか分かりません。どなたか初心者にも分かるように教えて下さい。お願いします。
通報する
  • 回答数4
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全4件)

  • 回答No.1
レベル10

ベストアンサー率 32% (64/196)

Googleで「エラトステネスのふるい」で検索してみてください。 説明しているサイトが結構出てきます。 下記URLは割合丁寧に説明してありました。 ...続きを読む
Googleで「エラトステネスのふるい」で検索してみてください。
説明しているサイトが結構出てきます。
下記URLは割合丁寧に説明してありました。
  • 回答No.2
レベル14

ベストアンサー率 28% (4322/15243)

インターネットエクスプローラーを開き、アドレス(D)欄に「素数」と漢字で入力し、エンタを押してください。 沢山の、素数に関するWEBページがあります。 第一ページに、「素数の判定」のHPがあります。「表示」・「ソ―ス」をクリックするとJAVA言語ですが、 判定プログラムが出てきます。HTML文の中のfor(・・・の部分以下です。ご参考まで。
インターネットエクスプローラーを開き、アドレス(D)欄に「素数」と漢字で入力し、エンタを押してください。
沢山の、素数に関するWEBページがあります。
第一ページに、「素数の判定」のHPがあります。「表示」・「ソ―ス」をクリックするとJAVA言語ですが、
判定プログラムが出てきます。HTML文の中のfor(・・・の部分以下です。ご参考まで。
  • 回答No.3
レベル11

ベストアンサー率 30% (109/354)

昔作った素因数分解のプログラムです Private Sub Command1_Click() Dim iii As Long Text1.Text = "" i = 2 iii = ibun For q = 0 To 1 DoEvents If iii Mod i = 0 Then Text1.Text = Text1.Text + "." & ...続きを読む
昔作った素因数分解のプログラムです
Private Sub Command1_Click()
Dim iii As Long
Text1.Text = ""
i = 2
iii = ibun
For q = 0 To 1
DoEvents
If iii Mod i = 0 Then Text1.Text = Text1.Text + "." & i: iii = iii / i Else: i = i + 1
q = 0
If 2 > iii Then q = 1
Form1.Caption = i
Next
Text1.Text = Text1.Text + "/END"
End Sub
参考になればうれしいです
  • 回答No.4
レベル11

ベストアンサー率 30% (109/354)

50までだったら簡単 dim p(14) p(0)=2 p(1)=3 p(2)=5 p(3)=7 p(4)=11 p(5)=13 p(6)=17 p(7)=19 p(8)=23 p(9)=29 p(10)=31 p(11)=37 p(13)=43 p(14)=47 以上です たった14個だから全部最初から入れればいい
50までだったら簡単

dim p(14)
p(0)=2
p(1)=3
p(2)=5
p(3)=7
p(4)=11
p(5)=13
p(6)=17
p(7)=19
p(8)=23
p(9)=29
p(10)=31
p(11)=37
p(13)=43
p(14)=47
以上です
たった14個だから全部最初から入れればいい
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ