円周率をしゃべるプログラムを公開されている方がいたので、1000桁まで計算で求めて、しゃべるプログラムを作ってみました。公開キー「N43XA3N4」計算プログラムは、ネット上に公開されているプログラムを移植した物です。真面目にデバッグしていないので、計算結果に間違えが有るかも知れませんが。(^◇^;) アップした物はしゃべることを考えて、1000桁で制限していますが、入力チェックの制限を変えれば、時間は凄く掛かりますが、10000桁以上でも求められます。

73行目にコーディングミスがありました。 動作には支障ないので、そのままにしておきます。 誤）TALK ANS$ 正）TALK DIGIT$ 一時、ユーザ定義命令をサブルーチンにしようと思って変更して、やっぱりやめたのが、そのままになっていました。

おお！似たようなの私もやりましたが、真面目に計算で求めるバージョンを作られたのですね！(^O^)

4桁毎のデータで最初が0のデータの場合、0をしゃべらないバグがあったので修正しました。公開キー「8AE4Q33J」