くだすれFORTRAN(超初心者用)その3at TECHくだすれFORTRAN(超初心者用)その3
- 暇つぶし2ch369:デフォルトの名無しさん 08/06/12 00:12:47 >>367 「キルヒアイス、お前は優しいな。」 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