くだすれFORTRAN（超初心者用）その3
■ このスレッドは過去ログ倉庫に格納されています
0369デフォルトの名無しさん
2008/06/12(木) 00:12:47「キルヒアイス、お前は優しいな。」
20ループと30ループ合体できない？
DO 20 I = 1, 9
NUM = KIN / KAHEI(I)
KIN = MOD(KIN, KAHEI(I))
WRITE(*, '(I6, A, I5, A)') KAHEI(I), ' YEN ', NUM, ' MAI'
20 END DO
■ このスレッドは過去ログ倉庫に格納されています