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.