Tugas Besar Menghitung Jumlah Kebutuhan Keramik

Judul Menghitung kebutuhan keramik
void Isi_Ruang(nama[max]<-- string,batas <-- integer)
kamus
i --> int
Deskripsi
i --> 0;
while (i<=batas)
{
ouput "ruang..",i+1 (pengisian nama ruang)
inputan "merupakan.."&nama[i]
}
do
--------------------
void Luas_Ruang(luasruang[max]<-- type Luas,batas <-- integer)
kamus
i    --> int
jmlp --> int
jmlL --> int
Deskripsi
i --> 0;
jmlp --> 0;
jmlL --> 0;
while (i<=batas)
{
input "Panjang Ruang .. = ..", i+1,luasruang[i].p (mengisi panjang dan lebar ruang dan keramik)
input "Lebar Ruang ..   = ..", i+1,luasruang[i].l
luasruang[i].L = luasruang[i].p * luasruang[i].l
jmlp = jmlp + luasruang[i].p
jmlL = jmlL + luasruang[i].l
i=i+1
}
do
output "jumlah panjang .. ", jmlp
output "jumlah lebar   .. ", jmlL
---------------------
void Isi_Kra(nama[max]<-- string,batas <-- integer)
Kamus :
i --> integer

Deskripsi :
i-->0;
while (i<=batas)
{
output "Keramik ..",i+1
input "merupakan .." &nama[i]
i=i+1
}
do
---------------------
void Luas_Kra(luaskeramik[max]<-- type Luas,batas <-- integer)
Kamus :
i --> integer
jmlp --> integer
jmlL --> integer

Deskripsi :
i-->0;
jmlp --> 0;
jmlL --> 0;
while (i<=batas)
{
input "Panjang Ruang .. = ..", i+1,luaskeramik[i].p
input "Lebar Ruang ..   = ..", i+1,luaskeramik[i].l
luaskeramik[i].L = luaskeramik[i].p * luaskeramik[i].l
jmlp = jmlp + luaskeramik[i].p
jmlL = jmlL + luaskeramik[i].l
i=i+1
}
do
output "jumlah panjang .. ", jmlp
output "jumlah lebar   .. ", jmlL
----------------------
void Cetak_Ruang(nama[max]<-- string,batas <-- integer,pilih)
Kamus :
i,j --> integer
tampung --> integer

Deskripsi :
i-->1;
while (i<=batas)
{
j-->i+1;
while (j<=batas)
{
if(luasruang[i].L < luasruang[j].L )
tampung = luasruang[i].L
luasruang[i].L = luasruang[j].L
luasruang[j].L = tampung
j=j+1
}do
i=i+1
}do
-----------------------------
Kra_Ruang(LuasRuang[max]<-- type Luas,LuasKra[max] <-- type Luas) <-- Real
Kamus :
i --> Integer
Jum_Kra[max] --> Real

Deskripsi :
i --> 1;
While (i < 5)
{
Jum_Kra[max] --> LuasRuang[max].L / LuasKra[1].L
Jum_Kra[max] --> LuasRuang[max].L / LuasKra[2].L
Jum_Kra[max] --> LuasRuang[max].L / LuasKra[3].L
Jum_Kra[max] --> LuasRuang[max].L / LuasKra[4].L
i = i+1;
}do
Return Jum_Kra[max]
-----------------------------
Hitung_Kra(Luas_Kra[max]<-- type Luas,KeramikBesar <-- Integer) <-- Real
Kamus :
i --> Integer
KraPerDus[max] --> Integer
KeramikBesar --> Integer

Deskripsi :
i --> 1;
While (i < 5)
{
KraPerDus[i] --> KeramikBesar/Luas_Kra[i].L
i = i+1
}
Return KraPerDus[max]
----------------------------
Void Kra_Dus (JumlahKeramik[max] <-- integer,JumlahPerDus[max] <-- integer)
Kamus :
i <-- integer
BeliKeramik[max] <-- integer

Deskripsi :
i --> 1;
While (i < 5)
{
BeliKeramik[i] --> JumlahKeramik[i] / JumlahPerDus[i]
Output "Keramik ... Yang saya Beli Sebanyak .. Dus",i+1, BeliKeramik[i]
i = i+1
}Do
-----------------------------
Void SearchP(luasruang[max].p,CariPanjang)
Kamus :

Deskripsi :

-----------------------------

define max --> 100
type Luas <p,l --> real
L  --> real >

LRumah --> type Luas;
Jml,JmlKra --> Integer;
Pilih --> Integer;
LuasRuang[max] --> type Luas;
LuasKra[max] --> type Luas;
NamaRuang[max][30] --> String   //maksimal 30 karakter
NamaKra[max] --> String
KeramikPutih,KeramikMerah --> Integer
KeramikHijau,KeramikMOtif --> Integer
KeramikBesar --> Integer
TotalKraRuang[max] --> Integer
TotalKraDus[max] --> Integer

Deskripsi :
Output "Program Menghitung Keramik"
Input "Panjang Rumah", LRumah.p
Input "Lebar Rumah", LRumah.l
LRumah.L --> LRumah.p * LRumah.l

Output LRumah.L;
Input "Apakah Anda Ingin Menggunakan fitur Pencarian Ruang?(1. Ya 2. Tidak),Pilih
If (Pilih == 1)
{
Input "Cari Berdasarkan Panjang Ruang",CariPanjang
SearchP(LuasRuang[max].p,CariPanjang)
Input "Cari Berdasarkan Lebar Ruang",CariLebar
SearchL(LuasRuang[max].l,CariLebar)

Input "Jumlah Ruangan",Jml
Output "Ruangan Apa Saja?"
Isi_Ruang(NamaRuang[max],Jml)
Luas_Ruang(LuasRuang[max],Jml)

Input "Berapa Jenis Keramik yang akan digunakan?",JmlKra
Input "Jenis Apa saja?",NamaKra
Isi_Kra(NamaKra[max],JmlKra)
Luas_Kra(LuasKra[max],JmlKra)

Input "Keramik Putih Akan dipasang di ?", KeramikPutih
Output "Luas Ruangan Paling Kecil"
Cetak_Ruang(NamaRuang[max],Jml)

Input "Keramik Merah Akan dipasang di?", KeramikMerah
Output "Luas Ruangan yang paling kecil"
Void .....

Input "Keramik Hijau Akan dipasang di?", KeramikHijau
Output "Luas Ruangan yang paling kecil"
Void ....

Input "Keramik Motif Akan dipasang di?", KeramikMotif
Output "Luas Ruangan yang paling kecil"
Void ....

TotalKraRuang[max] --> Kra_Ruang(LuasRuang[max],LuasKra[max])
KeramikBesar --> 120 * 100
TotalKraDus[max] --> Hitung_Kra(Luas_Kra[max],KeramikBesar)
Kra_Dus(TotalKraRuang[max],TotalKraDus[max])

Else
{
Return 0
}
}