How can I know the number of vowel characters (O - I - Y - U - E) in a file of text using Pascal Programming Language?

Answer 1

Program CountVowels ( infile,output) ;

Var Infile: text;

ch :char;

vowelCount : integer;

Begin

assign(infile,'input.dat');

reset(infile);

{* writeln(' opens input file '); *}

vowelCount :=0;

while not eof(infile) do

begin

read(infile,ch);

{* uncomment this for debugging : writeln(ch); *}

case (ch) of

'A','a','E','e','I','i','O','o','U','u':

vowelCount := vowelCount + 1;

end;

end;

writeln(' # of vowels is ',vowelCount);

close(infile);

End.