cari "and" versi 2

program cari_and2

kamus
cc : char
pitaChar:string
ci,jumand:integer
cek : boolean
procedure start
procedure adv

algoritma
input(pitaChar)
start
cek<--false
jumand<--0
while (cc<>'.')do begin
if cc='a' then begin
cek<--true
adv
if (cc='n' and cek) then begin
adv
if cc='d' then
jumand<--jumand + 1
end
end
adv
end
output(jumand)
{end of program}

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