uses crt;
const
pi=3.14;
label mulai;
var
pilih,Hari,bulan,tahun,sisa,x,ra,t :integer;
r,L,vk,vt :real;
nama,jawab:string;
begin
textbackground(11);
clrscr;
begin
textcolor(15);
gotoxy(32,7);write('Masukkan nama anda');
gotoxy(35,10);write(#91);
gotoxy(45,10);write(#93);
gotoxy(37,10);readln(nama);
clrscr;
gotoxy(31,7);writeln('Selamat datang ',nama,' ! ');
gotoxy(20,10);write('Silahkan tekan ENTER untuk
melanjutkan program');
readln;
end;
mulai:
repeat
begin
clrscr;
writeln('Silahkan pilih program');
write('yang ada dibawah ini :');
writeln;
writeln;
writeln;
writeln('1. Konversi Hari');
writeln('2. Luas Lingkaran');
writeln('3. Volume Kerucut');
writeln('4. Volume Tabung');
writeln('5. Keluar');
writeln;
write('Masukan Pilihan (1/2/3/4/5) : ');read(pilih);
if pilih = 1 then
begin
gotoxy(34,1);write(#5);
gotoXY(36,1);write(nama,' ingin mengkonversi
waktu ');
gotoxy(36,31);write(#5);
gotoXY(35,5);
write('Masukkan jumlah hari = '); readln(Hari);
tahun:=Hari div 360;
sisa:=hari mod 360;
bulan:=sisa div 30;
x:=sisa mod 30;
gotoXY(35,6);
write('Jadi, ',Hari,' hari = ',tahun,' tahun
',bulan,' bulan ',x,' hari');
gotoxy(35,7);readln;
end;
if pilih = 2 then
begin
gotoxy(34,1);write(#5);
gotoXY(36,1);write(nama,' ingin menghitung luas
lingkaran ');
gotoxy(36,31);write(#5);
gotoXY(35,4);
write('Jari-jari = '); readln(r);
L:=pi*r*r;
gotoXY(35,6);
writeln('Luas Lingkaran = ',L:0:2);
gotoxy(35,7);readln;
end;
if pilih = 3 then
begin
gotoxy(34,1);write(#5);
gotoXY(36,1);write(nama,' ingin menghitung
volume kerucut ');
gotoxy(36,31);write(#5);
gotoXY(35,5);
write('Jari-Jari alas = '); readln(ra);
gotoXY(35,7);
write('Tinggi
= '); readln(t);
vk:=(1/3)*pi*ra*ra*t;
gotoXY(35,9);
writeln('Volume Kerucut = ',vk:0:2);
gotoxy(35,10);readln;
end;
if pilih = 4 then
begin
gotoxy(34,1);write(#5);
gotoXY(36,1);write(nama,' ingin menghitung
volume tabung ');
gotoxy(36,31);write(#5);
gotoXY(35,5);
write('Jari-jari alas = '); readln(ra);
gotoXY(35,7);
write('Tinggi
= '); readln(t);
vt:=pi*ra*ra*t;
gotoXY(35,9);
writeln('Volume tabung = ',vt:0:2);
gotoxy(35,10);readln;
end;
readln;
end;
until
(pilih = 5);
clrscr;
gotoxy(19,7);write('Apakah anda yakin ingin keluar dari
program ini ? ');
gotoxy(32,9);readln(jawab);
if (jawab ='Tidak') or (jawab='tidak') then goto mulai;
clrscr;
gotoxy (23,9); write (#174,' Terima kasih telah menggunakan
program ini ',#175);
gotoxy(32,11); write('Goodbye ',#247, '..... Annyeong!!');
gotoxy(1,24); textcolor(12); write('created by :
@niiJoonalmight');
readln;
end.
Hasil run :
-
Masukkan nama
Menu program
Apabila pilihan=5 maka program menampilkan tampilan seperti dibawah ini!
Jika keluar maka akan muncul tampilan dibawah ini.
Jika tidak ingin keluar maka akan kembali ke menu semula.