CASLわかる人おいでませ
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
2009/03/01(日) 14:56:25五十円、十円、5円、一円別に、お札や硬貨がいくつ必要か解析して表示する
プログラムを作成せよ。
この問題解いてくださいお願いします
0002デフォルトの名無しさん
2009/03/01(日) 15:13:090003デフォルトの名無しさん
2009/03/01(日) 15:18:02高専時代にやった記憶がある
もう覚えてないけど
0004デフォルトの名無しさん
2009/03/01(日) 15:24:370005デフォルトの名無しさん
2009/03/01(日) 18:28:58時間と金の無駄だ。
0006デフォルトの名無しさん
2009/03/01(日) 20:59:12どうして出来ないんだ?
大きい額から順番に何回引けるかをカウントするだけだろ?
0007デフォルトの名無しさん
2009/03/01(日) 22:27:270008デフォルトの名無しさん
2009/03/02(月) 01:42:56言語訓練のために立てたものです。
アイと研究員とのやり取りに利用するスレッドなので、
関係者以外は書きこまないで下さい。
京都大学霊長類研究所
0009デフォルトの名無しさん
2009/03/02(月) 16:31:23; GR0 MONEYの残額
; GR1 お札や硬貨
; GR2 外側のループ
; GR3 内側のループ
; UNIT 紙幣と硬貨を大きい順番に並べたもの
; ANS 答え(紙幣・硬貨は9種類、必要数を大きい順に列挙)
; N ループの回数(1円玉は自動で求まるのでループの回数は1少ない)
;
PROG START
LD GR0,MONEY ; GR0をMONEYで初期化
LAD GR2,0 ; まず1万円から計算
L1 LD GR1,UNIT,GR2 ; GR1に各紙幣、硬貨を順に読み込む
LAD GR3,0 ; 各紙幣、硬貨の必要数をリセット
L2 CPA GR0,GR1 ; 各紙幣、硬貨は引けるか?
JMI NEXT ; 引けないなら次の紙幣、硬貨へ
SUBA GR0,GR1 ; 引けるなら引こう
LAD GR3,1,GR3 ; 各硬貨、紙幣の必要数を1増加
JUMP L2 ; 引けそうなうちはループ
NEXT ST GR3,ANS,GR2 ; 各紙幣、硬貨の必要数をANSに保存
LAD GR2,1,GR2 ; 次の紙幣、硬貨のための準備
CPA GR2,N ; 全ての紙幣、硬貨をチェックした?
JMI L1 ; まだチェックしてない紙幣、硬貨があるならループ
ST GR0,ANS,GR2 ; 1円玉は最後の残りがそのまま答えになる
RET
MONEY DC 26789
UNIT DC 10000,5000,1000,500,100,50,10,5
ANS DS 9
N DC 8
END
■ このスレッドは過去ログ倉庫に格納されています