「エジプトの分数」の編集履歴（バックアップ）一覧はこちら

「エジプトの分数」(2010/06/23 (水) 23:00:10) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

#asciiart(blockquote){
/***********************************************************
	egypfrac.c -- エジプトの分数
***********************************************************/
#N88BASIC

Dim m As Long, n As Long, q As Long


Input "分子 m = ", m
Input "分母 n = ", n

While (n mod m) <> 0
	q = n / m + 1
	Print "1/" ; q ; "+ ";
	m = m * q - n :  n = n * q
Wend
Print "1/"; + n/m

}