Minggu, 10 September 2017

script membuat smart kalkulator dengan python


Assalamu'alaikum Wr. Wb

Hello sobat ,pada kesempatan ini saya akan membagikan script smart kalkulator dengan python.
di sini saya mengunakan  modul tkinter,modul tkinter  adalah salah satu modul yang di gunakan  untuk membuat program GUI di python,kita tidak perlu mengistallnya  karena modul ini bawaan dari python.Tkinter menyediakan berbagai komponen seperti label,tombol,teks,menu,kotak yang mana komponen sering di gunakan dalam aplikasi GUI,untuk mengunakan modul tkinter kita harus memanggilnya terlebih dahulu,caranya dengan menulis di teks editor
import tkinter
atau
from tkinter import *
Setelah itu kita bisa memanggil komponen-kompenen yang  tersedia pada modul tkinter.
itu penjelasan sinkat mengenai modul tkinter.
sekarang kita masuk ke script pembuatan smart kalkulator di python


from tkinter import*#memanggil modul tkinter
import math#memanggil modul math
layar=Tk()#layar nama dari tkinter
layar.title("Kalkulator")#membuat titlle  dari tkinter
layar['background']="steel blue"#warna background dari tkinter

text_masukan=StringVar()#dklarasikan  teks masukan
sin=math.sin#memanggil fungsi sin yang ada di modul math
cos=math.cos#memanggil fungsi cos yang ada di  modul math
tan=math.tan#memanggil fungsi tan yang ada di modul math

operator=""
def keluaran(numbers):#fungsi keluaran
    global operator
    operator=operator+str(numbers)

    text_masukan.set(operator)#memasukan  hasil operator ke dalam teks masukan
def hapussemua():# fungsi clear
    global operator
    operator=""
    text_masukan.set("")#menghapus semua operator dan numbers yang ada di teks masukan

def cetakhasil(): #fungsi keluaran
    global operator
    cetak=str(eval(operator))#logika dari operator matematika
    text_masukan.set(cetak)#memasukan hasil ke teks masukan

#Kolom keluaran
kk=Entry(layar,bd=20,bg="powder blue",
font=("arial",25,"bold"),relief="ridge",
textvariable=text_masukan,justify="right")

kk.grid(columnspan=4)

#tombol row pertama
tblsin=Button(layar,bd=5,font=("arial",20,"bold"),
bg="powder blue",text="Sin",relief="sunken",
command=lambda:keluaran("sin"))
tblsin.grid(row=1,column=0)

tblcos=Button(layar,bd=5,font=("arial",20,"bold"),
bg="powder blue",text="Cos",relief="sunken",
command=lambda:keluaran("cos"))
tblcos.grid(row=1,column=1)

tbltan=Button(layar,bd=5,font=("arial",20,"bold"),
bg="powder blue",text="Tan",relief="sunken",
command=lambda:keluaran("tan"))
tbltan.grid(row=1,column=2)

tblpangkat=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",text="^",relief="sunken",
command=lambda:keluaran("**"))
tblpangkat.grid(row=1,column=3)



#tombol row ke dua
tbl7=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",text=7,relief="sunken",
command=lambda:keluaran(7))
tbl7.grid(row=2,column=0)

tbl8=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",text=8,relief="sunken",
command=lambda:keluaran(8))
tbl8.grid(row=2,column=1)

tbl9=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",text=9,relief="sunken",
command=lambda:keluaran(9))
tbl9.grid(row=2,column=2)

bagi=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",text="/",relief="sunken",
command=lambda:keluaran("/"))
bagi.grid(row=2,column=3)


#tombol row ke tiga
tbl4=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",text=4,relief="sunken",
command=lambda:keluaran(4))
tbl4.grid(row=3,column=0)

tbl5=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",text=5,relief="sunken",
command=lambda:keluaran(5))

tbl5.grid(row=3,column=1)
tbl6=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",text=6,relief="sunken",
command=lambda:keluaran(6))
tbl6.grid(row=3,column=2)

kurang=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",text="-",relief="sunken",
command=lambda:keluaran("-"))
kurang.grid(row=3,column=3)


#tombol row ke emapat
tbl1=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",text="1",relief="sunken",
command=lambda:keluaran(1))
tbl1.grid(row=4,column=0)

tbl2=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",text=2,
relief="sunken",command=lambda:keluaran(2))
tbl2.grid(row=4,column=1)

tbl3=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",relief="sunken",text=3,
command=lambda:keluaran(3))
tbl3.grid(row=4,column=2)

kali=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",relief="sunken",text="x",
command=lambda:keluaran("*"))
kali.grid(row=4,column=3)

#tombol row ke lima
tblTT=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",text=".",relief="sunken",
command=lambda:keluaran("."))
tblTT.grid(row=5,column=0)

tbl0=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",text=0,relief="sunken",
command=lambda:keluaran(0))
tbl0.grid(row=5,column=1)

tblH=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",text="=",relief="sunken",
command=cetakhasil)
tblH.grid(row=5,column=2)

tmb=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",text="+",relief="sunken",
command=lambda:keluaran("+"))
tmb.grid(row=5,column=3)

#tombol hapus
hapus=Button(layar,bd=15,bg="powder blue",
font=("arial",10,"bold"),text="clear",
relief="sunken",width=20,height=3,command=hapussemua)
hapus.grid(row=6,columnspan=2)

#tombol buka kurung
bk=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",text="(",relief="sunken",
command=lambda:keluaran("("))
bk.grid(row=6,column=2)
#Tombol tutup kurung
tk=Button(layar,bd=10,font=("arial",20,"bold"),
bg="powder blue",text=")",relief="sunken",
command=lambda:keluaran(")"))
tk.grid(row=6,column=3)

layar.mainloop()

inila script membuat  smart kalkulator di python,lalu di run aja maka hasilanya akan tampak seperti di bawah ini























sekian dulu yaa semoga bermanfaat:v

Minggu, 12 Maret 2017

Mengkorvesikan waktu dengan bahasa c++

Bahasa c++ adalah pengembangan dari bahasa c,bahasa c ini termaksut bahasa pemrograman tingkat menengah dan Pencipta bahasa c adalah Brian W. Kernighan dan Dennis M. Ritchie,standar asli dari bahasa c adalah unix, c++ di buat satu dekade setelah bahasa c.
disini saya aka memposting script menkorvesikan watu dengan c++ dan sofware yang digunkan adalah  dev c++,bagi sobat yang belum punya sofware c++  di pc,bisa di download disini

ini lah script mengkonversikan waktu dengan c++

 #include <iostream>
using namespace std;

main (){
    int j,m,d,pilihan,i;   
   
    cout<<"\t\tkonversi waktu\n\n";
    cout<<"1.jam ke menit"<<endl;
    cout<<"2.jam ke detiik"<<endl;
    cout<<"3.menit ke detik"<<endl;
    cout<<endl;
   
    cout<<"pilihan  anda  :";
    cin>>pilihan;
    cout<<"\n"; 
    switch (pilihan)
    {
    case 1:
        cout<<"masukan jam  :";
        cin>>j;
        m=j*60;
        cout<<j <<" jam  sama dengan "<< m<<" menit ";
        break;
    case 2:
        cout<<"masukan jam  :";
        cin>>j;
        d=j*3600;
        cout<<j<<" jam sama dengan "<<d<<" detik";
        break;
    case 3:
        cout<<"masukan menit   :";
        cin>>m;
        d=m*60;
        cout<<m<<" menit sama dengan "<<d<<" detik";
        break;


    }   

}


maka outpu akan tampak seperti di bawah ini


Sabtu, 11 Februari 2017

Bahasa pemrograman



Bahasa pemrogramana atau juga bisa di sebut sebagai bahasa komputer adalah intruksi standar untuk memerintah sebuah komputer.banyak macam dari bahasa pemrogram seperti pascal,bahasa c/c++,bahasa visual basic,java,Python,perl dan masi banyak yang lainya.
sebelum kita membuat sebuah program sebaiknya kita harus tau dulu apa itu algoritma,saya ambil dari beberapa sumber pengertian dari algoritma yaitu sebagai berikut:
Menurut kamus besar Bahasa Indonesia terbitan balai pustaka tahun 1988,"Algoritma adalah urutan logis pengambilan putusan untuk pemecahan suatu masalah"
Menurut Microsof BOOK-shelf,"algortma adalah urutan langkah-langkah logis yang berhingga untuk memeacahkan masala logika atau matematika"
dan dapat di simpulakan algoritma adalah urutan langkah-langkah untuk menyelesaikan suatu masalah. Algoritma ini di buat dengan tulisan tangan,dan setelah itu baru di buat programnya dengan bahasa pemrograman,algorima dan bahasa pemrograman mempunyai syntax yang berbeda.
di blog ini saya akan meposting beberpa script dari bahasa pemrograman.















Jumat, 10 Februari 2017

membuat program sederhana dengan Python

Assalamu'alaikum Wr. Wb.
di sini saya meposting bahasa progam sederhan yang di buat dengan bahasa pemrograman python,banyak text editor yang bisa digunkan untuk membuat program python seperti IDLE(text editor bawaan saat mengistal python),sublime text,notepad++, dan masi banyak yang lainnya.saya di sini mengunkan notepad++ karna saya suda biasa mengunakannya.sebelum membuat program python sobat harus punya dulu software python di pc sobat. klau tidak ada sobat bisa download disini
inilah scrip sederhana bahasa pemrograman python

 

1.menghitung luas segitiga

 

#program luas dan keliling segitiga
print("menghitung luas segitiga")
a=int(input("panjang alas ="))
t=int(input("tinggi ="))
print("-----------------------")
s=2*a
luas=a*t/2
keliling=s+s+s
print("luas =",luas)
print("keliling =",keliling)
 


hasilnya akan tampak seperti di bawah ini







 

2.menacari upa kerja dalam 1 minggu

 
#program menghitung upa kerja per minggu
print("menghitung upa kerja karja karyawan perminggu")
print()
nama=(input("nama anda ="))
jkerja=int(input("masukan jam kerja ="))
upaperjam=int(input("upa per jam =RP."))
if (jkerja<=35):
upatotal=jkerja*upaperjam #if dengan kondisi diberi jarak
else:
upatotal=jkerja*upaperjam+35*upaperjam #else dengan kondisi diberi jarak
print("upa kerja anda dalam 1 minggu =RP.",upatotal)
print("----------------------------------------")
print("karyawan",nama,"menerima upa dalam 1 minggu=RP.",upatotal)
hasilnya akan tampak seperti di bawah ini


hasilnya akan tampak seperti di bawah ini







Sobat bisa langsung copt dan pastekan k pc sobat,savenya harus pakai(.py)
Sekian dulu ya ,semoga bermanfaat

Script kasir sederhana penghitung harga diskon mengunakan c++


Assalamu'alaikum Wr. Wb.
Saya disini akan memposting  script membuat kasir sederhana dengan c++

inilah script membuat kasir sederhana

 #include<"iostream">// hilangkan kutip 2 sebelum di eksekusi di dev c++
using namespace std;
main(){
int hbarang,diskon,sdisko ,
minyak,susu,nbarang,jml,totalharga,
totalpem,totaldiskon,byr,kembalian;
char mad;
do{
cout<<"harga barang\n\n";
cout<<"BAJU KAOS :100000\n";
cout<<"JEANS :250000\n";
cout<<"SEPATU :220000\n";
cout<<"JAM TANGAM :170000\n";
cout<<"BAJU KAOS LENGAN PANJANG :140000\n";
cout<<"KEMEJA :240000\n\n";
cout<<"----------------------------------------\n";
cout <<"Daftar nama barang yang di diskon\n\n";
cout<<"1.BAJU KAOS BELI 3 DAPAT DISKON 15%\n";
cout<<"2.JEAS BELI 3 DAPAT DISKON DISKON 30%\n";
cout<<"3.SEPATU BELI 3 DAPAT DISKON 30%\n";
cout<<"4.JAM TANGAN BELI 3 DAPAT DISKON 10%\n";
cout<<"5.BAJU KAOS LENGAN PANJANG BELI 3 DAPAT DISKON 15%\n";
cout<<"6.BAJU KEMEJA BELI 3 DAPAT DISKON 15%\n\n";
cout <<"masukan kode barang yang mau di beli :";
cin >>nbarang;
switch (nbarang){
case 1:
cout <<'\n'<<"baju kaos\n";
hbarang=100000;
cout<<"jumlah barang :";
cin>>jml;
totalpem=jml*hbarang;
if (jml>=3)
totaldiskon=hbarang*jml*0.15;
else
totaldiskon=hbarang*jml;
if (jml>=3)
totalharga=totalpem-totaldiskon;
else
totalharga=totalpem;
cout<<"total pembayaran :RP "<< totalharga << endl;
cout<<"DIBAYAR :RP ";
cin>>byr;
kembalian=byr-totalharga;
if (byr < totalharga)
cout<<"maaf transaksik tidak bisa dilakukan\n";
cout<<"Kembalian :RP" << kembalian << endl;
cout<<"ada yan lain(y/t) :";
cin>>mad;
break;
case 2:
cout <<'\n'<<"jeans\n";
hbarang=250000;
cout<<"jumlah barang :";
cin>>jml;
totalpem=jml*hbarang;
if (jml>=3)
totaldiskon=hbarang*jml*0.3;
else
totaldiskon=hbarang*jml;
if (jml>=3)
totalharga=totalpem-totaldiskon;
else
totalharga=totalpem;
cout<<"total pembayaran :RP."<< totalharga<< endl;
cout<<"DIBAYAR :RP.";
cin>>byr;
kembalian=byr-totalharga;
if (byr < totalharga)
cout<<"maaf transaksik tidak bisa dilakukan\n";
cout<<"Kembalian :RP."<< kembalian<< endl;
cout<<"masih ada(Y)/(T) :";
cin>>mad;
break;
case 3:
cout <<'\n'<<"sepatu\n";
hbarang=220000;
cout<<"jumlah barang :";
cin>>jml;
totalpem=jml*hbarang;
if (jml>=3)
totaldiskon=hbarang*jml*0.15;
else
totaldiskon=hbarang*jml;
if (jml>=3)
totalharga=totalpem-totaldiskon;
else
totalharga=totalpem;
cout<<"total pembayaran :RP."<< totalharga <
cout<<"DIBAYAR :RP.";
cin>>byr;
kembalian=byr-totalharga;
if (byr < totalharga)
cout<<"maaf transaksik tidak bisa dilakukan\n";
cout<<"Kembalian :RP. "<< kembalian<< endl;
cout<<"masi ada(Y)/(T) :";
cin>>mad;
break;
case 4:
cout <<'\n'<<"jam tangan\n";
hbarang=170000;
cout<<"jumlah barang :";
cin>>jml;
totalpem=jml*hbarang;
if (jml>=3)
totaldiskon=hbarang*jml*0.10;
else
totaldiskon=hbarang*jml;
if (jml>=3)
totalharga=totalpem-totaldiskon;
else
totalharga=totalpem;
cout<<"total pembayaran :RP." << totalharga << endl;
cout<<"DIBAYAR :RP.";
cin>>byr;
kembalian=byr-totalharga;
if (byr < totalharga)
cout<<"maaf transaksik tidak bisa dilakukan\n";
cout<<"Kembalian :RP." << kembalian << endl;
cout<<"masih ada(y)/(t) :";
cin>>mad;
break;
case 5:
cout <<'\n'<<"baju kaos lengan panjang\n";
hbarang=140000;
cout<<"jumlah barang :RP. ";
cin>>jml;
totalpem=jml*hbarang;
if (jml>=3)
totaldiskon=hbarang*jml*0.15;
else
totaldiskon=hbarang*jml;
if (jml>=3)
totalharga=totalpem-totaldiskon;
else
totalharga=totalpem;
cout<<"total pembayaran : "<< totalharga << endl;
cout<<"DIBAYAR :RP.";
cin>>byr;
kembalian=byr-totalharga;
if ( byr < totalharga)
cout<<"maaf transaksik tidak bisa dilakukan\n";
cout<<"Kembalian :RP."<< kembalian << endl;
cout<<"masi ada(y)/(t) :RP.";
cin>>mad;
break;
case 6:
cout <<'\n'<<"baju kemeja\n";
hbarang=240000;
cout<<"jumlah barang :";
cin>>jml;
totalpem=jml*hbarang;
if (jml>=3)
totaldiskon=hbarang*jml*0.15;
else
totaldiskon=hbarang*jml;
if (jml>=3)
totalharga=totalpem-totaldiskon;
else
totalharga=totalpem;
cout<<"total pembayaran :"<< totalharga << endl;
cout<<"DIBAYAR :RP.";
cin>>byr;
kembalian=byr-totalharga;
if (byr < totalharga)
cout<<"maaf transaksik tidak bisa dilakukan\n";
cout<<"Kembalian :RP." << kembalian << endl;
cout<<"masi ada(y)/(t) :";
cin>>mad;
break;
default:
cout<<"Kode yang anda masukkan tidak ada";
}
}
while (mad=='y');
cout<<"Terimah Kasih telah memakai program ini ";
while(mad/='Y')
return 0;
}

output nya akan tampak seperti dibawah ini



script menghitung rental warnet mengunakan c++

ini scrip sederhan yang untuk menghitung rental warnet,ini mungkin berguna bagi sobat yang mempunyai warnet hehehe,sobat bisa mengeditnya sesuai kenginan sobat.

inilah scriptnya
#include <"iostream">//hapus tanda kutip sebelum meeksekusinya
using namespace std;
main()
{
int jam,menit,detik,mulai,selesai,
totalbayar,bayar,kembalian,lamabermain,paket;
cout<<" menghitumg rental warnet\n\n";
cout<<"lama bermain lebih dari 120 menit maka akan masuk ke menu paket\n\n";
cout<<"masukan lama bermain (menit) :";
cin>>lamabermain;
cout<<"-----------------------------\n";
if (lamabermain<=20)
{totalbayar=1000;
}
else if (lamabermain>20& lamabermain<=40){
totalbayar=2000;
}
else if(lamabermain>40 & lamabermain<=60)
{totalbayar=3000;
}
else if (lamabermain>60 & lamabermain<=80) {
totalbayar=4000;
}
else if (lamabermain>80 & lamabermain<=90) {
totalbayar=5000;
}
else if (lamabermain>90 & lamabermain<=120) {
totalbayar=6000;
}
else if (lamabermain>120){
cout<<"paket warnet\n";
cout<<"1.paket 2 jam\n";
cout<<"2.paket 3 jam\n";
cout<<"3.paket 4 jam\n";
cout<<"4.paket malam :dari jam 09.00 pm s/d 05.00 am\n";
cout<<"pilih paket :";
cin>>paket;
cout<<"-----------------------------\n";
}
if (paket==1){
totalbayar=5000;
}
else if (paket==2){
totalbayar=7000;
}
else if (paket==3){
totalbayar=10000;
}
else if (paket==4){
cout<<"anda ambi paket malam\n";
totalbayar=15000;
}
else if (paket>5){
cout<<"pilhan paket tidak ada\n";
}
cout<<"total bayar :RP."<< totalbayar << endl;
cout<<"bayar :RP.";
cin>>bayar;
kembalian=bayar-totalbayar;
cout<<"kembalian :RP."<< kembalian << endl;
return 0;
}

ini output dari script diatas









 jika sobat memasukan lama bermain lebih dari 120 menit,maka sobat akan diarahkan ke menu paket,yang tampak seperti dibawah ini











Sekian dulu ya ,semoga bermanfaat

Script membuat menu pakai procedure dengan dev pascal

Assalamu'alaikum Wr. Wb.
Hello sobat, untuk kali ini saya akan memposting script mebuat menu pakai procedure dengan dev pascal, ini akan menampilkan beberapa menu pilhan yang bisa sobat pilih.


ini lah scriptnya

program menu;
uses crt;
procedure kotak(x1,y1,x2,y2:integer;latar,tulisan:byte);
var
i:integer;
begin
textbackground(latar);
textcolor(tulisan);
window(x1,x2,y1,y2);
clrscr;
window(1,1,80,25) ;
gotoxy(x1,y1);writeln(#201);
gotoxy(x2,y1);write(#191);
gotoxy(x2,y2);write(#217);
gotoxy(x1,y2);write(#192);
for i:=x1+1 to x2-1 do
begin
gotoxy(i,y1);write(#196);
gotoxy(i,y2);write(#196);
end;
for i:=y1+1 to y2-1 do
begin
gotoxy(x1,i);write(#179);
gotoxy(x2,i);write(#179);
end;
end ;
procedure garis(x1,x2,y:integer;latar,tulisan:byte);
var
i:integer;
begin
textbackground(latar);
textcolor(tulisan);
gotoxy(x1,y);write(chr(195));
gotoxy(x2,y);write(#180);
for i :=x1+1 to x2-1 do
begin
gotoxy(i,y);write(#196);
end;
end;
procedure hitung_bujur_sangkar;
var
sisi,luas:real;
begin
kotak(10,5,50,10,blue,white);
gotoxy(13,6);write('perhitungkan bujur sangkar');
garis(10,50,7,blue,white);
gotoxy(11,8);write('sisi : ');
gotoxy(11,9);write('luas sisi bujur sangkar : ');
gotoxy(39,8);readln(sisi);
luas:=sisi*sisi;
gotoxy(39,9);writeln(luas:4:2);
readln
end;
procedure hitung_segitiga;
var
alas,tinggi,luas:real;
begin
kotak(25,9,60,15,RED,BLACK);
gotoxy(30,10);writeln('perhitungan segitiga');
garis(25,60,11,RED,BLACK);
gotoxy(27,12);write ('panjang alas : ');
gotoxy(27,13);write ('tinggi : ');
gotoxy(27,14);WRITE ('luas segitiga : ');
gotoxy(47,12);readln(alas);
gotoxy(47,13);readln(tinggi);
luas:=0.5 * alas*tinggi;
gotoxy(47,14);writeln(luas:4:2);
readln;
end;
procedure pangkat;
var a,p:real;
hasil:real;
begin
kotak(25,9,60,17,black,white);
gotoxy(35,10);writeln ('perpangkatan');
garis(25,60,11,black,white);
gotoxy(35,10);writeln ('perpangkatan');
gotoxy(26,12);write ('masukan angka :');
gotoxy(26,13);write ('pangkat :');
gotoxy(26,14);write ('hasil :');
gotoxy(43,12);readln(a);
gotoxy(43,13);readln(p);
hasil:=exp(p*ln(a));
gotoxy(43,14);writeln(hasil:2:2);
readln;
end;
procedure faktorial;
var
i,nilai:integer;
faktorial,hasil:real;
begin
kotak(25,9,60,17,brown,black);
gotoxy(35,10);writeln ('faktorial(!)');
garis(25,60,11,brown,black);
gotoxy(26,12);write ('masukan angka :');
gotoxy(26,14);write ('hasil :');
gotoxy(44,12);readln(i);
faktorial:=1;
for nilai:=i downto 1 do
faktorial:=faktorial*nilai;
gotoxy(44,14);writeln(faktorial:0:0);
readln;
end;
var
pilihan:integer;
begin //program utama
repeat
clrscr;
kotak(25,9,55,22,green,yellow);
gotoxy(38,10);writeln('menu');
garis(25,55,11,green,yellow);
gotoxy(26,12);writeln('1.bujur sangkar');
gotoxy(26,13);writeln('2.segitiga');
gotoxy(26,14);writeln('3.perpangkatan');
gotoxy(26,15);writeln('4.faktorial');
gotoxy(26,16);writeln('0. keluar');
garis(25,55,20,green,yellow);
gotoxy(26,21);write('pilihan [1/2/3/0] ?');
readln(pilihan);
if pilihan=1 then
begin
hitung_bujur_sangkar;
end
else
if pilihan=2 then
begin
hitung_segitiga;
end
else
if pilihan=3 then
begin
pangkat;
end
else
if pilihan=4 then
faktorial;
until pilihan=0;
readln;
end.


copy script lalu pastekan ke pc sobat dan jalan program tersebut,maka outputnya akan seperti dibawa ini.











di atas ini adalah menu utamanya,

jika sobat mau memi menu untuk menampilkan menghitung luas bujur sangkar maka tulis 1 dan tamiplannya akan tampak seperti dibawah ini













jika sobat suda selesai dengan menu mencari luas bujur sagkar,tekan enter maka sobat akan kembali ke menu utamanya lagi,dan sperti itu seterusnya dan jika sobat ingin keluar dari program ini maka tulis angka 0. dan ini adala tampilan dari beberapa menu yang bisa sobat pi









jika memilih 2










jika memulih 3










jika memilih 4