我必须创建一个反转短语的程序。
例如:当我写的时候hello guys
,我想要syug olleh
这是我目前所拥有的,但我不知道如何反转板上的字符phraseT
:
program reversing
implicit none
character(len=20),dimension(1:20)::phraseT
character(len=20)::phrase,reverse
integer::i,x
write(*,*)"write a phrase :"
read(*,'(a)')phrase
x=len(trim(phrase))
nomT(1:20)=" "
do i=1,x
nomT(i:i)=trim(phrase(i:i))
end do
write(*,*)nomT
end program reversing