798
2
0
大宗师
program test character(10) a(3,4,6) open(10,file='in.txt') read(10,*) a close(10) k=0 do i=1,6 do j=1,4 k=k+1 write(*,"(i3,2x,3a10)") k,a(:,j,i) end do end do end
QQ截图20160616160446.jpg (43.39 KB, 下载次数: 508)
下载附件
2016-6-16 16:04 上传
查看全部评分
使用道具 举报
本版积分规则 发表回复 回帖后跳转到最后一页
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-5-3 19:33
Powered by Tencent X3.4
© 2013-2024 Tencent