BASICで50までの素数を表示するプログラムが、なかなか分かりません。どなたか初心者にも分かるように教えて下さい。お願いします。

A 回答 (4件)

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個だから全部最初から入れればいい
    • good
    • 0

昔作った素因数分解のプログラムです


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
参考になればうれしいです
    • good
    • 0

インターネットエクスプローラーを開き、アドレス(D)欄に「素数」と漢字で入力し、エンタを押してください。


沢山の、素数に関するWEBページがあります。
第一ページに、「素数の判定」のHPがあります。「表示」・「ソ―ス」をクリックするとJAVA言語ですが、
判定プログラムが出てきます。HTML文の中のfor(・・・の部分以下です。ご参考まで。
    • good
    • 0

Googleで「エラトステネスのふるい」で検索してみてください。


説明しているサイトが結構出てきます。
下記URLは割合丁寧に説明してありました。

参考URL:http://www.hokuriku.ne.jp/fukiyo/math-obe/eratos …
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード


人気Q&Aランキング

おすすめ情報