「小銭の払い方」の編集履歴（バックアップ）一覧はこちら

「小銭の払い方」(2010/07/14 (水) 15:25:11) の最新版変更点

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

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

#asciiart(blockquote){
/***********************************************************
	change.c -- 小銭の払い方
***********************************************************/

Function change(n As Long, k As Long) As Long /* 再帰版 */

	Dim s As Long
	change = 0
	If n < 0 Then Exit Function
	s = 1 + n / 5 + change(n - 10, 10)
	If k >=  50 Then s = s + change(n -  50,  50)
	If k >= 100 Then s = s + change(n - 100, 100)
	change = s
End Function


Function change1(n As Long) As Long /* 非再帰版 */
	Dim i As Long, j As Long, s As Long, t As Long, u As Long
	s = 0
	i = n / 100 : While i >= 0 : i=i-1 /* 100円玉 */
		t = n - 100 * i
		j = t / 50 : While j >= 0 : j=j-1 /*  50円玉 */
			u = t - 50 * j
			s = s + ((1 + u / 5 - u / 10) * (1 + u / 10))
		Wend
	Wend
	change1 = s
End Function

'main
#N88BASIC
Dim i As Long
Print "お金の払い方"
Print "　金額　　再帰版　非再帰版"
For i=0 To 500 Step 5
	Print i, change(i, i), change1(i)
Next
}