Contoh Pertemuan Ke-2 Dari Sebuah Tipe Bentukan
JUDUL
MENGHITUNG JUMLAH KERAMIK SUATU RUMAH
KAMUS
type kamar standart A
<
float pj
float lbr
float luas
>
type kamar standart B
<
float pj
float lbr
float luas
>
type kamar VIP
<
float pj
float lbr
float luas
>
type kamar mandi
<
float pj
float lbr
float luas
>
type kamar dapur
<
float pj
float lbr
float luas
>
type kamar space
<
float pj
float lbr
float luas
>
type keramik A
<
float pj
float lbr
>
type keramik B
<
float pj
float lbr
>
type keramik B
<
float pj
float lbr
>
type keramik C
<
float pj
float lbr
>
type keramik D
<
float pj
float lbr
>
type luas lantai
<
float luas
>
type keramik yang dibutuhkan dalam ruangan
<
float Total_JmlKrmk_KmTidurStd_A
float Total_JmlKrmk_KmTidurStd_B
float Total_JmlKrmk_KmTidurStdVIP
float Total_JmlKrmk_KmMandi
float Total_JmlKrmk_Dapur
float Total_JmlKrmk_Space
>
type total keramik yang dibutuhkan
<
float total
>
DESKRIPSI
Luas Kamar Standar A
Pjg_KmTidurStd_A <- 4
Lbr_KmTidurStd_A <- 2
Luas_KmTidurStd_A <- Pjg_KmTidurStd_A x Lbr_KmTidurStd_B
Outuput <-("Jumlah Luas kamar standart A menurut Panjang "+Pjg_KmTidurStd_A+" dan Lebar "+Lbr_KmTidurStd_A+" sebesar "+Luas_KmTidur Std_A" .")
Luas Kamar Standar B
Pjg_KmTidurStd_B <- 4
Lbr_KmTidurStd_B <- 2
Luas_KmTidurStd_B <- Pjg_KmTidurStd_B x Lbr_KmTidurStd_B
Outuput <-("Jumlah Luas kamar standart B menurut Panjang "+Pjg_KmTidurStd_B+" dan Lebar "+Lbr_KmTidurStd_B+" sebesar "+Luas_KmTidur Std_B" .")
Luas Kamar VIP
Pjg_KmTidurVIP <- 4
Lbr_KmTidurVIP <- 4
Luas_KmTidurVIP <- Pjg_KmTidurVIP x Lbr_KmTidurVIP
Outuput <-("Jumlah Luas kamar VIP menurut Panjang "+Pjg_KmTidurVIP+" dan Lebar "+Lbr_KmTidurVIP+" sebesar "+Luas_KmTidurVIP" .")
Luas Kamar Mandi
Pjg_KmMandi <- 3
Lbr_KmMandi <- 3
Luas_KmMandi<- Pjg_KmMandi_A x Lbr_KmMandi_A
Outuput <-("Jumlah Luas kamar Mandi menurut Panjang "+Pjg_KmMandi_A+" dan Lebar "+Lbr_KmMandi_A+" sebesar "+Luas_KmMandi_A" .")
Luas Dapur
Pjg_Dapur <- 3
Lbr_Dapur <- 4
Luas_Dapur <- Pjg_Dapur x Lbr_Dapur
Outuput <-("Jumlah Luas Dapur menurut Panjang "+Pjg_Dapur+" dan Lebar "+Lbr_Dapur+" sebesar "+Luas_Dapur" .")
Luas Space
Pjg_Teras <- 8
Lbr_Teras <- 3
Luas_Teras <- Pjg_Teras x Lbr_Teras
Outuput <-("Jumlah Luas Teras menurut Panjang "+Pjg_Teras+" dan Lebar "+Lbr_Teras+" sebesar "+Luas_Teras" .")
======================================================================================================================================================================================================
Keramik untuk Kamar Standar A
Krmk_B <- 0,96
Luas_KmTidurStd_A
Total_JmlKrmk_KmTidurStd_A <- Krmk_B x Luas_KmTidurStd_A /* Jumlah total box keramik untuk ruangan kamar standar A */
Output <- ("Jumlah Keramik yang dibutuhkan kamar tidur standart A menurut jenis keramik "+Krmk_B+" dan Luas kamar "+Luas_KmTidurStd_A+" adalah sebanyak "+Total_JmlKrmk_KmTidurStd_A+" box keramik").
Keramik untuk Kamar Standar B
Krmk_C <- 0,96
Luas_KmTidurStd_B
Total_JmlKrmk_KmTidurStd_B <- Keramik_B x Luas_KmTidurStd_B /* Jumlah total box keramik untuk ruangan kamar standar B */
Output <- ("Jumlah Keramik yang dibutuhkan kamar tidur standart B menurut jenis keramik "+Krmk_C+" dan Luas kamar "+Luas_KmTidurStd_B+" adalah sebanyak "+Total_JmlKrmk_KmTidurStd_B+" box keramik").
Keramik untuk Kamar VIP
Krmk_D <- 1,08
Luas_KmTidurVIP
Total_JmlKrmk_KmTidurVIP <- Keramik_A x Luas_KmTidurVIp /* Jumlah total box keramik untuk ruangan kamar VIP */
Output <- ("Jumlah Keramik yang dibutuhkan kamar tidur VIP berdasarkan jenis keramik "+Krmk_D+" dan Luas kamar "+Luas_KmTidurVIP+" adalah sebanyak "+Total_JmlKrmk_KmTidurVIP+" box keramik").
========================================================================================================================================================================================================
Keramik untuk Kamar Mandi
Krmk_A <- 0,99
Luas_KmMandi_A
Total_JmlKrmk_KmMandi <- Krmk_A x Luas_KmMandi_A /* J
umlah total box keramik untuk ruangan kamar Mandi */
Output <- ("Jumlah Keramik yang dibutuhkan kamar Mandi menurut jenis keramik "+Krmk_A+" dan Luas kamar mandi "+Luas_KmMandi_A+" adalah sebanyak "+Total_JmlKrmk_KmMandi+" box keramik").
Keramik untuk Dapur
Krmk_A <- 0,99
Luas_Dapur
Total_JmlKrmk_Dapur <- Krmk_A x Luas_Dapur /* Jumlah total box keramik untuk ruangan Dapur */
Output <- ("Jumlah Keramik yang dibutuhkan Dapur menurut jenis keramik "+Krmk_A+" dan Luas Dapur "+Luas_Dapur+" adalah sebanyak "+Total_JmlKrmk_Dapur+" box keramik").
Keramik untuk Space */
Krmk_A <- 0,99
Luas_Teras
Total_JmlKrmk_Teras <- Krmk_A x Luas_Teras /* Jumlah total box keramik untuk ruangan Teras */
Output <- ("Jumlah Keramik yang dibutuhkan Space menurut jenis keramik "+Krmk_A+" dan Luas Teras "+Luas_Teras+" adalah sebanyak "+Total_JmlKrmk_Teras+" box keramik").
========================================================================================================================================================================================================
Total Jumlah Keramik Yang Dibutuhkan
Total_Krmk <- Total_JmlKrmk_KmTidurStd_A + Total_JmlKrmk_KmTidurStd_B + Total_JmlKrmk_KmTidurVIP + Total_JmlKrmk_KmMandi + Total_JmlKrmk_Dapur + Total_JmlKrmk_Space
Output (" Jumlah Total keseluruhan keramik yang dibutuhkan adalah sebanyak "+Total_Krmk+" box Keramik ")
NAMA = MUHAMAD ALIV FAHRUDIN
NIM = A11.2013.07901
MATA KULIAH = SP ALPRO
http://dinus.ac.id/
Tidak ada komentar:
Posting Komentar