作者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