以文本方式查看主题 - Fortran中文网 (http://fortran.cn/bbs/index.asp) -- Fortran语言使用经验交流 (http://fortran.cn/bbs/list.asp?boardid=2) ---- [求助]麻烦哪位高手给小弟解答一下,谢谢了 (http://fortran.cn/bbs/dispbbs.asp?boardid=2&id=2262) |
-- 作者:lcl116016947 -- 发布时间:2011/3/16 0:15:50 -- [求助]麻烦哪位高手给小弟解答一下,谢谢了 program main implicit none character(len=80) a,b integer c,d,e write(*,*) "请输入字符串:" read(*,"(A80)") a d=1 c=len_trim(a) do e=1,c,1 if(a(e:e)/=\' \') then b(d:d)=a(e:e) d=d+1 end if end do write(*,"(A80)") b 本人现在正在学fortran 上面是我编的程序 为什么在read处加不加"(A80)"计算的结果不一样呢 end program main implicit none character(len=80) a,b integer c,d,e write(*,*) "请输入字符串:" read(*,"(A80)") a d=1 c=len_trim(a) do e=1,c,1 if(a(e:e)/=\' \') then b(d:d)=a(e:e) d=d+1 end if end do write(*,"(A80)") b end 本人现在正在学fortran 上面是我编的程序 为什么在read处加不加"(A80)"计算的结果不一样呢 [此贴子已经被作者于2011-3-16 0:19:27编辑过]
|
-- 作者:lcl116016947 -- 发布时间:2011/3/16 0:17:54 -- program main |
-- 作者:lcl116016947 -- 发布时间:2011/3/16 0:20:18 -- 本人现在正在学fortran 上面是我编的程序 为什么在read处加不加"(A80)"计算的结果不一样呢 |
-- 作者:whl2dxl -- 发布时间:2011/4/18 1:45:13 -- A80 是读取时用的格式 如果不加就是自由格式 你可以检查一下 你的输入文件格式 与你定义的格式 是不是一至 |