プチコンまとめArchive

投稿プログラム : 電卓

パンくずリスト

このページの最終更新 : 2022/09/20 (火) 12:44:08
公式アーカイブのリンク:http://wiki.hosiken.jp/petc/html/Toukou/C5-C5-C2-EE-.html

2012年01月22日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム

概要

再帰下降構文解析で中置記法の式を計算する電卓です。
今のままなら正直BASICで計算したほうが早いので、後でUI工夫します。

演算子一覧

演算子演算内容優先順位結合性備考
()括弧1-
!階乗2-連続で使用した場合の動作は保証されない(例:5!!)
単項+正の符号3右結合
単項-負の符号3右結合
^累乗4右結合精度に不安あり
*乗算5左結合
/除算5左結合
%剰余5左結合
+加算6左結合
-減算6左結合

変数一覧

変数名内容
E自然対数の底
PI円周率
X式を関数に見立てた時の独立変数
ANS直前の計算結果

関数一覧

関数名書式引数戻り値
SINSIN(角度)弧度法による角度引数の正弦
COSCOS(角度)弧度法による角度引数の余弦
TANTAN(角度)弧度法による角度引数の正接
LNLN(数値)自然対数を求める正の数引数の自然対数
LOGLOG(数値)常用対数を求める正の数引数の常用対数
EXPEXP(数値)指数値を求める数値引数の指数
RADRAD(角度)角度値引数を度数法から弧度法に直したもの
DEGDEG(角度)角度値引数を弧度法から度数法に直したもの
ASINASIN(正弦)正弦の値引数のアークサイン
ACOSACOS(余弦)余弦の値引数のアークコサイン
ATANATAN(正接)正接の値引数のアークタンジェント
SQRTSQRT(数値)負の数でない値引数の平方根
SUMSUM(初期値,終値,式)初期値,終値,式Xを初期値から終値まで1ごとに変化させた時の総和

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

スクリーンショット等はありません

プログラムリスト

  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. 　ＩＦ　ＮＡＭＥ＄＝＝”Ｅ”　　　　ＴＨＥＮ　ＳＴＫ（ＳＰ－１）＝ＥＸＰ（１）
  60. 　ＩＦ　ＮＡＭＥ＄＝＝”Ｘ”　　　　ＴＨＥＮ　ＳＴＫ（ＳＰ－１）＝Ｘ
  61. 　ＩＦ　ＮＡＭＥ＄＝＝”ＡＮＳ”　　ＴＨＥＮ　ＳＴＫ（ＳＰ－１）＝ＡＮＳ
  62. 　ＩＦ　ＮＡＭＥ＄＝＝”ＲＡＤ”　　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＲＭ：ＳＴＫ（ＳＰ－１）＝ＳＴＫ（ＳＰ）＊ＰＩ（）／１８０
  63. 　ＩＦ　ＮＡＭＥ＄＝＝”ＤＥＧ”　　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＲＭ：ＳＴＫ（ＳＰ－１）＝ＳＴＫ（ＳＰ）＊１８０／ＰＩ（）
  64. 　ＩＦ　ＮＡＭＥ＄＝＝”ＳＩＮ”　　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＲＭ：ＳＴＫ（ＳＰ－１）＝ＳＩＮ（ＳＴＫ（ＳＰ））
  65. 　ＩＦ　ＮＡＭＥ＄＝＝”ＣＯＳ”　　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＲＭ：ＳＴＫ（ＳＰ－１）＝ＣＯＳ（ＳＴＫ（ＳＰ））
  66. 　ＩＦ　ＮＡＭＥ＄＝＝”ＴＡＮ”　　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＲＭ：ＳＴＫ（ＳＰ－１）＝ＴＡＮ（ＳＴＫ（ＳＰ））
  67. 　ＩＦ　ＮＡＭＥ＄＝＝”ＬＮ”　　　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＲＭ：ＳＴＫ（ＳＰ－１）＝ＬＯＧ（ＳＴＫ（ＳＰ））
  68. 　ＩＦ　ＮＡＭＥ＄＝＝”ＬＯＧ”　　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＲＭ：ＳＴＫ（ＳＰ－１）＝ＬＯＧ（ＳＴＫ（ＳＰ））／ＬＯＧ（１０）
  69. 　ＩＦ　ＮＡＭＥ＄＝＝”ＥＸＰ”　　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＲＭ：ＳＴＫ（ＳＰ－１）＝ＥＸＰ（ＳＴＫ（ＳＰ））
  70. 　ＩＦ　ＮＡＭＥ＄＝＝”ＡＳＩＮ”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＲＭ：ＳＴＫ（ＳＰ－１）＝ＡＴＡＮ（ＳＴＫ（ＳＰ），ＳＱＲ（１－ＳＴＫ（ＳＰ）＊ＳＴＫ（ＳＰ）））
  71. 　ＩＦ　ＮＡＭＥ＄＝＝”ＡＣＯＳ”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＲＭ：ＳＴＫ（ＳＰ－１）＝ＡＴＡＮ（ＳＱＲ（１－ＳＴＫ（ＳＰ）＊ＳＴＫ（ＳＰ）），ＳＴＫ（ＳＰ））
  72. 　ＩＦ　ＮＡＭＥ＄＝＝”ＡＴＡＮ”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＲＭ：ＳＴＫ（ＳＰ－１）＝ＡＴＡＮ（ＳＴＫ（ＳＰ））
  73. 　ＩＦ　ＮＡＭＥ＄＝＝”ＳＱＲＴ”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＲＭ：ＳＴＫ（ＳＰ－１）＝ＳＱＲ（ＳＴＫ（ＳＰ））
  74. 　ＩＦ　ＮＡＭＥ＄＝＝”ＳＵＭ”　　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＵＭ：ＳＴＫ（ＳＰ－１）＝ＳＴＫ（ＳＰ）
  75. 　ＩＦ　Ｃ＄＝＝”（”　ＴＨＥＮ　Ｐ＝Ｐ＋１：ＧＯＳＵＢ　＠ＥＶＡＬ：ＳＴＫ（ＳＰ－１）＝ＳＴＫ（ＳＰ）：Ｐ＝Ｐ＋１
  76. 　ＧＯＳＵＢ　＠ＳＫＩＰ
  77. 　ＩＦ　Ｃ＄＝＝”！”　ＴＨＥＮ　Ｐ＝Ｐ＋１：ＧＯＳＵＢ　＠ＫＡＩＪＯ
  78. 　ＧＯＳＵＢ　＠ＳＫＩＰ：ＳＰ＝ＳＰ－１
  79. 　ＲＥＴＵＲＮ
  80. ’－－－スウチ
  81. ＠ＳＴＲ２Ｄ
  82. 　Ｑ＝Ｐ
  83. 　ＦＯＲ　Ｉ＝０　ＴＯ　１
  84. 　　Ｉ＝１
  85. 　　Ｃ＄　＝　ＭＩＤ＄（ＥＸＰＲ＄，Ｐ，１）
  86. 　　ＦＯＲ　Ｊ＝０　ＴＯ　１０
  87. 　　　ＩＦ　Ｃ＄＝＝ＭＩＤ＄（ＮＵＭ＄，　Ｊ，　１）　ＴＨＥＮ　Ｐ＝Ｐ＋１：Ｉ＝０
  88. 　　ＮＥＸＴ
  89. 　ＮＥＸＴ
  90. 　ＩＦ　Ｐ＞Ｑ　ＴＨＥＮ　ＳＴＫ（ＳＰ－１）＝ＶＡＬ（ＭＩＤ＄（ＥＸＰＲ＄，Ｑ，Ｐ－Ｑ））
  91. 　ＲＥＴＵＲＮ
  92. ’－－－カンスウメイ
  93. ＠ＧＥＴＮ
  94. 　Ｑ＝Ｐ
  95. 　ＦＯＲ　Ｉ＝０　ＴＯ　１
  96. 　　Ｉ＝１
  97. 　　Ｃ＄＝ＭＩＤ＄（ＥＸＰＲ＄，Ｐ，１）
  98. 　　ＦＯＲ　Ｊ＝０　ＴＯ　２５
  99. 　　　ＩＦ　Ｃ＄＝＝ＭＩＤ＄（ＡＬＰ＄，Ｊ，１）　ＴＨＥＮ　Ｐ＝Ｐ＋１：Ｉ＝０
  100. 　　ＮＥＸＴ
  101. 　ＮＥＸＴ
  102. 　ＮＡＭＥ＄＝ＭＩＤ＄（ＥＸＰＲ＄，Ｑ，Ｐ－Ｑ）
  103. 　ＲＥＴＵＲＮ
  104. ’－－－カイシ゛ョウ
  105. ＠ＫＡＩＪＯ
  106. 　Ｑ＝１
  107. 　ＦＯＲ　Ｉ＝１　ＴＯ　ＳＴＫ（ＳＰ－１）
  108. 　　Ｑ＝Ｑ＊Ｉ
  109. 　ＮＥＸＴ
  110. 　ＳＴＫ（ＳＰ－１）＝Ｑ
  111. 　ＲＥＴＵＲＮ
  112. ’－－－ソウワ
  113. ＠ＳＵＭ
  114. 　ＳＰ＝ＳＰ＋５：Ｐ＝Ｐ＋１
  115. 　ＳＴＫ（ＳＰ－１）＝Ｘ
  116. 　ＧＯＳＵＢ　＠ＥＶＡＬ：Ｐ＝Ｐ＋１
  117. 　ＳＴＫ（ＳＰ－２）＝ＳＴＫ（ＳＰ）
  118. 　ＧＯＳＵＢ　＠ＥＶＡＬ：Ｐ＝Ｐ＋１
  119. 　ＳＴＫ（ＳＰ－３）＝ＳＴＫ（ＳＰ）
  120. 　ＳＴＫ（ＳＰ－４）＝Ｐ
  121. 　ＳＴＫ（ＳＰ－５）＝０
  122. 　ＦＯＲ　Ｘ＝ＳＴＫ（ＳＰ－２）　ＴＯ　ＳＴＫ（ＳＰ－３）
  123. 　　Ｐ＝ＳＴＫ（ＳＰ－４）
  124. 　　ＧＯＳＵＢ　＠ＥＶＡＬ
  125. 　　ＳＴＫ（ＳＰ－５）＝ＳＴＫ（ＳＰ－５）＋ＳＴＫ（ＳＰ）
  126. 　ＮＥＸＴ
  127. 　Ｘ＝ＳＴＫ（ＳＰ－１）
  128. 　Ｐ＝Ｐ＋１：ＳＰ＝ＳＰ－５
  129. 　ＲＥＴＵＲＮ
  130. ’－－－クウハクヲノソ゛ク
  131. ＠ＳＫＩＰ
  132. 　Ｃ＄＝ＭＩＤ＄（ＥＸＰＲ＄，Ｐ，１）
  133. 　ＩＦ　Ｃ＄＝＝”　”　ＴＨＥＮ　Ｐ＝Ｐ＋１：ＧＯＴＯ　＠ＳＫＩＰ
  134. 　ＲＥＴＵＲＮ

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

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

  • 投稿者 : 最近プチコンの存在を知り、衝動買いした挙句このようなものまで書いてしまいました。 (2012/01/22 (日) 18:24:49)
  • 投稿者 : 至らない点もあると思いますが、どうかご指摘ください。 (2012/01/22 (日) 18:25:45)
  • 名無しさん : サンプルプログラム3のコメントにもありますが、FOR-NEXTの途中からGOTOで抜けると内部メモリが減るので、避けたほうが無難だと思います。 (2012/01/25 (水) 05:34:24)
  • まりお : 最新版なら内部メモリは、減らないよ！！ (2012/01/25 (水) 10:20:55)
  • 名無しさん : FORのみの入れ子は255段までみたいね (2012/01/25 (水) 12:34:59)
  • 名無しさん : 最新版でもプログラム実行前に内部メモリをクリアするようになっただけで、内部メモリが減ること自体は変わっていません。そのため、プログラムを終了せずに何度も入力を繰り返すようにこのプログラムを改造すると、いずれOut of memoryで実行が止まります。 (2012/01/25 (水) 22:21:26)
  • 投稿者 : ご指摘ありがとうございます。FOR文中でGOTOしないように修正しました。 (2012/01/26 (木) 00:26:31)
  • まりお : そーっだったのか！初心者なので鵜呑みにしてしまった。名無しさんありがとうございました。修正するまえでよっかった・・・ (2012/01/26 (木) 16:33:01)
  • 名無しさん : いくつか指摘。1. %が計算できない(26行目で%の判定が抜けてる) 2. 83行目と86行目のIとJが逆では? 3. 単項+,-が計算できない(48行目のGOSUB @STR2Dで0クリアされてる) 4. 累乗^は右結合では? (2012/01/28 (土) 09:07:17)
  • 名無しさん : 現状だとASIN(1)やACOS(0)がエラーになってしまうので、ATANの2引数バージョンを使ってみてはいかがでしょうか。(59行目と60行目の'/'を','に書き換える) (2012/01/29 (日) 07:28:00)
  • 投稿者 : ご指摘ありがとうございます。ご指摘の点を修正しました。 (2012/01/29 (日) 16:56:53)
  • カイ : 配列変数が範囲外と出ます どうしたらいいですか (2012/03/05 (月) 21:27:28)
  • カイ : 配列変数が範囲外(85)と出ますどうしたらいいでしょうか (2012/03/05 (月) 21:41:16)
  • 桜 : subscript out of range(85)と出るのですがどうしたらいいですか。誰か教えて～ (2012/03/08 (木) 17:23:14)
  • 3.141592･･･ : QRコード載せて下さい (2012/12/22 (土) 15:55:19)
  • 名無しさん : そんなあなたにリンク集 (2012/12/22 (土) 21:43:45)
  • Topaz : 便利ですね。今作っているソフトに利用させていただいてもよろしいでしょうか。 (2013/01/04 (金) 15:14:25)
  • 天郷思音 : タッチ入力で使えるように改造した版のQR http://f.hatena.ne.jp/ken10ken/20130513140510 (2013/05/13 (月) 14:07:36)
  • がんばる卓球部 : ↑この改造版をBASICOSに使わせていただきたいのですが、、、 (2013/09/09 (月) 23:18:55)
  • 天郷思音 : ↑私としてはOKです。
    　　　　　　　　その改造版が動画「プチコンマガジン」に乗るのでこのページでその旨を投稿者さんへ報告させていただきます。 (2014/11/12 (水) 16:11:49)