tugas prokomp

program 3huruf;
{program yang dibuat untuk mencari banyaknya kata yang terdiri 3 huruf misalkan:’DIA’ dalam
kumpulan huruf}

kamus
prec-is-D:boolean
C1,C2:char

algoritma:
CPTDIA <- 0 {jumlah kata DIA}
prec-is-D <- false
START {memulai start biasa, karena yang akan diproses adalah prec-is-D}
while (CC <> ‘.’) do {tidak End-couple}
prec-is-D <- CC = ‘D’
ADV-COUPLE {adv dengan couple karena memproses C1,C2}
ADV-COUPLE
if (C1 = ‘I’ and C2 = ‘A’ and prec-is-D) then
CPTDIA <- CPTDIA + 1 {penambahan kata asik apabila ditemukan}
ADV {ADV biasa, karena yang akan diproses adalah prec-is-D}

output (CPTDIA)

procedure ADV-COUPLE
{SKEMA PEMROSESAN DENGAN MARK, Solusi 1 : mesin COUPLE}:
{I.S. : C1, C2, c2 <> ‘.’}
{F.S. : C1 = C2, C2 = CC, CC mungkin = ‘.’}
kamus:
Algoritma:
c1<-c2
ADV
c2<-cc

procedure START
kamus :
Algoritma:
C1 <- CC