Program Array Dengan Turbo Pascal....

niihh... buat para pemula yang mau jadi programer, to cuman mau belajar bahasa pemrograman. program ni dibuat untuk mengetahui jumlah karakter yang da dalam sebuah kata. tapi musti dimasukkin satu per satu katanya. makdarit, kalian musti ngoprek lagi biar bisa sekaligus. namanya juga belajar, kan gak semuanya dikasi tau. nii langsung ja, monggo ndoro... 

program hitung_karakter; 

uses crt;

 var

n          :integer;

tabkar   :array[1..100] of char;

tabfrek  :array['a'..'z'] of integer;

i           :integer;

cc         :char; 

begin 

clrscr;

write('nilai n = ');

readln; 

for i:=1 to n do 

begin 

write('tabkar[',i,']= ');

readln(tabkar[i]); 

end; 

for cc:='a' to 'z' do tabfrek[cc]:= 0;

readln; 

for i:=1 to n do tabfrek[tabkar[i]] := tabfrek[tabkar[i]] + 1; 

for cc:='a' to 'z' do if tabfrek[cc] <> 0 then 

writeln('frekuensi ',cc,' = ',tabfrek[cc];

readln;

end.