プチコンまとめWiki (初代/mkII)

投稿プログラム : 素数計算機

パンくずリスト

2013年3月5日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム

概要

素数の計算をするプログラムです。(初めての作品)

使い方

数字を入力すると、そこまでにある全ての素数を求めます。 その後、Aボタンで素数検索、Bボタンで素数判定ができます。

素数検索:何番目の素数を調べたいかを入力する。

素数判定:素数かどうか調べたい数字を入力する。素数でない場合は1でない最小の約数を表示

注意

整数で入力してください。

探索できる限界は524176です。それ以上は正常に動きません。

素数検索と素数判定は、探索範囲内の数字でのみ行えます。

スクリーンショット・動画

QR コード

プチコンmkII 向けの QR コードです。

qr0.png
 

プログラムリスト

  1. VISIBLE 1,1,0,0,0,0
  2. CLS:COLOR 0:CLEAR
  3. ROOT=1:COUNT=−1:ROOTX=4
  4. INPUT ”ト゛コマテ゛”;LIMIT
  5. IF LIMIT<=1 THEN @I
  6. COUNT=0
  7. IF LIMIT%2==0 THEN NODD=LIMIT/2 ELSE NODD=FLOOR(LIMIT/2)+1
  8. DIM PRIME(43383)
  9. PRIME(0)=2
  10. ? PRIME(0);
  11. ODD=1
  12. FOR I=1 TO NODD
  13. ODD=ODD+2
  14. IF ODD>LIMIT THEN @I
  15. IF ROOTX<=ODD THEN ROOT=ROOT+1:ROOTX=(ROOT+1)*(ROOT+1)
  16. N=0
  17. @D
  18. IF PRIME(N)>ROOT THEN @E
  19. IF ODD%PRIME(N)==0 THEN NEXT
  20. N=N+1
  21. GOTO @D
  22. @E
  23. COUNT=COUNT+1
  24. PRIME(COUNT)=ODD
  25. A$=”,”+STR$(ODD)
  26. IF CSRX+LEN(A$)>32 THEN ?””:GOTO @G
  27. ? ”,”;ODD;:NEXT
  28. @G
  29. ? ODD;:NEXT
  30. @I
  31. ? ””
  32. ? ”コスウ:”;COUNT+1
  33. @J
  34. ? ”А:ケンサク Б:ハンテイ Ф:シュウリョウ”
  35. @K
  36. PUSH=BUTTON()
  37. IF PUSH==16 THEN @L
  38. IF PUSH==32 THEN @M
  39. IF PUSH==64 THEN END
  40. GOTO @K
  41. @L
  42. INPUT ”ナンハ゛ンメヲケンサクシマスカ”;Q
  43. IF Q<=0 OR Q>COUNT+1 THEN @N
  44. ? Q;”ハ゛ンメハ ”;PRIME(Q−1);” テ゛ス”:GOTO @J
  45. @N
  46. ? ”ワカリマセン”
  47. GOTO @J
  48. @M
  49. INPUT ”ナニヲハンテイシマスカ”;Q
  50. IF Q<=0 OR Q>LIMIT THEN @N
  51. IF Q==1 THEN ? ”ソスウテ゛ハアリマセン”:GOTO @J
  52. N=0
  53. @O
  54. N=N+1
  55. IF Q%PRIME(N−1)!=0 THEN @O
  56. IF Q==PRIME(N−1) THEN ? N;”ハ゛ンメノソスウテ゛ス”:GOTO @J
  57. ? ”ソスウテ゛ハアリマセン”
  58. ? PRIME(N−1);”ノハ゛イスウテ゛ス”
  59. GOTO @J

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • いぬまろ : 前にも同じような物が作られているよ (2013/03/05 (火) 19:40:31)
  • 名無しさん : 前のは検索機能付いてたっけ?覚えて無いけど (2013/03/05 (火) 23:12:04)
  • 名無しさん : ↑ないよ (2013/04/07 (日) 05:42:19)
  • .EXE : タグおかしいぞ (2013/04/07 (日) 08:24:18)
  • いぬまろ : 本当だ (2013/04/07 (日) 11:47:38)
  • 投稿者 : タグ修正しました。 (2013/04/08 (月) 14:43:20)
  • 投稿者 : QRコードのせました。 (2013/04/08 (月) 15:37:20)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.047 秒 | このページの最終更新 : 2013/04/08 (月) 15:42:31 (2416d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30