くだすれFORTRAN（超初心者用）

1 名前：デフォルトの名無しさん [2006/01/24(火) 09:48:23 ] このスレッドは、他のスレッドでは書き込めない超低レベル、  もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。  FORTRAN使いが優しくコメントを返しますが、  お礼はFORTRANの布教と初心者の救済をお願いします。  15 名前：５ [2006/01/27(金) 21:58:04 ] >>4　後半。だるいので適当ｗ　　マイナス入れると暴走、入力チェックしてないｗ MODULE mod_subs IMPLICIT NONE INTEGER, PARAMETER :: ndays_of_month(12, 2) = & RESHAPE( (/31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31, & 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 /), (/12, 2/) ) CONTAINS LOGICAL FUNCTION qleapyear(iyear) IMPLICIT NONE INTEGER, INTENT(IN) :: iyear qleapyear = .FALSE. IF ( MOD(iyear, 4) == 0 ) qleapyear = .TRUE. IF ( MOD(iyear, 100) == 0 ) qleapyear = .FALSE. IF ( MOD(iyear, 1000) == 0 ) qleapyear = .TRUE. RETURN END FUNCTION qleapyear END MODULE mod_subs 16 名前：５ [2006/01/27(金) 21:59:02 ] PROGRAM AliceGame2 USE mod_subs IMPLICIT NONE INTEGER :: iyear0, imonth0, iday0, iyear, imonth, iday INTEGER :: ileap, ndays, idays ! WRITE(*, *) "input birth date : Year, Month, Day" READ(*, *) iyear0, imonth0, iday0 ! WRITE(*, *) "input days " READ(*, *) ndays ! ndays = ndays + iday0 iyear = iyear0 DO IF ( qleapyear(iyear) ) THEN ileap = 2 idays = 366 ELSE ileap = 1 idays = 365 END IF IF ( ndays - idays > 0 ) THEN iyear = iyear + 1 ndays = ndays - idays ELSE EXIT END IF END DO 17 名前：５ [2006/01/27(金) 22:00:19 ] ! imonth = imonth0 DO IF ( ndays - ndays_of_month(imonth, ileap) > 0 ) THEN imonth = imonth + 1 ndays = ndays - ndays_of_month(imonth, ileap) ELSE EXIT END IF END DO iday = ndays WRITE(*, *) "The date is ", iyear, imonth, iday STOP END PROGRAM AliceGame2 センブラインデント用 >>15-17 結果チェックしてないｗ　自分でチェックして書き直すですよ！

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef