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.

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

script menghitung gaji karyawan dengan dev pascal

Assalamu'alaikum Wr. Wb.
Hello sobat,untuk kali ini saya akan memposting script menghitung gaji karyawan dengan dev pascal, ini adalah tugas kulia saya, saya cukup kesulitan menyelesaikannya,untuk sobat mendapakan kendala yang sama muda mudahan script ini bisa membantu sobat dalam menyelesaikan tugas sobat.
untuk mempelajari sebua bahasa pemrograman memang susah karena setiap bahasa pemrogramam mempunyai koding yang berbeda dalam setiap bahasa pemrograman,saran dari saya sobat tidak perlu menghafal  kodingnya cukup dengan sering latihan dengan banyak memecahkan kasus dari pemrograman.

 ini lah script menghitung gaj karyawan dengan dev pascal



program menghitung_gaji_karyawan;
uses crt;
var
NAMA,JABATAN:string;
STATUS:char;
BANYAK_ANAK:BYTE;
TUNJANGAN_KELUARGA,TUNJANGAN_ANAK,
GAJI_BERSI,PAJAK,TOTAL_TUNJANGAN,
GAJI_POKOK,GAJI_KOTOR:REAL;
begin
window(1,1,80,30);textbackground(red);
clrscr;
textcolor(black);
clrscr;
write('Nama Anda : ');readln(nama);
write('Jabatan :');readln(jabatan);{jabatan harus dengan huruf besar}
write('menikah :');readln(status);
if status='Y' then
begin
write('banyak anak :');readln(BANYAK_ANAK);
end;
if status='Y' then
PAJAK:=0.05
else
PAJAK:=0.25;
writeln('----------------------------------------');
IF (JABATAN='direktur') or (jabatan='DIREKTUR')then
begin
gaji_pokok:=50000000
end
else
if (jabatan='manager') or (jabatan='MANAGER')then
begin
gaji_pokok:=3000000
end
else
if (jabatan='staf') or (jabatan='STAF') then
begin
gaji_pokok:=2000000
end;
writeln('Gaji Pokok :RP.',gaji_pokok:0:0);
if (status='Y') OR (status='Y') THEN
tunjangan_keluarga:=0.2*gaji_pokok;
if (STATUS='Y') OR (STATUS='Y') THEN
TUNJANGAN_ANAK:=0.1*gaji_pokok/banyak_anak;
TOTAL_TUNJANGAN:=Tunjangan_keluarga+Tunjangan_anak;
GAJI_KOTOR:=GAJI_POKOK+Tunjangan_keluarga;
if STATUS ='Y' THEN
PAJAK:=0.25*GAJI_POKOK
else
PAJAK:=0.5*GAJI_POKOK;
GAJI_BERSI:=gaji_kotor-pajak;
writeln('Tunjangan keluarga :RP.',tunjangan_keluarga:0:0);
writeln('Tunjangan Anak :RP.',tunjangan_anak:0:0);
writeln('Total Tunjangan :RP.',total_tunjangan:0:0);
writeln('Gaji Kotor :RP.',gaji_kotor:0:0);
if status='Y' then
writeln('Pajak 2.5% :RP.',Pajak:0:0)
else
writeln('Pajak 5 % :RP.',Pajak:0:0);
writeln('Gaji Bersi :RP.',gaji_bersi:0:0);
readln;
end.  

inilah output dari script di atas  
Jika belum menikah

 jika suda menikah

sekian dulu yaa,semoga bermanfaat..

Script membuat kalkulator sedrhana dengan dev pascal

Assalamu'alaikum Wr. Wb.
Pada kesempatan ini saya akan posting script membuat kalkulator sederhana mengunakan dev pascal.
Menurut saya dev pascal ini cukup menarik untuk di pelajari karena tidak terlalu susa menjalankannya. dev pascal ini adalah bahasa pemrograman yang digunakan sebagai pengantar awal dari algoritma,algortima ini di tulis dengan tulisan tangan setelah itu baru di buat programnya mengunakan dev pascal,perbedaan algoritma dengan dev pascal hanya terletak pada syntaxnya .
inilah script membuat calkulator sedehana mengunakan dev pascal

program caluculator_sederhana; uses crt; var X,Y:integer; h:real; Symbol:char; begin gotoxy(18,2);writeln('CalKulator Sederhana'); WRITELN; gotoxy(0,4);writeln('---by : RIFAN HIDAYAT---'); Writeln; writeln('symbol :+ - * / '); wrteln; write('Masukan Angka :');Readln(X); write('MASUKAN Symbol :');Readln(Symbol); write('Masukan Angka :');Readln(Y); if symbol='+' then h:=x+y; if symbol='-' then h:=x-y; if symbol='*' then h:=x*y; if symbol='/' then h:=x/y; writeln('----------------------------------------'); writeln('hasil =',h:2:2); readln; end.

inilah scriptnya sobat bisa langsung mengcopy script dan pastekan ke dev pascal di pc sobay apabila sobat belum mempunyai program dev pascal bisa di download disini
hasinya akan tampak seprti dibawah ini