[新企画]Poke-Pro

新企画Poke-Proでは、ポケコンで作成したプログラムを投稿していく企画です。シリーズとなります。BASIC言語に軸を置き、気まぐれでC言語にも触れていきます。

はじめに

こんにちは、bockringです。シリーズ投稿の2本目は、対数関数を拡張します。

まず目標です。以下の点を実装します。

逆に妥協点は、

です。これらを踏まえて実装します。

今回もBASICで作成します。1行コードなので、:を多用します。

logab.TXT

10 CLS :PRINT "[logab(a,b) Calc]":PRINT "Input a(Base)":INPUT "[A]",A:PRINT "Input b":INPUT "[B]",B:PRINT "logab=",(LN B)/( LN A)

この様になります。これを通常のコードに噛み砕くと、以下の様になります。

logab.TXT

10 CLS 
20 PRINT "[logab(a,b) Calc]"
30 PRINT "Input a(Base)"
40 INPUT "[A]",A
50 PRINT "Input b"
60 INPUT "[B]",B
70 PRINT "logab=",(LN B)/( LN A)

このようになります。非常に単純なコードですが、これで毎回公式に当てはめて入力する必要がなくなります。

実行結果は以下の様になります。

Shell

[logab(a,b) Calc]
Input a(Base)
5
Input b
3
logab=6.82606E-01
>

最終の桁数が物足りないですが、ANSレジスタに保存されているので、実行画面でANSキーを押すとフルの桁数の解が呼び出されます。この場合、6.826061945E-01です。

といったところです。満足いってます。

なかなか上手くいったと思います。これだけで対数が出せるなら使うと思います。

シリーズ記事の一覧