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

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

パンくずリスト

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

概要

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

使い方

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

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

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

注意

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

探索できる限界は５２４１７６です。それ以上は正常に動きません。

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

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

QR コード

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

qr0.png

プログラムリスト

  1. ＶＩＳＩＢＬＥ　１，１，０，０，０，０
  2. ＣＬＳ：ＣＯＬＯＲ　０：ＣＬＥＡＲ
  3. ＲＯＯＴ＝１：ＣＯＵＮＴ＝−１：ＲＯＯＴＸ＝４
  4. ＩＮＰＵＴ　”ト゛コマテ゛”；ＬＩＭＩＴ
  5. ＩＦ　ＬＩＭＩＴ＜＝１　ＴＨＥＮ　＠Ｉ
  6. ＣＯＵＮＴ＝０
  7. ＩＦ　ＬＩＭＩＴ％２＝＝０　ＴＨＥＮ　ＮＯＤＤ＝ＬＩＭＩＴ／２　ＥＬＳＥ　ＮＯＤＤ＝ＦＬＯＯＲ（ＬＩＭＩＴ／２）＋１
  8. ＤＩＭ　ＰＲＩＭＥ（４３３８３）
  9. ＰＲＩＭＥ（０）＝２
  10. ？　ＰＲＩＭＥ（０）；
  11. ＯＤＤ＝１
  12. ＦＯＲ　Ｉ＝１　ＴＯ　ＮＯＤＤ
  13. ＯＤＤ＝ＯＤＤ＋２
  14. ＩＦ　ＯＤＤ＞ＬＩＭＩＴ　ＴＨＥＮ　＠Ｉ
  15. ＩＦ　ＲＯＯＴＸ＜＝ＯＤＤ　ＴＨＥＮ　ＲＯＯＴ＝ＲＯＯＴ＋１：ＲＯＯＴＸ＝（ＲＯＯＴ＋１）＊（ＲＯＯＴ＋１）
  16. Ｎ＝０
  17. ＠Ｄ
  18. ＩＦ　ＰＲＩＭＥ（Ｎ）＞ＲＯＯＴ　ＴＨＥＮ　＠Ｅ
  19. ＩＦ　ＯＤＤ％ＰＲＩＭＥ（Ｎ）＝＝０　ＴＨＥＮ　ＮＥＸＴ
  20. Ｎ＝Ｎ＋１
  21. ＧＯＴＯ　＠Ｄ
  22. ＠Ｅ
  23. ＣＯＵＮＴ＝ＣＯＵＮＴ＋１
  24. ＰＲＩＭＥ（ＣＯＵＮＴ）＝ＯＤＤ
  25. Ａ＄＝”，”＋ＳＴＲ＄（ＯＤＤ）
  26. ＩＦ　ＣＳＲＸ＋ＬＥＮ（Ａ＄）＞３２　ＴＨＥＮ　？””：ＧＯＴＯ　＠Ｇ
  27. ？　”，”；ＯＤＤ；：ＮＥＸＴ
  28. ＠Ｇ
  29. ？　ＯＤＤ；：ＮＥＸＴ
  30. ＠Ｉ
  31. ？　””
  32. ？　”コスウ：”；ＣＯＵＮＴ＋１
  33. ＠Ｊ
  34. ？　”А：ケンサク　Б：ハンテイ　Ф：シュウリョウ”
  35. ＠Ｋ
  36. ＰＵＳＨ＝ＢＵＴＴＯＮ（）
  37. ＩＦ　ＰＵＳＨ＝＝１６　ＴＨＥＮ　＠Ｌ
  38. ＩＦ　ＰＵＳＨ＝＝３２　ＴＨＥＮ　＠Ｍ
  39. ＩＦ　ＰＵＳＨ＝＝６４　ＴＨＥＮ　ＥＮＤ
  40. ＧＯＴＯ　＠Ｋ
  41. ＠Ｌ
  42. ＩＮＰＵＴ　”ナンハ゛ンメヲケンサクシマスカ”；Ｑ
  43. ＩＦ　Ｑ＜＝０　ＯＲ　Ｑ＞ＣＯＵＮＴ＋１　ＴＨＥＮ　＠Ｎ
  44. ？　Ｑ；”ハ゛ンメハ　”；ＰＲＩＭＥ（Ｑ−１）；”　テ゛ス”：ＧＯＴＯ　＠Ｊ
  45. ＠Ｎ
  46. ？　”ワカリマセン”
  47. ＧＯＴＯ　＠Ｊ
  48. ＠Ｍ
  49. ＩＮＰＵＴ　”ナニヲハンテイシマスカ”；Ｑ
  50. ＩＦ　Ｑ＜＝０　ＯＲ　Ｑ＞ＬＩＭＩＴ　ＴＨＥＮ　＠Ｎ
  51. ＩＦ　Ｑ＝＝１　ＴＨＥＮ　？　”ソスウテ゛ハアリマセン”：ＧＯＴＯ　＠Ｊ
  52. Ｎ＝０
  53. ＠Ｏ
  54. Ｎ＝Ｎ＋１
  55. ＩＦ　Ｑ％ＰＲＩＭＥ（Ｎ−１）！＝０　ＴＨＥＮ　＠Ｏ
  56. ＩＦ　Ｑ＝＝ＰＲＩＭＥ（Ｎ−１）　ＴＨＥＮ　？　Ｎ；”ハ゛ンメノソスウテ゛ス”：ＧＯＴＯ　＠Ｊ
  57. ？　”ソスウテ゛ハアリマセン”
  58. ？　ＰＲＩＭＥ（Ｎ−１）；”ノハ゛イスウテ゛ス”
  59. ＧＯＴＯ　＠Ｊ

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.233 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:06 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30