作者onezillion (寶貝)
看板Fortran
標題Re: [問題] 迴圈問題
時間Tue May 29 22:43:27 2012
program test
integer:: i=7,j=15,m,n
print '(<j>A,/,<i-2>(<j>A,/),<j>A)', ('*',n=1,j) , (('*', (' '
,n=1,j-2),'*'),m=1,i-2) , ('*',n=1,j)
pause
end program test
中間print是一整行,free format適用
輸出檔案就改成write
更精簡的
print '(<j>A,/,<i-2>(1A,<j-2>X,1A,/),<j>A)', ('*',n=1,(i+j-2)*2)
format挺好玩的
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.115.120.79
→ Wstyle:感恩~讓我看到許多不同的方式 05/30 00:50
※ 編輯: onezillion 來自: 140.115.120.79 (05/30 01:38)
推 jubilee2:開眼界了!! 厲害!! 05/31 03:57
推 laa7352:推！！可是看不懂Orz 06/02 11:36
→ jubilee2:FORMATE 裡面的數字可以換成 <i>裡面接變數!! 06/02 22:30
→ jubilee2:ex '(5F5.2)'>> i=5; '(<i>F5.2)'; 06/02 22:31
推 laa7352:謝謝jubilee2~~學到了!!感謝!! 06/05 11:59
推 YCTzeng:原來有這招~ 06/20 23:29