作者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
1F：→ Wstyle:感恩~让我看到许多不同的方式 05/30 00:50
※ 编辑: onezillion 来自: 140.115.120.79 (05/30 01:38)
2F：推 jubilee2:开眼界了!! 厉害!! 05/31 03:57
3F：推 laa7352:推！！可是看不懂Orz 06/02 11:36
4F：→ jubilee2:FORMATE 里面的数字可以换成 <i>里面接变数!! 06/02 22:30
5F：→ jubilee2:ex '(5F5.2)'>> i=5; '(<i>F5.2)'; 06/02 22:31
6F：推 laa7352:谢谢jubilee2~~学到了!!感谢!! 06/05 11:59
7F：推 YCTzeng:原来有这招~ 06/20 23:29