uses crt;
var p,d1,d2,h,t,l,luas,kel:real;
plh,plh2:byte;
un,ps:string[10];
label 1,2,3,4;
begin
repeat;
clrscr; textcolor(2);
gotoxy(30,12); write('Username : '); readln(un);
gotoxy(30,13); write('Password : '); textcolor(black); readln(ps);

until (ps)='habibi';
clrscr;
textcolor(2);
gotoxy(30,9); writeln('==========================');
gotoxy(30,10); writeln('= SELAMAT DATANG =');
gotoxy(30,11); writeln('= DI PROGRAM =');
gotoxy(30,12); writeln('= BANGUN DATAR =');
gotoxy(30,13); writeln('==========================');
gotoxy(34,19); writeln('Nama : Moh. Habibi');
gotoxy(34,20); writeln('NIM : 10508656');
gotoxy(30,24); textcolor(blink); writeln('[ Tekan ENTER Untuk Masuk ]');
readln;
if keypressed=true then goto 1;
textcolor(2);
1: clrscr;
gotoxy(30,2); writeln('MENGHITUNG BANGUN DATAR');
gotoxy(31,3); writeln('( KELILING DAN LUAS )');
gotoxy(1,5); writeln('================================================================================');
gotoxy(34,8); writeln('DAFTAR PILIHAN');
gotoxy(33,9); writeln('================');
gotoxy(23,11); writeln('1. Bujur Sangkar 5. Belah Ketupat');
gotoxy(23,13); writeln('2. Persegi Panjang 6. Layang-Layang');
gotoxy(23,15); writeln('3. Segitiga 7. Jajaran Genjang');
gotoxy(23,17); writeln('4. Lingkaran 8. Trapesium');
gotoxy(1,22); writeln('================================================================================');
gotoxy(30,24); write('PILIH SALAH SATU : '); readln(plh);

2: if (plh)=1 then
begin
clrscr;
gotoxy(35,2); writeln('BUJUR SANGKAR');
gotoxy(1,3); writeln('================================================================================');
gotoxy(27,5); write('Masukkan Panjang Sisi (cm) = '); readln(p);
kel:=4*p;
luas:=p*p;
end else
if (plh)=2 then
begin
clrscr;
gotoxy(35,2); writeln('PERSEGI PANJANG');
gotoxy(1,3); writeln('================================================================================');
gotoxy(27,5); write('Masukkan Panjang Sisi (cm) = '); readln(p);
gotoxy(27,6); write('Masukkan Lebar Sisi (cm) = '); readln(l);
kel:=2*(p+l);
luas:=p*l;
end else
if (plh)=3 then
begin
clrscr;
gotoxy(34,2); writeln('S E G I T I G A');
gotoxy(1,3); writeln('================================================================================');
gotoxy(27,5); write('Masukkan Alas (cm) = '); readln(p);
gotoxy(27,6); write('Masukkan Tinggi (cm) = '); readln(t);
gotoxy(27,7); write('Masukkan Sisi Miring (cm) = '); readln(h);
kel:=p+t+h;
luas:=0.5*p*t;
end else
if (plh)=4 then
begin
clrscr;
gotoxy(33,2); writeln('L I N G K A R A N');
gotoxy(1,3); writeln('================================================================================');
gotoxy(26,5); write('Masukkan Panjang Jari-Jari (cm) = '); readln(p);
kel:=pi*(p+p);
luas:=pi*(p*p);
end else
if (plh)=5 then
begin
clrscr;
gotoxy(34,2); writeln('BELAH KETUPAT');
gotoxy(1,3); writeln('================================================================================');
gotoxy(25,5); write('Masukkan Panjang Sisi (cm) = '); readln(h);
gotoxy(25,6); write('Masukkan Panjang Diagonal 1 (cm) = '); readln(d1);
gotoxy(25,7); write('Masukkan Panjang Diagonal 2 (cm) = '); readln(d2);
kel:=4*h;
luas:=0.5*d1*d2;
end else
if (plh)=6 then
begin
clrscr;
gotoxy(34,2); writeln('LAYANG - LAYANG');
gotoxy(1,3); writeln('================================================================================');
gotoxy(25,5); write('Masukkan Sisi Panjang (cm) = '); readln(p);
gotoxy(25,6); write('Masukkan Sisi Pendek (cm) = '); readln(l);
gotoxy(25,7); write('Masukkan Panjang Diagonal 1 (cm) = '); readln(d1);
gotoxy(25,8); write('Masukkan Panjang Diagonal 2 (cm) = '); readln(d2);
kel:=2*(p+l);
luas:=0.5*d1*d2;
end else
if (plh)=7 then
begin
clrscr;
gotoxy(34,2); writeln('JAJARAN GENJANG');
gotoxy(1,3); writeln('================================================================================');
gotoxy(25,5); write('Masukkan Panjang Sisi Atas (cm) = '); readln(p);
gotoxy(25,6); write('Masukkan Panjang Sisi Bawah (cm) = '); readln(l);
gotoxy(25,7); write('Masukkan Panjang Sisi Kanan (cm) = '); readln(d1);
gotoxy(25,8); write('Masukkan Panjang Sisi Kiri (cm) = '); readln(d2);
gotoxy(25,9); write('Masukkan Tinggi = '); readln(t);
kel:=p+l+d1+d2;
luas:=l*t;
end else
if (plh)=8 then
begin
clrscr;
gotoxy(33,2); writeln('T R A P E S I U M');
gotoxy(1,3); writeln('================================================================================');
gotoxy(25,5); write('Masukkan Panjang Sisi Atas (cm) = '); readln(p);
gotoxy(25,6); write('Masukkan Panjang Sisi Bawah (cm) = '); readln(l);
gotoxy(25,7); write('Masukkan Panjang Sisi Kanan (cm) = '); readln(d1);
gotoxy(25,8); write('Masukkan Panjang Sisi Kiri (cm) = '); readln(d2);
gotoxy(25,9); write('Masukkan Tinggi = '); readln(t);
kel:=p+l+d1+d2;
luas:=(p+l)*t*0.5;
end else
begin
clrscr;
gotoxy(30,13); write('PILIHAN ANDA TIDAK ADA !');
readln;
goto 1;
end;
gotoxy(33,11); writeln('HASIL PERHITUNGAN');
gotoxy(32,12); writeln('===================');
gotoxy(32,14); writeln('Keliling = ',kel:6:2,' cm');
gotoxy(32,15); writeln('Luas = ',luas:6:2,' cm');

4: gotoxy(38,18); writeln('PILIHAN');
gotoxy(37,19); writeln('=========');
gotoxy(19,21); writeln('1. Menu Utama');
gotoxy(35,21); writeln('2. Hitung Lagi');
gotoxy(55,21); writeln('3. Keluar');
gotoxy(1,23); writeln('================================================================================');
gotoxy(37,24); write('Pilih : '); readln(plh2);
if (plh2)=1 then goto 1 else
if (plh2)=2 then goto 2 else
if (plh2)=3 then goto 3 else
clrscr;
gotoxy(30,13); write('PILIHAN ANDA TIDAK ADA !');
readln;
clrscr;
goto 4;

3: clrscr;
gotoxy(32,8); writeln('=======================');
gotoxy(32,9); writeln('= TERIMA KASIH =');
gotoxy(32,10); writeln('= TELAH MENGGUNAKAN =');
gotoxy(32,11); writeln('= PROGRAM =');
gotoxy(32,12); writeln('= BANGUN DATAR =');
gotoxy(32,13); writeln('=======================');

gotoxy(30,24); textcolor(blink); write('[ Tekan ENTER Untuk Keluar ]');
readln;
end.