プチコンまとめArchive

投稿プログラム : パワーアップ演算ソフト

パンくずリスト

このページの最終更新 : 2022/09/20 (火) 12:44:17
公式アーカイブのリンク:http://wiki.hosiken.jp/petc/html/Toukou/A5-D1-A5-EF-A1-BC-A5-A2-A5-C3-A5-D7-B1-E9-BB-BB-A5-BD-A5-D5-A5-C8-.html

2012年4月18日投稿 / 投稿者 : いったん / タグ : 投稿プログラム ツール QRコード mkII専用

概要

524287を超えた演算をしてくれるプログラムです。

プログラムに組み込んだりして使ってください。

足し算と掛け算しかできませんが、できたら引き算などもこれから載せたいと思います。

バグなどありましたら連絡してください。

更新履歴　

4/22
引き算とマイナスの符号を使えるようにしました。
プログラムリストに追加したところを青、消したところを灰色で書いてあります。
バグがありましたら連絡お願いします。

使い方

最初に演算子を選んでください。その後2つの数字(整数)を打ってください。

解説

筆算のようにして解いています。なのでケタ数が多いと時間がかかります。

QR コード

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

バージョン１

PRG:OPRTION
1/22/2
qr0.PNGqr1.PNG

バージョン２　引き算と符号の認識ができるようになりました。
バージョン１と同じ名前なので上書き保存してください。

PRG:OPRTION
1/22/2
qr0_2.PNGqr1_2.PNG

プログラムリスト

  1. ’Ｐｏｗｅｒ　ｕｐ　エンサ゛ンソフト　ｂｙ　ｉｔｔａｎ
  2. ’－ＬＯＧ－
  3. ’２０１２／０４／１９　ヒキサ゛ン　ツイカ
  4. ’２０１２／０４／２２　フコ゛ウ　テキヨウ
  6. ＶＩＳＩＢＬＥ　１，１，０，０，０，０
  7. ＣＬＥＡＲ：ＣＬＳ
  9. ’ヘンスウテイキ゛
  10. ＬＭＡＸ＝３０
  11. ＤＩＭ　Ｋ＄（ＬＭＡＸ）
  12. ＡＮＳ＄＝””
  13. Ｌ１＝０：Ｌ２＝０：Ｌ３＝０：Ｌ４＝０
  14. Ａ＄＝””：Ｂ＄＝””：Ｃ＄＝””：Ｄ＄＝””
  15. Ａ＝０：Ｂ＝０：Ｃ＝０：Ｅ＝０：Ｆ＝０：Ｇ＝０
  16. ＭＡ＝０：ＭＢ＝０
  17. ＠ＰＵＴ
  18. ？”カケサ゛ン→０＊
  19. ？”タシサ゛ン→１＋
  20. ？”ヒキサ゛ン→－
  21. ＩＮＰＵＴ”エンサ゛ンシハ”；Ｃ＄
  22. Ｇ＝ＩＮＳＴＲ（”＊＋－”，Ｃ＄）
  23. ＩＮＰＵＴ”ハシ゛メノスウシ゛ハ”；Ａ＄
  24. ＩＮＰＵＴ”ツキ゛ノスウシ゛ハ”；Ｂ＄
  25. ＧＯＳＵＢ　＠ＣＨＫＭＩＮＵＳ
  26. ＭＡＸ１＝ＬＥＮ（Ａ＄）
  27. ＭＡＸ２＝ＬＥＮ（Ｂ＄）
  28. ＩＦ　Ｇ＝＝１　ＯＲ　Ｇ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ＠ＣＨＫＴＡＳＩ
  29. ＯＮ　ＣＧ　ＧＯＴＯ　＠ＫＡＫＥ，＠ＴＡＳＩ
  30. ＧＯＴＯ＠ＰＵＴ
  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. 　Ｌ１＝０：Ｌ２＝０：Ｌ３＝０：Ｌ４＝０
  60. 　Ｌ１＝Ａ％１０＋ＶＡＬ（ＭＩＤ＄（ＡＮＳ＄，Ｉ，１））
  61. 　ＩＦ　Ｌ１＞９　ＴＨＥＮ　Ｌ１＝Ｌ１％１０：Ｌ２＝Ｌ２＋１
  62. 　Ｌ２＝Ｌ２＋（Ａ－Ａ％１０）／１０
  63. 　Ｌ２＝Ｌ２＋ＶＡＬ（ＭＩＤ＄（ＡＮＳ＄，Ｉ＋１，１））
  64. 　ＩＦ　Ｌ２＞９　ＴＨＥＮ　Ｌ２＝Ｌ２％１０：Ｌ３＝Ｌ３＋１
  65. 　Ｌ３＝Ｌ３＋（Ａ－Ａ％１００）／１００
  66. 　Ｃ＄＝ＳＴＲ＄（Ｌ１）＋ＳＴＲ＄（Ｌ２）＋ＳＴＲ＄（Ｌ３）
  67. 　ＡＮＳ＄＝ＭＩＤ＄（ＡＮＳ＄，０，Ｉ）＋Ｃ＄
  68. ＮＥＸＴ
  69. Ｈ＄＝ＡＮＳ＄：ＡＮＳ＄＝””
  70. Ｌ４＝ＬＥＮ（Ｈ＄）
  71. ＦＯＲ　Ｉ＝１　ＴＯ　Ｌ４
  72. 　ＡＮＳ＄＝ＡＮＳ＄＋ＭＩＤ＄（Ｈ＄，Ｌ４－Ｉ，１）
  73. ＮＥＸＴ
  74. ＠Ａ
  75. ＩＦ　ＭＩＤ＄（ＡＮＳ＄，０，１）＝＝”０”　ＴＨＥＮ　ＡＮＳ＄＝ＭＩＤ＄（ＡＮＳ＄，１，ＬＥＮ（ＡＮＳ＄）－１）：ＧＯＴＯ＠Ａ
  76. ＩＦ　ＡＮＳ＄＝＝””　ＴＨＥＮ　ＡＮＳ＄＝”０”
  77. ＩＦ　ＭＡ！＝ＭＢ　ＴＨＥＮ　ＡＮＳ＄＝”－”＋ＡＮＳ＄
  78. ？ＡＮＳ＄
  79. ＧＯＴＯ＠ＰＵＴ
  82. ＠ＴＡＳＩ
  83. Ａ＝ＭＡＸ１
  84. Ｃ＄＝””
  85. ＩＦ　Ａ＜ＭＡＸ２　ＴＨＥＮ　Ａ＝ＭＡＸ２
  86. Ａ＄＝ＲＩＧＨＴ＄（”０”＊３２＋Ａ＄，Ａ）
  87. Ｂ＄＝ＲＩＧＨＴ＄（”０”＊３２＋Ｂ＄，Ａ）
  88. ＦＯＲ　Ｉ＝Ａ　ＴＯ　１　ＳＴＥＰ　－１
  89. 　Ａ＝ＶＡＬ（ＭＩＤ＄（Ａ＄，Ｉ－１，１））
  90. 　Ｂ＝ＶＡＬ（ＭＩＤ＄（Ｂ＄，Ｉ－１，１））
  91. 　Ｅ＝ＶＡＬ（ＬＥＦＴ＄（Ｃ＄，１））
  92. 　Ｃ＝Ａ＋Ｂ＋Ｅ
  93. 　Ｄ＄＝ＲＩＧＨＴ＄（”０”＋ＳＴＲ＄（Ｃ），２）
  94. 　Ｃ＄＝Ｄ＄＋ＲＩＧＨＴ＄（Ｃ＄，ＬＥＮ（Ｃ＄）－１＋（Ｃ＄＝＝””））
  95. ＮＥＸＴ
  96. ＡＮＳ＄＝Ｃ＄
  97. ＠Ｂ
  98. ＩＦ　ＬＥＦＴ＄（ＡＮＳ＄，１）＝＝”０”　ＴＨＥＮ　ＡＮＳ＄＝ＲＩＧＨＴ＄（ＡＮＳ＄，ＬＥＮ（ＡＮＳ＄）－１）：ＧＯＴＯ＠Ｂ
  99. ＩＦ　ＭＡ＝＝１　ＡＮＤ　ＭＢ＝＝１　ＴＨＥＮ　ＡＮＳ＄＝”－”＋ＡＮＳ＄
  100. ？ＡＮＳ＄
  101. ＧＯＴＯ＠ＰＵＴ
  104. ＠ＨＩＫＩ
  106. Ａ＝ＭＡＸ１
  107. Ｃ＄＝Ａ＄：ＡＮＳ＄＝””
  108. ＩＦ　Ａ＜ＭＡＸ２　ＴＨＥＮ　Ａ＝ＭＡＸ２
  109. Ａ＄＝ＲＩＧＨＴ＄（”０”＊（ＬＭＡＸ－ＭＡＸ１）＋Ａ＄，Ａ）
  110. Ｂ＄＝ＲＩＧＨＴ＄（”０”＊（ＬＭＡＸ－ＭＡＸ２）＋Ｂ＄，Ａ）
  111. ＦＯＲ　Ｉ＝Ａ　ＴＯ　１　ＳＴＥＰ　－１
  112. 　Ａ＝ＶＡＬ（ＭＩＤ＄（Ａ＄，Ｉ－１，１））
  113. 　Ｂ＝ＶＡＬ（ＭＩＤ＄（Ｂ＄，Ｉ－１，１））
  114. 　Ｃ＝Ａ－Ｂ
  115. 　ＩＦ　Ｃ＜０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＫＵＲＩＳＡＧＡＲＩ
  116. 　ＡＮＳ＄＝ＳＴＲ＄（Ｃ）＋ＡＮＳ＄
  117. ＮＥＸＴ
  118. ＩＦ　Ｆ＝＝ＴＲＵＥ　ＴＨＥＮ　Ｆ＝ＦＡＬＳＥ：Ｇ＝ＴＲＵＥ：ＧＯＴＯ＠ＨＩＫＩ
  119. ＠Ｃ
  120. ＩＦ　ＬＥＦＴ＄（ＡＮＳ＄，１）＝＝”０”　ＴＨＥＮ　ＡＮＳ＄＝ＲＩＧＨＴ＄（ＡＮＳ＄，ＬＥＮ（ＡＮＳ＄）－１）：ＧＯＴＯ＠Ｃ
  121. ＩＦ　ＡＮＳ＄＝＝””　ＴＨＥＮ　ＡＮＳ＄＝”０”
  122. ＩＦ　Ｇ＝＝ＴＲＵＥ　ＴＨＥＮ　ＡＮＳ＄＝”－”＋ＡＮＳ＄：Ｇ＝０
  123. ？ＡＮＳ＄
  124. ＧＯＴＯ＠ＰＵＴ
  126. ＠ＫＵＲＩＳＡＧＡＲＩ
  127. Ｌ＝Ｉ－１
  128. ＩＦ　Ｌ＝＝０　ＴＨＥＮ　Ｆ＝ＴＲＵＥ：ＧＯＴＯ＠ＦＴＲＵＥ
  129. Ｆ＝ＦＡＬＳＥ
  130. ＠ＫＬＯＯＰ
  131. Ｄ＝ＶＡＬ（ＭＩＤ＄（Ａ＄，Ｌ－１，１））
  132. ＩＦ　Ｄ！＝０　ＴＨＥＮ　Ａ＄＝ＳＵＢＳＴ＄（Ａ＄，Ｌ－１，１，ＳＴＲ＄（Ｄ－１））：ＧＯＴＯ＠ＥＸＩＴ
  133. Ａ＄＝ＳＵＢＳＴ＄（Ａ＄，Ｌ－１，１，”９”）
  134. ＩＦ　Ｌ＝＝１　ＴＨＥＮ　Ｆ＝ＴＲＵＥ：ＧＯＴＯ＠ＦＴＲＵＥ
  135. Ｌ＝Ｌ－１
  136. ＧＯＴＯ＠ＫＬＯＯＰ
  137. ＠ＦＴＲＵＥ
  138. Ｉ＝０
  139. Ａ＄＝Ｂ＄
  140. Ｂ＄＝Ｃ＄
  141. ＳＷＡＰ　ＭＡＸ１，ＭＡＸ２
  142. ＠ＥＸＩＴ
  143. Ａ＝Ａ＋１０
  144. Ｃ＝Ａ－Ｂ
  145. ＲＥＴＵＲＮ
  147. ＠ＣＨＫＭＩＮＵＳ
  148. Ｃ＝ＣＡＮＣＥＬ：Ｄ＝ＣＡＮＣＥＬ
  149. Ｃ＄＝ＬＥＦＴ＄（Ａ＄，１）
  150. Ｄ＄＝ＬＥＦＴ＄（Ｂ＄，１）
  151. Ｃ＝ＩＮＳＴＲ（”＋－”，Ｃ＄）
  152. Ｄ＝ＩＮＳＴＲ（”＋－”，Ｄ＄）
  153. ＭＡ＝（Ｃ＝＝１）
  154. ＭＢ＝（Ｄ＝＝１）
  155. ＩＦ　Ｃ＝＝－１　ＡＮＤ　Ｄ＝＝－１　ＴＨＥＮ　ＲＥＴＵＲＮ
  156. Ａ＄＝ＲＩＧＨＴ＄（Ａ＄，ＬＥＮ（Ａ＄）－（Ｃ＞＝０））
  157. Ｂ＄＝ＲＩＧＨＴ＄（Ｂ＄，ＬＥＮ（Ｂ＄）－（Ｄ＞＝０））
  158. ＲＥＴＵＲＮ
  160. ＠ＣＨＫＴＡＳＩ
  161. ＩＦ　Ｇ＝＝２　ＴＨＥＮ　ＭＢ＝！ＭＢ
  162. ＩＦ　ＭＡ＝＝ＭＢ　ＴＨＥＮ　Ｇ＝１：ＲＥＴＵＲＮ
  163. ＩＦ　ＭＢ＝＝１　ＴＨＥＮ　Ｇ＝２：ＭＢ＝０：ＲＥＴＵＲＮ
  164. ＳＷＡＰ　Ａ＄，Ｂ＄
  165. ＳＷＡＰ　ＭＡＸ１，ＭＡＸ２
  166. ＭＡ＝０
  167. Ｇ＝２
  168. ＲＥＴＵＲＮ

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

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

  • 名無しさん : いつかこういうプログラムを作ろうと思ってたら先を越されたw (2012/04/18 (水) 15:49:16)
  • hatena : 表がおかしいので直しましたよ。 (2012/04/18 (水) 20:24:10)
  • 名無しさん : ９が３２個＊９が３２個＝SUBSCRIPT　OUT　OF　RANGE（２６） (2012/04/19 (木) 16:48:26)
  • 名無しさん : これって多倍長演算？ (2012/04/19 (木) 18:56:20)
  • 投稿者 : ↑↑ＬＭＡＸのところを大きくすればできますよ。 (2012/04/20 (金) 17:59:59)
  • 名無しさん : ↑ありがとうございます！&dasic} (2012/05/19 (土) 15:10:13)
  • 名無しさん : ｓａｎｋｙｏｕ　アリカ゛トウ！ (2012/05/19 (土) 15:10:53)
  • 名無しさん : ＳＡＮＫ　ＹＯＵ　アリカ゛トウコ゛サ゛イマス。 (2012/05/19 (土) 15:12:02)
  • 名無しさん : Thank you では? (2012/05/19 (土) 18:44:22)
  • 名無しさん : おっ良いのハケーン (2012/05/19 (土) 18:48:47)