Tugas 3 Array Tipe Bentukan

Rumah

Judul    : Menghitung kebutuhan keramik
===================================
Kamus :
pjg_Std1, lbr_Std1            <–- integer
luas_Std1                <–- real

pjg_Std2, lbr_Std2            <–- integer
luas_Std2                <–- real

pjg_VIP, lbr_VIP            <–- integer
luas_VIP                <–- real

pjg_Km1, lbr_Km1            <–- Integer
luas_Km1                <–- real

pjg_Km2, lbr_Km2            <–- Integer
luas_Km2                <–- real

pjg_Dpr, lbr_Dpr            <–- Integer
luas_Dpr                <–- real

pjg_Teras, lbr_Teras        <–- Integer
luas_Teras                <–- real

keramikA, keramikB, keramikC,
keramikD                <–- real

bth_keramikStd1, bth_keramikStd2,
bth_keramikVIP, bth_keramikDpr,
bth_keramikTeras            <-– real

===================================

Deskripsi :

pjg_Std1  <– 3
pjg_Std2  <– 3
pjg_VIP   <– 5
pjg_Km1   <– 3
pjg_Km2   <– 3
pjg_Dpr   <– 4
pjg_Teras <– 5

lbr_Std1  <– 3
lbr_Std2  <– 3
lbr_VIP   <– 5
lbr_Km1   <– 3
lbr_Km2   <– 3
lbr_Dpr   <– 4
lbr_Teras <– 5

keramikA <– 0.96
keramikB <– 0.99
keramikC <– 1
keramikD <– 1.08

===================================
type ruangan
<
panjang, lebar, luas <– real
<

data_ruangan[1..7] <– array of ruangan

index array
data_ruangan[1].panjang <– 3
data_ruangan[1].lebar   <– 2
data_ruangan[1].luas    <– data_ruangan[1].panjang * data_ruangan[1].lebar

data_ruangan[2].panjang <– 3
data_ruangan[2].lebar   <– 2
data_ruangan[2].luas    <– data_ruangan[2].panjang * data_ruangan[2].lebar

…

data_ruangan[7].panjang <– 3
data_ruangan[7].lebar   <– 2
data_ruangan[7].luas    <– data_ruangan[7].panjang * data_ruangan[7].lebar

repeat        x<–1
{
input panjang[x]
input lebar[x]
luas[x] <– panjang[x] * luas[x]x
output luas[x] = (“luas lantai : “.luas[x])
}
until (x<=7);

===================================

type keramik
<
p_keramik, l_keramik, luas_keramik, isi_keramik <– real
>

ukuran_keramik[1..4] <– array of keramik

index array
ukuran_keramik[1].p_keramik <– 0,4
ukuran_keramik[1].l_keramik <– 0,4
ukuran_keramik[1].isi_keramik <– 11
ukuran_keramik[1].luas_keramik <– ukuran_keramik[1].p_keramik * ukuran_keramik[1].l_keramik * ukuran_keramik[1].isi_keramik

… // sampai

ukuran_keramik[4].p_keramik <– 0,2
ukuran_keramik[4].l_keramik <– 0,2
ukuran_keramik[4].isi_keramik <– 25
ukuran_keramik[4].luas_keramik <– ukuran_keramik[4].p_keramik * ukuran_keramik[4].l_keramik * ukuran_keramik[4].isi_keramik

for (a <– 1, a <= 4, a++)
{
input p_keramik[a]
input l_keramik[a]
input isi_keramik[a]
ukuran_keramik[a] = input p_keramik[a] * input l_keramik[a] * input isi_keramik[a]
}

===================================

type butuh_keramik
<
luas_keramik, luas_ruangan, kebutuhan_keramik <– real
>

data_keramik[1..7] <– array of butuh_keramik

data_keramik[1].size_kerammik <– ukuran_keramik[1].luas_keramik
data_keramik[1].luas_ruangan  <– data_ruangan[1].luas
data_keramik[1].kebutuhan_keramik <– data.keramik[1].size_keramik * data_keramik[1].luas_ruangan

for (y <– 1, y <= 7, y++)
{
input size_keramik[y]
kebutuhan_keramik[y] = size_keramik[y] * luas_ruangan[y]
}

===================================
type total
<
luas_lantai   <– data_ruangan[1].luas + data_ruangan[2].luas + …. data_ruangan[7].luas
total_keramik <– data_keramik[1].kebutuhan_keramik + data_keramik[2].kebutuhan_keramik … data_keramik[7].kebutuhan_keramik
>