Re: [問題] 迴圈問題
program test
INTEGER :: X,Y,I,J
X = 10
Y = 10
DO I = 1, X
DO J= 1, Y
IF(I==1 .OR. J==1 .OR. I==X .OR. J==X) THEN
WRITE(*,"(A)",ADVANCE="NO") "*"
ELSE
WRITE(*,"(A)",ADVANCE="NO") " "
END IF
END DO
WRITE(*,*)
END DO
end program test
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.123.79.103
※ 編輯: kkarthur 來自: 140.123.79.103 (05/29 21:00)
→
05/30 00:49, , 1F
05/30 00:49, 1F
討論串 (同標題文章)
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
