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.

1 komentar:

  1. FBS Indonesia Broker Terbaik – Dapatkan Banyak Kelebihan Trading Bersama FBS,bergabung sekarang juga dengan kami
    trading forex fbsindonesia.co.id
    -----------------
    Kelebihan Broker Forex FBS
    1. FBS MEMBERIKAN BONUS DEPOSIT HINGGA 100% SETIAP DEPOSIT ANDA
    2. SPREAD DIMULAI DARI 0 Dan
    3. DEPOSIT DAN PENARIKAN DANA MELALUI BANK LOKAL Indonesia dan banyak lagi yang lainya

    Buka akun anda di fbsindonesia.co.id
    -----------------
    Jika membutuhkan bantuan hubungi kami melalui :
    Tlp : 085364558922
    BBM : D04A8185

    BalasHapus

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