1599924楼: Originally posted by snoopyzhao at 2013-02-27 23:11:45
其实程序没有什么问题，只是你的a给得太小了，而你的计算机可能太快了，把 a 换成 10000 再看一下

另外，(A,I) 这一句是有错误的，I后面必须要有一个整数，如 I5……

至于 char 和 achar 这样的内置函数，请 ...

program test

   character(len=20) :: a, b
   character*1 creturn ! code::
   
   a = '100 30%'
   b = '200 31%'
   creturn = achar(13) ! generate carriage return
   
   write( * , '(a,a)' , advance='no' ) creturn , a
   write( * , '(a,a)' , advance='no' ) creturn , b
   
end program test

Originally posted by snoopyzhao at 2011-05-07 18:12:15:
第一个问题你没有说清楚，所以不知道你要干什么，至少应该给出数据，及你想要的结果……

第二个问题，可以试一下下面的代码：

[code]
program test

   character(len=20) :: a, b
   character*1 cret ...

Originally posted by shixha at 2011-05-07 22:15:47:
试了下，成功了，为什么用ascii的回车，这样就可以使指针回到屏幕行头嘛？不是很理解。


第一个问题是这样的，我想从文件中导入数据，到数组中。文件的结构如下，5列，前面两个是integer的，后面三个是rea ...