新手求助 — 编程爱好者社区

沙发

fortran2003 [专家分：30] 发布于 2011-11-09 13:25:00

implicit none
integer,parameter:: n=5
integer a(n)
open(10,file="1.txt")
open(11,file="2.txt")

read(10,"(5I1)")a
write(11,"(I1)")a
end

板凳

streamline [专家分：0] 发布于 2011-11-09 13:46:00

谢谢

3 楼

臭石头雪球 [专家分：23030] 发布于 2011-11-09 13:47:00

[quote][font=宋体][color=#FF0000]Program [/color][color=#000000]Main_by_PFan
  [/color][color=#FF0000]Implicit None
  Integer [/color][color=#000000]i [/color][color=#000080], [/color][color=#000000]iErr
  [/color][color=#FF0000]Open[/color][color=#000080]([/color][color=#800080]10[/color][color=#000080],[/color][color=#FF0000]File[/color][color=#000080]=[/color][color=#808080]"1.txt"[/color][color=#000080])
  [/color][color=#FF0000]Open[/color][color=#000080]([/color][color=#800080]11[/color][color=#000080],[/color][color=#FF0000]File[/color][color=#000080]=[/color][color=#808080]"2.txt"[/color][color=#000080])
  [/color][color=#FF0000]Do
    Read[/color][color=#000080]( [/color][color=#800080]10 [/color][color=#000080], [/color][color=#808080]'(i1)' [/color][color=#000080], [/color][color=#FF0000]advance [/color][color=#000080]= [/color][color=#808080]'no' [/color][color=#000080], [/color][color=#FF0000]iostat [/color][color=#000080]= [/color][color=#000000]iErr [/color][color=#000080]) [/color][color=#000000]i
    [/color][color=#FF0000]If [/color][color=#000080]( [/color][color=#000000]iErr [/color][color=#000080]/= [/color][color=#800080]0 [/color][color=#000080]) [/color][color=#FF0000]Exit
    Write[/color][color=#000080]( [/color][color=#800080]11 [/color][color=#000080], [/color][color=#808080]'(i1)' [/color][color=#000080]) [/color][color=#000000]i
  [/color][color=#FF0000]End Do
End Program [/color][color=#000000]Main_by_PFan[/color][/font][/quote]

您尚未登录，请登录后再回复。点此登录或注册

主题：新手求助

回复列表（共3个回复）

我来回复

程序员工具箱 new

代码片段