PBO//study kasus

Program Berorientasi Objek

Study Kasus

• Bila salesman dapat menjual barang hingga 200 ribu, diberikan uang jasa sebesar Rp 10.000 ditambah uang komisi 10%.
• Bila salesman dapat menjual barang di atas 200 ribu, diberikan uang jasa sebesar Rp 20.000 ditambah uang komisi 15%.
• Bila salesman dapat menjual barang di atas 500 ribu, diberikan uang jasa sebesar Rp 30.000 ditambah uang komisi 20%.

Pertanyaan:

a.  Buat program menggunakan IF ELSE

b.  Buat program menggunakan SWITCH CASE

Jawab:

a. Program menggunakan IF ELSE

#include<stdio.h>

#include<conio.h>

#include<iostream.h>

void main()

{

float pendapatan, jasa, komisi, total;

cout<<"Pendapatan Hari Ini Rp.";cin>>pendapatan;

if (pendapatan >= 0 && pendapatan <=200000)

{

jasa=10000;

komisi=0.1 * pendapatan;

}

else if(pendapatan<=500000)

{

jasa=20000;

komisi=0.15*pendapatan;

}

else

{

jasa=30000;

komisi=0.2*pendapatan;

}

total = komisi + jasa;

cout<<"Uang Jasa Rp. "<<jasa<<endl;

cout<<"Uang Komisi Rp. "<<komisi<<endl;

cout<<"======================="<<endl;

cout<<"Hasil Total Rp."<<total<<endl;

getch();

}

Hasilnya:

b.  program menggunakan SWITCH CASE

#include <iostream.h>
void menu ()
{
    cout<<"SILAHKAN MEMILIH OPERATOR YANG ANDA INGINKAN ?\n";
    cout<<"[1]. penjualan hingga 200 ribu\n";
    cout<<"[2]. penjualan di atas 200 ribu\n";
    cout<<"[3]. penjualan di atas 500 ribu\n";
}
int total(int jasa, int komisi) {
    return jasa + komisi;  
}

void pilih () {
    int pilihan;
    float pendapatan, jasa, komisi;
 
    cout<<"Masukkan pilihan anda : "; cin>>pilihan;
    cout<<"Masukkan pendapatan: "; cin>>pendapatan;
cout<<"---------------------------------------------\n";

if (pendapatan >= 0 && pendapatan <=200000)
{
jasa=10000;
komisi=0.1 * pendapatan;
}
else if(pendapatan<=500000)
{
jasa=20000;
komisi=0.15*pendapatan;
}
else
{
jasa=30000;
komisi=0.2*pendapatan;
}
    {
cout<<"Uang Jasa Rp. "<<jasa<<endl;
cout<<"Uang Komisi Rp. "<<komisi<<endl;
cout<<"============================"<<endl;
}
    switch(pilihan) {
        case 1:
            cout<<"total = " <<total(jasa, komisi);
            break;
        case 2:
            cout<<"total = " <<total(jasa, komisi);
            break;
        case 3:
            cout<<"total = " <<total(jasa, komisi);
            break;
        default :
            cout<<"pilihan tidak benar";
            break;
    }
}
int main() {
    menu();
    pilih();
    cin.ignore();
    cin.get();

}


Hasilnya:

Silahkan di coba...

Bagi yang belum punya aplikasinya. Silahkan download microsoft visual C++ 6.0

PBO : Perhitungan matematika

Pemrograman Berorientasi Objek

Program perhitungan dasar matematika

#include <iostream.h>
int main ()
   {
      int a, b;
      int penjumlahan, pengurangan, perkalian;
      float pembagian;
cout <<"masukan nilai a:" << endl;
cin >> a;
cout <<"masukan nilai b:" << endl;
cin >> b;

penjumlahan = a + b;
pengurangan = a - b;
perkalian = a * b;
pembagian = a / b;

cout << a << "+" << b << "=" << penjumlahan << endl;
cout << a << "-" << b << "=" << pengurangan << endl;
cout << a << "*" << b << "=" << perkalian << endl;
cout << a << "/" << b << "=" << pembagian << endl;
return 0;
}

hasilnya:

Menggunakan Rumus Excel di Word

Tidak hanya ms. excel yang memiliki formula/rumus, ternyata ms. word juga memiliki formula/rumus yang sama fungsinya seperti di ms. excel.

Perhatikan tabeldi bawah ini.

No.	Nama Barang	Quantity	Harga Satuan	Total
1	Kebel UTP	20	25000
2	HUB	5	90000
3	Monitor	10	150000
4	RJ 45	100	2000
5	HDD	10	80000
6	Lan Card	40	50000
	Sub Total Harga
	Harga Satuan Terbesar
	Harga Satuan Terkecil
	Jumlah Item Barang

tabel di atas sama halnya pada  ms. excel, yaitu memiliki kolom yang di awali dengan huruf A dan baris yang di awali dengan angka 1. Perbedaannya di ms. excel rumusnya bisa di copas (copy paste), sedangkan di ms. word tidak bisa copas, intinya harus ngetik ulang rumusnya, gak bisa otomatis.

langkah pertama untuk memasukan rumus adalah:

1. tempatkan kursor pada sel yang akan buat rumusnya.
2. masuk ke menu layout, kemudian pilih formula yang bersimbol   fx sehingga muncul tampilan.
3. pada kolom formula ketik rumusnya, OK.

1. untuk menghitung total ketik =(C2*D2)
2. untuk menghitung sub total ketik = sum(above)
3. untuk menghitung harga satuan terbesar ketik =max(D2:D7)
4. untuk menghitung harga satuan terkecil ketik =min(D2:D7)
5. untuk menghitung jumlah item ketik =count(A2:A7)

maka akan di dapat hasilnya seperti berikut:

No.	Nama Barang	Quantity	Harga Satuan	Total
1	Kebel UTP	20	25000	500000
2	HUB	5	90000	450000
3	Monitor	10	150000	1500000
4	RJ 45	100	2000	200000
5	HDD	10	80000	800000
6	Lan Card	40	50000	2000000
	Sub Total Harga			5450000
	Harga Satuan Terbesar			150000
	Harga Satuan Terkecil			2000
	Jumlah Item Barang			6

CATATA

perulangan deret

PERULANGAN DENGAN MENGGUNAKAN VAR X DAN Y

CONTOH PROGRAM PASCAL:

hasilnya:

pascal "percabangan"

1. IF THEN ELSE
2. CASE OF

1. IF THEN ELSE
struktur penulisan:

if exp then statement 1 else statement 2

if exp2 then statement 1 else if exp2 then statement .... dst else statement

Contoh:
Menyebutkan Nama Bulan.

program if_then;
uses wincrt;
var kd_bln : integer;
begin
writeln ('nama-nama bulan');
writeln ('------------------');
write ('masukan kode bulan:,'); readln (kd_bln);
if kd_bln = 1 then
      write ('januari')
else if kd_bulan = 2 then
     write ('februari')
else if kd_bulan = 3 then
     write ('maret')
..... dst
else if kd_bln = 12 then
     write ('desember')
else
    write ('tidak ada bulan ke-13 dst.');
end.


2. CASE OF
contoh :
menyebutkan nama hari

program case_of;
uses wincrt;
var kd_hari : integer ;
begin
writeln ('menghitung nama hari');
writeln ('----------------------');
write ('masukan kode hari:,'); readln (kd_hari);
case kd_hari of
1 : begin
     write ('senin');
     end;
2. : begin
     write ('selasa');
     end;
3 : begin
     write ('rabu');
     end;
4. : begin
     write ('kamis');
     end;
5 : begin
     write ('jumat');
     end;
6. : begin
     write ('sabtu');
     end;
7 : begin
     write ('minggu');
     end;
else
   begin
   write ('tidak ada hari ke-8 dst');
   end;
  end;
end.

PERCABANGAN IF THEN ELSE

1. Satu Kondisi
     if  <kondisi> then
            aksi
          {endif}
jika kondisi benar maka (then) aksi akan dikerjakan dan jika salah tidak dikerjakan apa-apa.
contoh flowchart:

programnya:
uses wincrt;
var nilai : real;
      keterangan : string;
begin
     readln ('nilai');
     if nilai >= 60 then
     keterangan := 'lulus';
{endif}
     writeln (keterangan);
end.

2. Dua Kondisi
    if <kondisi> then
          aksi 1
             else
             aksi 2
     {endif}
contoh flowchart:

programnya:

uses wincrt;
var nilai : real;
      keterangan : string;
begin
     readln ('nilai');
     if nilai >= 60 then
     keterangan := 'lulus'
else
    if nilai <= 60 then
    keterangan := 'tidak lulus';
{endif}
    writeln (keterangan);
end.

contoh program pascal

Assalamualaikum...
Hallo teman-teman semuanya...
kali ini saya akan menulis materi kuliah tentang pascal, bagi yang belum punya aplikasinya silahkan download TPW 1.5 .

• contoh program perkalian

program perkalian;

uses wincrt;

begin

         writeln (6);

         writeln (9);

         writeln ('6*9');

         writeln (6*9);

         writeln ('_____');

end.

hasilnya:

6

9

6*9

54

------

• menghitung luas persegi panjang

program persegi;

uses wincrt;

var l, p, lp : integer;

begin

writeln ('menghitung luas persegi');

writeln ('------------------------');

writeln;

p := 6;

l := 5;

lp := p*l;

writeln ('panjang :', p);

writeln ('lebar:', l);

writeln ('luas persegi :',lp);

end.

hasilnya:

menghitung luas persegi

------------------------

panjang:6

lebar:5 

luas persegi:30