22 Mei 2011

Program Pencari Huruf A dengan Mesin Karakter

Hmmm....yang saya dapat pas praktikum kemaren bukan cuma tentang bikin program pembalik kata aja, tapi juga tentang membuat program pencari huruf A dengan mesin karakter.

Program hitungA ;
uses wincrt ;
type
angka = 1..22;
larik = array[angka] of char ;
const
Kalimat : Larik = ('W','H','E','N',' ','S','A','N','G','K','A','L','A',' ','T','A','L','K','I','N','G','.');
var
i, jml : integer ;
begin
if kalimat[1]='.' then
   writeln('ini teks kosong!')
else
   begin
   i:=1;
   jml:=0    ;
   while kalimat[i]<> '.' do
         begin
         write(kalimat[i]);
         if kalimat [i] = 'A' then
         inc(jml);
         inc(i);
         end;
   end;
   writeln;
   writeln ('frekuensi huruf A:  ',jml, ' biji doank');
end.


Ini penampakannya setelah program tersebut di running
 

Share on Facebook
Share on Twitter
Share on Google+

Related : Program Pencari Huruf A dengan Mesin Karakter

0 Komentar:

Posting Komentar

Terimakasih telah meninggalkan Komentar di Didit Blog | Silahkan berkomentar dengan bebas, tidak mengandung SARA | komentar dengan link HIDUP akan dihapus | Terimakasih ^_^