高分求fortran编写小程序

来源：百度知道 编辑：UC知道 时间：2024/06/04 19:38:09
有A,B两个文件分别存放着整型数据。把既在A文件中存在，又在B文件中存在的整数找出存放文件C中，使C中的每个数据各不相同。
没有格式要求 一个文件里有多个数据 具体个数没有要求的 只要满足题目要求的任何形式都行 谢谢

条件不够清楚，如a文件中数据个数，是一行一个数据，还是一个N个？或者个数不定？b文件也是。格式不同，编出来就不一样。
你补充一下。我帮你做。
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

!发现你发了三个帖子，给你写一个。
!2009-6-6晚编写，cvf6.5通过。
!数据文件要求：每行整数数据一个
!结果会自动写到c.txt中。
implicit none
integer,allocatable:: a(:),b(:),c(:),flag(:)
integer::RowA,RowB,i,j
character(len=1)::temp
!-------------------------------
!从a.txt中读数据至a数组
open(101,file="a.txt")
RowA=0
do while(eof(101)/=.true.)
read(101,"(a1)") temp
RowA=RowA+1
enddo
allocate(a(RowA))
rewind(101)
do i=1,RowA
read(101,*) a(i)
end do
close(101)
!-------------------------------
!从b.txt中读数据至b数组
open(102,file="b.txt")
RowB=0
do while(eof(102)/=.true.)
read(102,"(a1)") temp
RowB=RowB+1
enddo
allocate(b(RowB))
rewind(102)
do i=1,RowB
rea