日本語プログラミング言語mind8で多倍長数計算（機能追加）

切り捨て、切り上げ、四捨五入を実装

プログラム全体は、mind会議室 のデータライブラリをご覧ください。
小数点以下の指定桁で処理する場合のみです。（千など整数部での処理は未）

プログラムの一部

Ｋ最下位桁に一加算とは　（Ｋ小数　→　）
※副作用
　　　　小数情報Ａは　構造体情報
		桁数Ａは　ワード変数
	小数情報Ａに　入れる
	小数情報Ａの Ｋ桁数　回数指定し
		小数情報Ａの　Ｋ数字（回数）が　９と　等しい
			ならば　小数情報Ａの　Ｋ数字（回数）を　クリアし
			さもなければ
					小数情報Ａの　Ｋ数字（回数）を　一つ増加し
					終わり
			つぎに
	繰り返す
	小数情報Ａの Ｋ桁数を　一つ増加し
	小数情報Ａの Ｋ桁数を　桁数Ａに　入れる
　　１を　小数情報Ａの　Ｋ数字（桁数Ａ）に　入れる。

Ｋ小数桁数指定処理とは　（Ｋ小数、非負整数、処理区分→小数Ｗ）
		小数情報Ａは　構造体情報
		小数桁数は　変数
		処理区分は　変数	※０：切り捨て、１：四捨五入、２：切り上げ
		桁数Ａは　変数
		小数桁数Ａは　変数
		桁数は　変数
		減少桁数は　変数
		桁１は　変数
		切り上げは　変数
	小数情報Ａと　小数桁数と　処理区分に　入れる
	小数情報Ａの　Ｋ桁数を　桁数Ａに　入れる
	小数情報Ａの　Ｋ小数桁数を　小数桁数Ａに　入れる
	[減少桁数　:= 小数桁数Ａ - 小数桁数]
	減少桁数が　０　以下
		ならば　小数情報Ａを　返し　終わり
		つぎに	
	切り上げを　クリアする
	処理区分が　１と　等しい　※四捨五入
	かつ
	小数情報Ａの　Ｋ数字（減少桁数）が　５　以上
		ならば　切り上げを　セットし
		つぎに	
	処理区分が　２と　等しい　※切り上げ
		ならば	減少桁数　回数指定し
					小数情報Ａの　Ｋ数字（回数）
						ならば　切り上げを　セットし　打ち切り
						つぎに
				繰り返す
		つぎに
	小数情報Ａの　Ｋ符号を　小数Ｗの　Ｋ符号に　入れる　
	[桁数　:= 桁数Ａ - 　減少桁数]
　　[小数桁数　:= 小数桁数Ａ - 　減少桁数]　
	桁数を　小数Ｗの　Ｋ桁数に　入れる
	小数桁数を　小数Ｗの　Ｋ小数桁数に　入れる
	桁数　回数指定し
		[桁１ := 減少桁数 + 回数]
		小数情報Ａの　Ｋ数字（桁１）を　小数Ｗの　Ｋ数字（回数）に　入れる
	繰り返す	
	切り上げ　ならば　小数Ｗの　Ｋ最下位桁に一加算する
　　　　　　　つぎに	
	小数Ｗを　返す。

Ｌ小数桁数指定切り捨てとは　（Ｌ小数、非負整数→Ｌ小数）
		入力小数は　Ｌ小数情報
		小数桁数は　変数
		入力小数と　小数桁数に　入れる
		入力小数を　Ｋ小数に変換し　小数Ｃに　入れる
		小数Ｃの　小数桁数で　０の　Ｋ小数桁数指定処理を
　　　　								Ｋ小数を文字列変換し　返す。

Ｌ小数桁数指定四捨五入とは　（Ｌ小数、非負整数→Ｌ小数）
		入力小数は　Ｌ小数情報
		小数桁数は　変数
		入力小数と　小数桁数に　入れる
		入力小数を　Ｋ小数に変換し　小数Ｃに　入れる
		小数Ｃの　小数桁数で　１の　Ｋ小数桁数指定処理を
　　　　								Ｋ小数を文字列変換し　返す。　

Ｌ小数桁数指定切り上げとは　（Ｌ小数、非負整数→Ｌ小数）
		入力小数は　Ｌ小数情報
		小数桁数は　変数
		入力小数と　小数桁数に　入れる
		入力小数を　Ｋ小数に変換し　小数Ｃに　入れる
		小数Ｃの　小数桁数で　２の　Ｋ小数桁数指定処理を
　　　　								Ｋ小数を文字列変換し　返す。

テスト用のプログラム

Ｌ小数１は　Ｌ小数型。
Ｌ小数２は　Ｌ小数型。
Ｗ桁数は　変数。
メインは　　　　　　　　（ ・ －－＞ ・ ）
　　文字列Ａは　文字列実体
	「２つの小数の四則演算をします。（空入力で終了）」と 表示し　改行し
	ここから
		「小数１＝」と　表示し　　文字列入力し　Ｌ小数１に　入れる
		Ｌ小数１が　空列？
			ならば　打ち切り
			つぎに
	 	Ｌ小数１が　Ｌ小数？
　　　　　　でなければ　　 改行し　「Ｌ小数入力エラー」と　表示し 改行し
					もう一度
			つぎに		
		「小数点以下桁数＝」と　表示し
		文字列入力し　文字列Ａに　入れる
		文字列Ａを　数値変換し　捨て　Ｗ桁数に　入れる
		Ｌ小数１を　Ｗ桁数で　Ｌ小数桁数指定切り捨てし　Ｌ小数２に　入れる
		「切り捨て＝」と　表示し　　Ｌ小数２を	表示し 改行し
		Ｌ小数１を　Ｗ桁数で　Ｌ小数桁数指定四捨五入し　Ｌ小数２に　入れる
		「四捨五入＝」と　表示し　　Ｌ小数２を	表示し 改行し
		Ｌ小数１を　Ｗ桁数で　Ｌ小数桁数指定切り上げし　Ｌ小数２に　入れる
		「切り上げ＝」と　表示し　　Ｌ小数２を	表示し 改行し  
　      改行し		
	繰り返す。

実行結果

c:\mind8\pmind\sample>test04
２つの小数の四則演算をします。（空入力で終了）
小数１＝123.456789
小数点以下桁数＝4
切り捨て＝+123.4567
四捨五入＝+123.4568
切り上げ＝+123.4568

小数１＝123.1203
小数点以下桁数＝2
切り捨て＝+123.12
四捨五入＝+123.12
切り上げ＝+123.13

小数１＝999.9999
小数点以下桁数＝3
切り捨て＝+999.999
四捨五入＝+1000.000
切り上げ＝+1000.000