PROGRAM KonstruksiCasePersegiPanjang;
{Konstruksi Case Untuk Menu Hitungan Persegi Panjang}
{* DEKLARASI *}
var
NomorMenu:integer;
Panjang,Lebar:real;
Luas,Keliling,Diagonal:real;
{* ALGORITMA *}
begin;
writeln('PROGRAM MENU PERSEGI PANJANG, DIMULAI');
writeln('OLEH : PURNADITYA');
writeln('=== BERIKUT INI ADALAH DAFTAR MENU PERSEGI PANJANG ===');
writeln('1. Hitung Luas');
writeln('2. Hitung Keliling');
writeln('3. Hitung Panjang Diagonal');
writeln('4. Keluar Program');
write('Masukkan Nomor Pilihan Anda : '); readln(NomorMenu);
case NomorMenu of
1:begin
write('Panjang : '); readln(Panjang);
write('Lebar : '); readln(Lebar);
Luas:=Panjang*Lebar;
writeln('Luas Persegi Panjang : ',Luas);
end;
2:begin
write('Panjang : '); readln(Panjang);
write('Lebar : '); readln(Lebar);
Keliling:=2*(Panjang+Lebar);
writeln('Keliling Persegi Panjang : ',Keliling);
end;
3:begin
write('Panjang : '); readln(Panjang);
write('Lebar : '); readln(Lebar);
Diagonal:=sqrt(exp(2*ln (Panjang))+exp(2*ln (Lebar)));
writeln('Diagonal Persegi Panjang : ',Diagonal);
end;
4:writeln('Keluar Program');
end;
end.
PROGRAM PerhitunganBagunDatarSederhana;
{Pembuatan Menu Bangun Datar Sederhana}
{* DEKLARASI *}
type Persegi = record
S:real;
end;
type PersegiPanjang = record
P:real;
Lb:real;
end;
type Segitiga = record
A:real;
B:real;
T:real;
end;
type Lingkaran = record
D:real;
end;
type JajarGenjang = record
A:real;
B:real;
T:real;
end;
type Trapesium= record
A:real;
B:real;
C:real;
D:real;
T:real;
end;
type BelahKetupatAtauLayangLayang= record
A:real;
B:real;
C:real;
end;
var
NomorMenu:integer;
Ls:real;
Kl:real;
Dg:real;
Als:real;
D1:real;
D2:real;
S1:real;
S2:real;
PP:PersegiPanjang;
BJ:Persegi;
SG:Segitiga;
LK:Lingkaran;
JJG:JajarGenjang;
TP:Trapesium;
BKL:BelahKetupatAtauLayangLayang;
const phi = 3.14;
const satL = 'M2';
const satP = 'M';
{* ALGORITMA *}
begin
writeln('PROGRAM MENU BANGUN DATAR SEDERHANA, DIMULAI');
writeln('OLEH : PURNADITYA');
writeln('MAGISTER TEKNIK SIPIL UNIVERSITAS INDONESIA');
writeln('====================');
writeln('SILAKAN PILIH DAFTAR MENU BANGUN DATAR DI BAWAH INI : ');
writeln('1. Persegi/Bujur Sangkar');
writeln('2. Persegi Panjang');
writeln('3. Segitiga');
writeln('4. Lingkaran');
writeln('5. Jajar Genjang');
writeln('6. Trapesium');
writeln('7. Belah Ketupat/Layang-Layang');
writeln('====================');
write('SILAKAN MASUKKAN NOMOR PILIHAN ANDA : '); readln(NomorMenu);
case NomorMenu of
1:begin
write('Panjang Sisi, S : '); readln(BJ.S);
writeln('=================');
writeln('Berikut Hasil Properti Bangun Tersebut : ');
Ls:=exp(2*ln(BJ.S));
Kl:=4*BJ.S;
Dg:=exp(0.5*ln(BJ.S));
writeln('Luas : ',Ls,' ',satL);
writeln('Keliling : ',Kl,' ',satP);
writeln('Diagonal : ',Dg,' ',satP);
end;
2:begin
write('Panjang, P : '); readln(PP.P);
write('Lebar, L : '); readln([Link]);
writeln('=================');
writeln('Berikut Hasil Properti Bangun Tersebut : ');
Ls:=PP.P*[Link];
Kl:=2*PP.P+[Link];
Dg:=sqrt(exp(2*ln(PP.P))+exp(2*ln([Link])));
writeln('Luas : ',Ls,' ',satL);
writeln('Keliling : ',Kl,' ',satP);
writeln('Diagonal : ',Dg,' ',satP);
end;
3:begin
write('Panjang Alas Bag 1 : '); readln(SG.A);
write('Panjang Alas Bag 2 : '); readln(SG.B);
write('Tinggi Segitiga : '); readln(SG.T);
writeln('=================');
writeln('Berikut Hasil Properti Bangun Tersebut : ');
Als:=SG.A+SG.B;
D1:=sqrt(exp(2*ln(SG.A))+exp(2*ln(SG.T)));
D2:=sqrt(exp(2*ln(SG.T))+exp(2*ln(SG.B)));
Ls:=0.5*Als*SG.T;
Kl:=Als+D1+D2;
writeln('Luas : ',Ls,' ',satL);
writeln('Keliling : ',Kl,' ',satP);
end;
4:begin
write('Panjang Diameter : '); readln(LK.D);
writeln('=================');
writeln('Berikut Hasil Properti Bangun Tersebut : ');
Ls:=0.25*phi*exp(2*ln(LK.D));
Kl:=phi*LK.D;
writeln('Luas : ',Ls,' ',satL);
writeln('Keliling : ',Kl,' ',satP);
end;
5:begin
write('Panjang Alas Sejajar Bag 1: '); readln(JJG.A);
write('Panjang Alas Sejajar Bag 2: '); readln(JJG.B);
write('Tinggi Jajar Genjang
: '); readln(JJG.T);
writeln('=================');
writeln('Berikut Hasil Properti Bangun Tersebut : ');
Als:=JJG.A+JJG.B;
D1:=sqrt(exp(2*ln(JJG.A))+exp(2*ln(JJG.T)));
D2:=D1;
Ls:=Als*JJG.T;
Kl:=2*Als+D1+D2;
writeln('Luas : ',Ls,' ',satL);
writeln('Keliling : ',Kl,' ',satP);
end;
6:begin
write('Panjang Alas Bag 1 : '); readln(TP.A);
write('Panjang Alas Bag 2 : '); readln(TP.B);
write('Panjang Alas Bag 3 : '); readln(TP.C);
write('Panjang Sisi Atas : '); readln(TP.D);
write('Tinggi Trapesium : '); readln(TP.T);
writeln('=================');
writeln('Berikut Hasil Properti Bangun Tersebut : ');
Als:=TP.A+TP.B+TP.C;
D1:=sqrt(exp(2*ln(TP.A))+exp(2*ln(TP.T)));
D2:=sqrt(exp(2*ln(TP.C))+exp(2*ln(TP.T)));
Ls:=(Als+TP.D)*TP.T*0.5;
Kl:=Als+TP.D+D1+D2;
writeln('Luas : ',Ls,' ',satL);
writeln('Keliling : ',Kl,' ',satP);
end;
7:begin
write('Panjang Diagonal 1
: '); readln(BKL.A);
write('Panjang Diagonal 2 Bag Min : '); readln(BKL.B);
write('Panjang Diagonal 2 Bag Max : '); readln(BKL.C);
writeln('=================');
writeln('Berikut Hasil Properti Bangun Tersebut : ');
D1:=BKL.A;
D2:=BKL.B+BKL.C;
S1:=sqrt(exp(2*ln(0.5*BKL.A))+exp(2*ln(0.5*BKL.B)));
S2:=sqrt(exp(2*ln(0.5*BKL.A))+exp(2*ln(0.5*BKL.C)));
Ls:=0.5*D1*D2;
Kl:=2*(S1+S2);
writeln('Luas : ',Ls,' ',satL);
writeln('Keliling : ',Kl,' ',satP);
end;
end;
end.