割り算を作りました。
共通処理
Ｌ小数の商とは （Ｌ小数、Ｌ小数、小数桁数、端数処理 → Ｌ小数 ）
小数Ａは 構造体情報
小数Ｂは 構造体情報
精度は 変数
端数処理区分は 変数
整数Ａは 構造体 Ｌ小数型
整数Ｂは 構造体 Ｌ小数型
小数桁数Ａは 変数
小数桁数Ｂは 変数
小数桁数は 変数
分子の桁上げは 変数
Ｗ商は 構造体 Ｌ小数型
Ｗ余りは 構造体 Ｌ小数型
小数Ａと 小数Ｂと 精度と 端数処理区分に 入れる
精度が ０より 小さい
ならば ０を 精度に 入れる
つぎに
小数Ａの Ｌ小数桁数を 小数桁数Ａに 入れる
小数Ｂの Ｌ小数桁数を 小数桁数Ｂに 入れる
ＭＡＸ（小数桁数Ａ,小数桁数Ｂ）を 小数桁数に 入れる
小数桁数に 精度を 加え 分子の桁上げに 入れる
小数Ａを 分子の桁上げ Ｌ小数を指定桁桁上げし 整数Ａに 入れる
小数Ｂを 小数桁数だけ Ｌ小数を指定桁桁上げし 整数Ｂに 入れる
整数Ａの Ｌ符号に １を 入れる
整数Ｂの Ｌ符号に １を 入れる
整数Ａと 整数Ｂの Ｌ正数の商と余りを Ｗ商と Ｗ余りに 入れる
端数処理区分が １と 等しい
ならば ※ 四捨五入
Ｗ余りの Ｌ整数の二倍と 整数Ｂを Ｌ整数の大小比較し ０ 以上
ならば Ｗ商と Ｌ正整数に一加算結果を Ｗ商に 入れる
つぎに
さもなければ
端数処理区分が ２と 等しい
ならば ※ 切り上げ
Ｗ余りと Ｌゼロを Ｌ整数の大小比較し １ 以上
ならば Ｗ商と Ｌ正整数に一加算結果を Ｗ商に 入れる
つぎに
つぎに
つぎに
小数Ａの Ｌ符号に 小数Ｂの Ｌ符号を 掛けて Ｗ商の Ｌ符号に 入れる
Ｗ商を 精度だけ Ｌ小数を指定桁桁下げし 返す。
切り捨て、四捨五入、切り上げ
Ｌ桁未満切り捨てた商とは （Ｌ小数、Ｌ小数、小数桁数 → Ｌ小数 ）
０の Ｌ小数の商を 返す。
Ｌ桁未満四捨五入した商とは （Ｌ小数、Ｌ小数、小数桁数 → Ｌ小数 ）
１の Ｌ小数の商を 返す。
Ｌ桁未満切り上げした商とは （Ｌ小数、Ｌ小数、小数桁数 → Ｌ小数 ）
２の Ｌ小数の商を 返す。
テスト
Ｌ小数１は 構造体 Ｌ小数型。
Ｌ小数２は 構造体 Ｌ小数型。
Ｌ小数６は 構造体 Ｌ小数型。
メインは （ ・ －－＞ ・ ）
Ｗ文字列は 文字列実体
「２つの小数の割り算をします。（空入力で終了）」と 表示し 改行し
ここから
「小数１＝」と 表示し
文字列入力し Ｗ文字列に 入れる
Ｗ文字列が 空列？
ならば 打ち切り
つぎに
Ｗ文字列を Ｌ小数変換し Ｌ小数１に 入れる
「小数２＝」と 表示し
文字列入力し Ｗ文字列に 入れる
Ｗ文字列を Ｌ小数変換し Ｌ小数２に 入れる
Ｌ小数１と Ｌ小数２の ４桁 Ｌ桁未満切り捨てた商を Ｌ小数６に 入れる
「切り捨て商＝」と 表示し Ｌ小数６を Ｌ小数文字列変換し 表示し
Ｌ小数１と Ｌ小数２の ４桁 Ｌ桁未満四捨五入した商を Ｌ小数６に 入れる
「四捨五入商＝」と 表示し Ｌ小数６を Ｌ小数文字列変換し 表示し
Ｌ小数１と Ｌ小数２の ４桁 Ｌ桁未満切り上げした商を Ｌ小数６に 入れる
「切り上げ商＝」と 表示し Ｌ小数６を Ｌ小数文字列変換し 表示し
改行する
繰り返す。
実行結果
c:\mind8\pmind\sample>lnum-sub03
２つの小数の割り算をします。（空入力で終了）
小数１＝100
小数２＝3
切り捨て商＝+33.3333四捨五入商＝+33.3333切り上げ商＝+33.3334
小数１＝200
小数２＝3
切り捨て商＝+66.6666四捨五入商＝+66.6667切り上げ商＝+66.6667
小数１＝123.456
小数２＝111.111
切り捨て商＝+1.1111四捨五入商＝+1.1111切り上げ商＝+1.1112
小数１＝8
小数２＝5
切り捨て商＝+1.6000四捨五入商＝+1.6000切り上げ商＝+1.6000
小数１＝8
小数２＝9
切り捨て商＝+0.8888四捨五入商＝+0.8889切り上げ商＝+0.8889
小数１＝123456789
小数２＝11111
切り捨て商＝+11111.2221四捨五入商＝+11111.2221切り上げ商＝+11111.2222