作者kkarthur (aa)
看板Fortran
標題Re: [問題] 迴圈問題
時間Tue May 29 21:00:08 2012
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)
1F：→ Wstyle:非常感謝~ 05/30 00:49