用Fortran语言编写:从一百本图书中寻找书名中有“fortr”

程序如下：

program search_books
  
  implicit none
  
  character(len=50), dimension(100) :: book_names ! 定义一个包含100个字符串的数组
  integer :: i, count
  
  count = 0 ! 计数器初始化为0
  
  book_names(1) = 'Introduction to Fortran Programming'
  book_names(2) = 'Numerical Methods in Fortran'
  book_names(3) = 'Fortran Programming For Engineers'
  book_names(4) = 'Fortran 95/2003 Explained'
  ! ... 其他的书名
  
  do i=1, 100 ! 循环遍历数组中的每一个元素
    if (index(book_names(i),'fortr') /= 0) then ! 判断书名中是否包含"fortr"
      write(*,*) book_names(i) ! 输出符合条件的书名
      count = count + 1 ! 更新计数器
    end if
  end do
  
  if (count == 0) then ! 如果没有找到任何一本书，则输出提示信息
    write(*,*) 'No books matching the search criteria were found.'
  end if
  
end program search_books

以上程序中，我们定义了一个包含100个字符串的数组book_names，其中存储了100本图书的书名。然后我们使用do循环遍历数组中的每一个元素，判断书名中是否包含"fortr"，如果是，则输出该书名，并更新计数器。最后，如果计数器等于0，即没有找到任何一本书，则输出提示信息。