Program Pascal Hitung Huruf

Program Hitung Huruf

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.

Share : Facebook Twitter Google+ Linkedin Technorati Digg

Page Load

Terima kasih telah membaca artikel Maz Dani tentang Program Pascal Hitung Huruf dengan url http://dubraw735.blogspot.com/2012/05/program-pascal-hitung-huruf.html, Semoga Artikel Program Pascal Hitung Huruf bermanfaat bagi diri saya dan anda.