「エジプトの分数」の編集履歴(バックアップ)一覧はこちら
「エジプトの分数」(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
}