Programma per invertire una stringa

Fortran

Pubblicato in: Programmi

Programma per invertire una stringa

Si tratta di un programma in fortran 90 che inverte una stringa data

fortran 95,programmi fortran,fortran download,visual fortran,fortran tutorial

Il programma che segue legge da tastiera un a stringa e ne calcola il reverse, cioè inverte i caratteri presenti nella stringa in mod che alla fine si abbia la stringa invertita.

LISTATO DEL PROGRAMMA

! reverse.f90
! calcola il reverse di una stringa
!
program reverse
integer :: i
character(len=10) :: st,ts
read *,st
ts=st(len_trim(st):len_trim(st))
do i=len_trim(st)-1,1,-1
ts = trim(ts) // st(i:i)
end do
print *,ts
end program reverse