Program Menentukan_Huruf_Vokal_dan_Konsonan

Program Menentukan_Huruf_Vokal_dan_Konsonan

Program Menentukan_Huruf_Vokal_dan_Konsonan;

uses wincrt;

var

   huruf        :char;

   G            :char;

Begin

G:='Y';

while G<>'T' do

Begin

writeln ('Menentukan Huruf Konsonan dan Huruf Vokal');

write   ('Masukan Sembarang Huruf A-Z atau a-z= ');

readln (huruf);

if

(huruf= 'A') or

(huruf= 'I') or

(huruf= 'U') or

(huruf= 'E') or

(huruf= 'O') or

(huruf='a')  or

(huruf='i')  or

(huruf='u')  or

(huruf='e')  or

(huruf='o') then

writeln (huruf,' Adalah huruf vokal')

else

writeln (huruf,' Adalah huruf konsonan');

Writeln ('Untuk mengulang input sembarang , utntuk berhenti input T');

Readln (G);

Clrscr;

End;

End.