用Fortran语言编写:寻找书名中有“Fortran”的书

我们可以使用Fortran中的字符串函数来查找字符串中是否包含子串，然后在书名列表中寻找带有“Fortran”的书名。

下面是一个展示如何寻找书名中包含“Fortran”的Fortran程序示例。

program find_fortran_books

  character(100):: books(5)
  character(7):: search_str = 'Fortran'
  integer:: i, count

  ! 书名列表
  books(:) = (/'Advanced Fortran Programming', 
               'Numerical Methods in Fortran', 
               'Introduction to Fortran Programming', 
               'Fortran for Scientists and Engineers', 
               'Programming in Fortran 90 and 95'/)

  ! 判断每个书名是否包含“Fortran”
  count = 0
  do i = 1, 5
     if (index(books(i), search_str) > 0) then
        count = count + 1
        write(*,*) books(i)
     end if
  end do

  ! 输出找到的书籍数量
  write(*,*) 'Total number of books with Fortran in title:', count

end program find_fortran_books

运行该程序将输出带有“Fortran”的书名和总数。