ALT/TEXT GAMBAR PPC Iklan Blogger Indonesia
Loading...

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.

0 komentar:

Posting Komentar

Terimakasih sudah berkomentar dengan baik, sopan dan tidak mengandung spam,dimohon untuk tidak meletakan link aktif dalam komentar!!!
Klik Subscribe by email jika ingin mengetahui update komentar pada artikel ini, thank you for visiting

Ttd : Dani Setiadi