fortran语言判断字符串是否为回文

下面是一个简单的Fortran程序，用于判断一个字符串是否是回文：

program palindrome
    implicit none
    character(len=100) :: str
    integer :: i, len
    logical :: is_palindrome

    write(*,*) "Enter a string: "
    read(*,'(A)') str

    len = len_trim(str)

    is_palindrome = .true.

    do i=1, len/2
        if(str(i:i) /= str(len-i+1:len-i+1)) then
            is_palindrome = .false.
            exit
        endif
    enddo

    if(is_palindrome) then
        write(*,*) "The string is a palindrome."
    else
        write(*,*) "The string is not a palindrome."
    endif

end program palindrome

在这个程序中，我们首先读入一个字符串，然后通过循环比较字符串的第一个字符和最后一个字符、第二个字符和倒数第二个字符，以此类推。如果所有字符都匹配，则字符串为回文。如果有任何一对字符不匹配，则字符串不是回文。

相关问题

fortran语言写字符串

Fortran语言中字符串可以使用字符数组来表示。例如，要定义一个包含字符串“Hello World”的字符数组，可以使用以下代码：

character(len=11) :: str
str = 'Hello World'

在上面的代码中，`len=11`表示字符串的长度为11（包括空格）。如果要定义一个可变长度的字符串，可以使用`allocatable`关键字，例如：

character(len=:), allocatable :: str
str = 'Hello World'

这样定义的字符串可以根据需要分配任意长度。在使用字符串时，可以使用内置函数和操作符来处理它们，例如：

! 获取字符串长度
len = len(str)

! 拼接字符串
str = trim(str) // ' from Fortran'

! 比较字符串
if (str == 'Hello World from Fortran') then
    print *, 'Strings are equal'
else
    print *, 'Strings are not equal'
endif

fortran 读取文件为字符串

在Fortran中，可以使用`READ`语句和`FORMAT`格式化字符串来读取文件中的字符串。以下是一个简单的示例：

PROGRAM read_string_from_file
  IMPLICIT NONE

  CHARACTER(LEN=100) :: str
  INTEGER :: i

  OPEN(10, FILE='file.txt', STATUS='OLD')

  DO i=1,5
    READ(10, '(A100)') str  ! 读取文件中的一行字符串
    WRITE(*, *) str        ! 输出读取的字符串
  END DO

  CLOSE(10)

END PROGRAM read_string_from_file

在这个示例中，我们打开名为`file.txt`的文件，并使用`READ`语句和`(A100)`格式来读取每行的最多100个字符的字符串，并使用`WRITE`语句将其输出到屏幕上。

请注意，要正常读取文件，文件必须存在且可读。如果文件不存在或无法打开，则会出现运行时错误。