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语言中，如果你想要消除字符串（字符数组）中的空格，可以使用`trim()`函数或者直接遍历数组并删除多余的空格。以下是两种常见方法：

1. **使用`trim()`函数**:

   character(len=*) :: str
   str = 'example with spaces'
   trim(str) ! 这会去掉两端的空格，str现在就是 'examplewithspaces'

2. **遍历数组删除空格** (假设我们有一个字符数组 `char_array`):

   integer :: i, j
   character(len=*), allocatable :: trimmed_str(:)
   allocate(trimmed_str(len(char_array)))
   j = 1
   do i = 1, len(char_array)
     if (char_array(i) /= ' ') then
       trimmed_str(j) = char_array(i)
       j = j + 1
     end if
   end do
   trimmed_str(j:) = "" ! 确保最后的元素也被赋值为空
   deallocate(char_array) ! 如果之前有分配了原始数组，记得释放空间

完成上述操作后，`trimmed_str` 就是一个去除了多余空格的新字符串。