triple huruf [tugs prokomp]

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

kamus
C1,C2,C3:char

Algoritma :
START-COUPLE {memulai start COUPLE, karena yang akan diproses adalah C1 dan C2}
CPTLE <- 0 {jumlah kata 'ant'}
while (CC <> ‘.’) do
if (C1 = ‘t’ and C2 = ‘n’) then
ADV-COUPLE
if (c1 =’I’ and c2 = ‘a’) then
CPTant <- CPTant + 1
ADV-COUPLE
Output (CPTant)

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-COUPLE
{SKEMA PEMROSESAN DENGAN MARK, Solusi 1 : mesin COUPLE}
{I.S. : sembarang }
{F.S. : Couple pertama terbentuk : C1 = ‘ ‘, C2 = CC, CC mungkin = ‘.’}
kamus :
Algoritma:
C1 <- ‘ ‘ {karena yang dicari adalah ‘ant’, Bagaimana jika yang dicari
pasangan lain?}
START
C2 <- CC