progrm 4 hurup [tugs prokomp]

program 4huruf;
{program yang dibuat untuk mencari banyaknya kata yang terdiri 4 huruf misalkan:’five’ pada rangkaian huruf}

kamus
prec-is-A:boolean
C1,C2,C3:char

algoritma:
CPTASIK <- 0 {jumlah kata five}
prec-is-f <- false
START {memulai start biasa, karena yang akan diproses adalah prec-is-f}
while (CC <> ‘.’) do
prec-is-f <- CC = ‘f’
ADV-COUPLE {adv dengan couple karena memproses C1,C2,C3}
ADV-COUPLE
ADV-COUPLE
if (C1 = ‘e’ and C2 = ‘v’ and C3 = ‘i’ and prec-is-f) then
CPTfive <- CPTfive + 1 {penambahan kata 'five' apabila ditemukan}
ADV {ADV biasa karena yang akan diproses adalah prec-is-f}

output (CPTfive)

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

procedure START
kamus :
Algoritma:
C1 <- CC