Program Kalimat
Buatlah sebuah program yang menerima masukan kalimat (Max 255 karakter) kemudian menampilkan:
- Jumlah huruf vocal
- Jumlah huruf konsonan
- Jumlah huruf Besar
- Jumlah huruf kecil
- Jumlah angka
- Jumlah tanda baca
Penyelesaian :
uses wincrt;
var
i, H_vokal, H_konsonan, H_Besar , H_kecil , angka , Tanda : byte;
kalimat : string;
ch : char;
begin
write(’Masukkan suatu kalimat (mak 255) : ‘);
readln(Kalimat);
H_vokal := 0;
H_konsonan := 0;
H_Besar := 0;
H_kecil := 0;
angka := 0;
Tanda := 0;
for i:=1 to length(kalimat) do
begin
ch := kalimat[i];
case ch of
‘A’..’Z’ : begin
H_besar := H_besar+1;
if (ch = ‘A’) or (ch = ‘E’) or (ch = ‘I’) or (ch = ‘O’) or (ch = ‘U’) then
H_vokal := H_vokal + 1
else
H_konsonan := H_konsonan + 1;
end;
‘a’..’z’ : begin
H_kecil := H_kecil + 1;
if (ch = ‘a’) or (ch = ‘e’) or (ch = ‘i’) or (ch = ‘o’) or (ch = ‘u’) then
H_vokal := H_vokal + 1
else
H_konsonan := H_konsonan + 1;
end;
‘0′..’9′ : angka := angka +1;
else
tanda := tanda + 1;
end;
end;
writeln;
writeln(’Jumlah Huruf Vokal : ‘,H_vokal);
writeln(’Jumlah Huruf Konsonan : ‘,H_konsonan);
writeln(’Jumlah Huruf Besar : ‘,H_besar);
writeln(’Jumlah Huruf Kecil : ‘,H_kecil);
writeln(’Jumlah Angka : ‘,angka);
writeln(’Jumlah Tanda Baca : ‘,tanda);
readkey;
donewincrt;
end.
