Prosedur Membuat Data KTP Menggunakan Tipe Data Bentukan

///Judul

Fungsi membuat KTP Menggunakan Tipe Data Bentukan

 

///Kamus

type date

<

dd <- integer

mm <- integer

yy <- integer

>

/* Tipe data bentukan untuk memuat tanggal lahir dan tanggal pembuatan KTP di KTP */

type almt

<

alamt <- string

rt <- string

rw <- string

keldes <- string

kec <- string

>

 

type ktp

<

name <- string

ttl <- date

alamat <- almt

rt <- string

rw <- string

keldes <- string

kec <- string

agama <- string

stat <- string

kerja <- string

warga <- string

berlaku <- string

buat <- date

>

/* Tipe data bentukan untuk membuat KTP */

 

data_ktp [1…10] <- array of ktp

 

///Algoritma

prosedur dataktp (data_ktp[] <- array of ktp, jml <- integer)

{

i <- integer

 

i <- 0

while(i<jml)

do

{

input data_ktp[i].name

input data_ktp[i].ttl.dd

input data_ktp[i].ttl.mm

input data_ktp[i].ttl.yy

input data_ktp[i].alamat.alamt

input data_ktp[i].alamat.rt

input data_ktp[i].alamat.rw

input data_ktp[i].alamat.keldes

input data_ktp[i].alamat.kec

input data_ktp[i].agama

input data_ktp[i].stat

input data_ktp[i].kerja

input data_ktp[i].warga

input data_ktp[i].berlaku

input data_ktp[i].buat.dd

input data_ktp[i].buat.mm

input data_ktp[i].buat.yy

 

x<- x+1

}

}

 

Leave a Reply

Your email address will not be published. Required fields are marked *