Fortran95程序设计习题答案第十章3.doc

module linklist type student integer : numinteger : Chinese, English, Math, Science, Social end type type datalink type(student) : item type(datalink), pointer : next end typecontains function SearchList(num, head) implicit noneinteger : numtype(datalink), pointer : head, ptype(datalink), pointer : SearchListp=headnullify(SearchList)do while( associated(p) ) if ( p%item%num=num ) then SearchList = preturn end if p=p%nextend doreturn end functionend module linklistprogram ex1016 use linklist implicit none character(len=20) : filename character(len=80) : tempstr type(datalink), pointer : head type(datalink), pointer : p type(student), allocatable : s(:) integer i,error,size write(*,*) filename: read(*,*) filename open(10, file=filename, status=old, iostat=error) if ( error/=0 ) then write(*,*) Open file fail!stop end if allocate(head) nullify(head%next) p=head size=0 read(10, (A80) tempstr ! 读入第一行字符串, 不需要处理它 ! 读入每一位学生的成绩 do while(.true.) read(10,fmt=*, iostat=error) p%itemif ( error/=0 ) exitsize=size+1allocate(p%next, stat=error) ! 新增下一个数据if ( error/=0 ) then write(*,*) Out of memory! stopend ifp=p%next ! 移动到链表的下一个数据nullify(p%next) end do write(*,(总共有,I3,位学生) size allocate( s(size) ) p=head do i=1,size s(i)=p%itemp=p%next end do do while(.true.) write(*,*) 要查询几号同学的成绩?read (*,*) iif ( isize ) exit ! 输入不合理的座号 write(*,(5(A6,I3) 中文,s(i)%Chinese,& 英文,s(i)%English,& 数学,s(i)%Math,& 自然,s(i)%Sc