Re: [問題] 迴圈問題

[kkarthur (aa)]

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)
→ Wstyle:非常感謝~