.v1和.v2 求第三边长

fcode

你的需求描述得不清楚，没法解答。

文件里各列是什么含义？哪些是你所需的？读出来之后，如何判断“对应”？

fcode

[Fortran] 纯文本查看 复制代码

Program www_fcode_cn
  Implicit None
  Integer , parameter :: N = 20 !// 每行20个数
  Real :: a( N ) , b( N )
  Integer :: err
  Open( 12 , File = "a.v1" )
  Open( 13 , File = "b.v2" )
  Open( 14 , File = "c.v3" )
  Do
    Read( 12 , * , iostat = err ) a
    if ( err /= 0 ) exit
    Read( 13 , * , iostat = err ) b
    if ( err /= 0 ) exit
    Write( 14 , * ) sqrt( a*a + b*b )
  End Do
  Close( 12 )
  Close( 13 )
End Program www_fcode_cn

fcode

windows 的绝对路径大概是这个格式：
D:\\Adp_M2_1215to1218.v1

注意是冒号，不是分号。两个斜线 \\
最后，看错误提示要在黑色窗口看。你帖的最后一张图看似是错误，但其实不是（无视它）