Saturday, January 28, 2012

Membuat Contoh Program Pascal

0 komentar
membuat,contoh,sampel,layout,algoritma,listing,contoh-contoh,sederhana,procedure,program,Turbo pascal
Berselang 2 hari saya telah menulis sebuah program berorientasi objek yaitu  Membuat Program visual Foxpro, dimana program tersebut dibuah khusus untuk menghitung mata jumlah mata uang. Program tersebut didesain khusus bagi para pemula yang ingin merintis karirnya di dunia Programmer. Sedangkan untuk program yang satu ini, merupakan program hasil/produksi ana nie, yang kebetulan merupakan tugas perkuliahan, jadi saya pikir tidak ada salahnya klo ana sharing ok.
Dibawah ini merupakan Contoh Program Turbo Pascal yang saya berinama Program Rekening Listrik (Program Pascal) dimana program ini didesain untuk menghitung penggunaan dan berapa yang harus dibayar oleh pengguna kilometer listriknya tersebut.

untuk listing programnya seperti dibawah ini........ :
#include
#include
    long pakai,bayar,beban;
    char nama[50], no [50];
    float pajak;
    int akhir,awal,kwh;
void main()
{
    clrscr();
    cout<<"no rekening ="; cin>>no;
    cout<<"nama pelanggan ="; cin>>nama;
    cout<<"penunjukan meter bulan sebelumnya = ";
    cin>>awal;
    cout<<"penunjukan meter bulan sekarang   = ";
    cin>>akhir;
    cout<<"no. rekening anda adalah "<<
    cout<<"dengan nama "<<
    beban = 30000;
    kwh = akhir-awal;
    if (kwh<=20)
    {
      pakai = kwh * 500;
      pajak = ((pakai + beban) * (10/100));
      bayar = (pakai + beban + pajak);
    }
    else if (kwh <=40)
    {
      pakai = kwh * 800;
      pajak = ((pakai + beban) * (10/100));
      bayar = (pakai + beban + pajak);
    }
    else
    {
      pakai =    (kwh * 1000);
      pajak = (pakai + beban) * (10/100);
      bayar = (pakai + beban + pajak);
    }
    cout<<"anda telah memakai sebanyak "<<<" KWH"<
    cout<<"sehingga total yang anda harus bayar Rp. "<
    return;
}

bagi teman-teman yang merasa kesulitan untuk mengeksekusi program dibawah ini. teman-teman bisa meninggalkan komen atau saran demi kesempurnaan blog saya kedepannya........

Pencarian yang terkait dengan artikel diatas :
membuat,contoh,sampel,layout,algoritma,listing,contoh-contoh,sederhana,procedure,program,turbo Pascal

Leave a Reply

belajar menghargai merupakan modal keberhasilan