Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  vowels
Language: FORTRAN
Code:
! Ethan Winter
! Homework 6 - Strings: Counting Vowels
! CS 117 Section 1001
! Submitted 10/28/2016

! Vowel Counter Program

program Vowels_Counter

! Program for counting # of vowels &
! (both upper- and lower- cases) and total.

! Define variables.
implicit none

! Declare vowels, total, counter, and input string.
integer :: count, Total, A=0, E=0, I=0, O=0, U=0
character(999) :: String

! Display initial header.
write (*,*) "Vowel Counter"

! Prompt for input and read input.
write (*,*) "Input Text"
read (*,*) String

! Calculate # of vowels using loop.
! Do loop
do count = 1, len_trim(String)
  
!Count for each vowel through string.
select case (String (count:count))

!A Case
case ('A','a')
A = A + 1
!E Case
case ('E','e')
E = E + 1
!I Case
case ('I','i')
I = I + 1
!O Case
case ('O','o')
O = O + 1
!U Case
case ('U','u')
U = U + 1

end select
end do

! Calculate Total
Total = A + E + I + O + U

! Display all vowel counts
write (*,*) "Vowel counts calculated."

! Display count for A.
write (*,'(a,i3,a)') "A occurs ", A, " times."

! Display count for E.
write (*,'(a,i3,a)') "E occurs ", E, " times."

! Display count for I.
write (*,'(a,i3,a)') "I occurs ", I, " times."

! Display count for O.
write (*,'(a,i3,a)') "O occurs ", O, " times."

! Display count for U.
write (*,'(a,i3,a)') "U occurs ", U, " times."

! Display count for Total.
write (*,'(a,i3,a)') "Total vowels occur "&
, Total, " times."

! Exit program.
end program Vowels_Counter     
Comments: