Menghitung Huruf pada Pascal


saat ini saya akan sharing bagaimana menghitung huruf dalam suatu kalimat. Mungkin ini akan berguna bagi teman-teman semua.
Langkah-langkah adalah sebagai berikut :
Uses WinCrt;
Var
Teks : string;
banyak : array[‘A’..’Z’] of byte;
i : byte;
begin
Write(‘Masukkan Suatu Kalimat :’);
Readln(Teks);
for i:=1 to length(teks) do
banyak[upcase(teks[i])]:=banyak[upcase(teks[i])]+1;
for i:=1 to 26 do
if (banyak[upcase(chr(64+i))]0) then
writeln(upcase(chr(64+i)),’ banyaknya =’,banyak[upcase(chr(64+i))]);
end.

Preview
pas

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s