2
1
0
新人
QQ截图20171017191420.jpg (14.58 KB, 下载次数: 222)
下载附件
程序
2017-10-17 19:15 上传
QQ截图20171017191440.jpg (7.51 KB, 下载次数: 231)
2017-10-17 19:16 上传
QQ截图20171017191454.jpg (1.93 KB, 下载次数: 242)
使用道具 举报
490
4
大宗师
World Analyser
260
版主
Program Exercise Implicit None Character(len=20) title(5) integer :: i Open(20,File="Ex.in") Open(60,File="Ex.out") Do i = 1 , size(title) Read( 20 , "(a20)" ) title(i) Write( 60 , "(a)" ) trim(title(i)) End Do End Program Exercise
kyra 发表于 2017-10-18 09:58 你想实现什么呢? 试试下面的代码,是你想要的效果吗?
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给发帖量超过一定数量的坛友
颁发给论坛注册3年以上的网友
颁发给论坛热心帮助他人的网友
颁发给注册后积极发言的新人
颁发给在娱乐版上传了真实照片的女性网友
颁发给完成“有规有矩”任务的网友
颁发给本站版主和管理
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-26 20:32
Powered by Tencent X3.4
© 2013-2024 Tencent