Questo sito contribuisce alla audience di

Un programma Fortran per il conteggio delle vocali in una stringa

Si tratta di un programma Fortran a cura del Prof. Paolo Bison - Corso di Fondamenti di Informatica - Università di Padova

programmi fortran,fortran 77,stringhe fortran,fortran 2003,libri fortran

Si tratta di un programma Fortran per il conteggio delle vocali presenti in una stringa scritto in Fortran 90 a cura del Prof. Paolo Bison - Corso di Fondamenti di Informatica - Università di Padova.

Il programma è strutturato in modo da permettere ò’inserimento da tastiera della stringa da controllare e poi attraverso un ciclo If e un Select Case effettua il controllo lettera per lettera.

! conta_voc.f90
! conta il numero di vocali presenti
! in una stringa
!
program conta_voc
integer :: i,n_a=0,n_e=0,n_o=0,n_i=0,n_u=0
character(len=256) :: st
character(len=1) :: ch
read *,st
do i=1,len_trim(st)
ch=st(i:i) ! estrae i-esimo carattere
if ((ch >= “a”) .and.(ch <= “z”)) then
ch=char(ichar(ch) - ichar(”a”)+ ichar(”A”))
end if
select case (ch)
case(”A”)
n_a=n_a+1
case(”E”)
n_e=n_e+1
case(”I”)
n_i=n_i+1
case(”O”)
n_o=n_o+1
case(”U”)
n_u=n_u+1
end select
end do
print *,”A”,n_a,”E”,n_e,”I”,n_i,”O”,n_o,”U”,n_u
end program conta_voc

Link correlati