Program pascal menghitung jumlah karakter Vokal dan Konsonan

Minggu, 24 November 2013

Program pascal menghitung jumlah karakter Vokal dan Konsonan

Program pascal menghitung jumlah karakter Vokal dan Konsonan - Kali ini saya akan sharing bagaimana syntak program menghitung jumlah karakter vokal dan Konsonan. Dalam program ini saya akan menggunakan sebuah array dan menggunakan perulangan For.

Soal :

Buatlah program untuk menampilkan jumlah karakter Vokal dan Konsonan menggunakan array dan perulangan For dan data diinputkan oleh user.

Penyelesaian :

program project1;

var

i,n,voc,kons,a,s,e,o,u: integer;
kata :string;

begin
write('Tolong masukan nama anda : '); readln(kata);
kons:= 0;
voc:= 0;
n:=length(kata);
for i:=1 to n do
begin
if ((kata[i]= 'a') or (kata[i]= 'A')) or ((kata[i]= 'i') or (kata[i]= 'I'))or ((kata[i]= 'e') or (kata[i]= 'E')) or ((kata[i]= 'u') or (kata[i]= 'U')) or ((kata[i]= 'o') or (kata[i]= 'O')) then
voc:= voc + 1
else
kons := kons + 1;
end;
a:=0;
s:=0;
u:=0;
e:=0;
o:=0;
for i:=1 to n do
begin
if ((kata[i]= 'a') or (kata[i]= 'A')) then
a:=a+1
else
if ((kata[i]= 'e') or (kata[i]= 'E')) then
e:=e+1
else
if ((kata[i]= 'u') or (kata[i]= 'U')) then
u:=u+1
else
if ((kata[i]= 'o') or (kata[i]= 'O')) then
o:=o+1
else
if ((kata[i]= 'i') or (kata[i]= 'I')) then
s:=s+1;

end;
writeln;
writeln(' HASIL DATA YANG DIINPUT ');
write('Kata yang anda input : ',kata);
writeln;
writeln('Jumlah Karakter konsonan : ', kons);
writeln('Jumlah karakter vokal : ', voc);
writeln('Jumlah karakter A : ', a);
writeln('Jumlah karakter I : ', s);
writeln('Jumlah karakter U : ', u);
writeln('Jumlah karakter E : ', e);
writeln('Jumlah karakter O : ', o);
readln
end.

Hasil :