Hitung kata asik

Hitunglah berapa banyak kata "asik" yang muncul!

jawab :
program hitung_asik
kamus

cc:char
ci:integer
pitaChar:string
jumlah:integer
procedure start
procedure adv


Algoritma

begin
input(pitaChar)
jumlah<--0 while (cc <> '.') do
begin
if (cc='a') then
begin
adv
if (cc='s') then
begin
adv
if (cc='i')then
begin
adv
if (cc='k') then
begin
jumlah<--jumlah + 1
adv
end
end
end
end
else
adv
end
output('Jumlah kata asik yang muncul adalah ',jumlah)
end


procedure start
{I.S.:-}
{F.S.:nilai dari variabel ci adalah 0, dan cc bernilai pita char ke-0}
Kamus lokal

Algoritma
begin

ci<--0
cc<--pitaChar[ci]

end

procedure adv
{I.S.:nilai dari variabel ci adalah 0, dan cc bernilai pita char ke-0}
{F.S.:nilai dari variabel ci bertambah 1, dan cc bernilai pitachar ke ci+1}
Kamus Lokal

Algoritma
begin

ci<--ci + 1
cc<--pitaChar[ci]

end