Blogger templates

Sabtu, 11 Mei 2013

Contoh Program Dengan Menggunakan Turbo Pascal

Contoh Program Pembayaran Diskon Dengan Menggunakan Turbo Pascal -
 Berikut ini adalah contoh program diskon dengan data sebagai berikut :
Program menghitung besar besar pembayaran berdasarkan pembelian :
  1. Diskon diberikan 10% untuk pembelian 100.000 atau lebih,
  2. Diskon diberikan 20% untuk pembelian 500.000 atau lebih.
Maka bentuk programnya adalah sebagai berikut :
program Discount;
uses crt;
var
Harga : longint;
diskon, bayar : real;
begin
    clrscr;
    write('Inputkan Harga : ');read(Harga);
    if (Harga >= 100000) and (Harga < 500000) then
begin
    Diskon := Harga * (10/100);
    Bayar := Harga - Diskon;
    write('Bayar = ' , Bayar:0:0);
end
    else
    id (Harga >= 500000) then
begin
    Diskon := Harga * (20/100);
    Bayar := harga - Diskon;
    write('Bayar = ' , Bayar:0:0);
end
    else
    if Harga < 100000 then
    write('Bayar = ' , Harga);
readkey;
end.

Maka dari program diatas, hasil keluarannya adalah :

Inputkan Harga : 100000
Bayar = 90000


Pembuatan Program mengenai Penjualan 
Contoh Soal

===============================================================
CV. Nugiez Computer
JL. Melati No.11 Yogyakarta
                           Kode Barang  : (Dimasukkan secara manual / INPUT)
                           Jumlah Barang : (Dimasukkan secara manual / INPUT)
                           Nama Barang  : (Muncul secara Otomatis)
                           Harga Satuan  :  (Muncul secara Otomatis)
                           Total Biaya      :  (Muncul secara Otomatis)
===============================================================
dengan ketentuan:
  1. Jika Kode Barang : HD maka, Nama Barang : Harddisk & Harga Satuan : 850000
  2. Jika Kode Barang : MTR maka, Nama Barang : Monitor & Harga Satuan : 550000
  3. Jika Kode Barang : PRNT maka, Nama Barang : Printer & Harga Satuan : 500000
  4. Total Bayar : Jumlah barang * Harga Satuan
maka akan menghasilkan



 dibawah ini adalah listing Programnya...

Uses crt;
Var
Kode_Barang:String;
Jumlah_Barang:Integer;
Total_Bayar:Real;
begin
clrscr;
gotoxy(30,2);
Writeln('CV Nugiez Computer');
gotoxy(25,3);
Writeln('JL.Melati no 11 Yogyakarta');
gotoxy(1,4);
Writeln('*****************************************************');

gotoxy(20,7);
Writeln('Kode Barang   :');
gotoxy(20,8);
Writeln('Jumlah Barang :');

gotoxy(20,10);
Writeln('++++++++++++++++++++++++++++++++');
gotoxy(20,11);
Writeln('+ Nama Barang  +  Harga Satuan +');
gotoxy(20,12);
Writeln('++++++++++++++++++++++++++++++++');
gotoxy(20,13);
Writeln('+              +               +');
gotoxy(20,14);
Writeln('++++++++++++++++++++++++++++++++');
gotoxy(20,16);
Writeln('Total Biaya   :');
gotoxy(45,20);
Writeln('Terima Kasih Atas Kunjungan Anda');
gotoxy(45,21);
Writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');
gotoxy(48,22);
Writeln('Design By. Wulandari Dewi A');

gotoxy(36,7);
Readln(Kode_Barang);
gotoxy(36,8);
Readln(Jumlah_Barang);

gotoxy(23,13);
If Kode_Barang='HD' then
begin
Writeln('Harddisk');
gotox(40,13);
Writeln('850000');
gotoxy(37,16);
Total_Biaya:= Jumlah_Barang * 850000;
Writeln('',Total_Biaya:2:0);
readln;
end;

gotoxy(23,13);
If Kode_Barang='MNTR' then
begin
Writeln('Monitor');
gotox(40,13);
Writeln('550000');
gotoxy(37,16);
Total_Biaya:= Jumlah_Barang * 550000;
Writeln('',Total_Biaya:2:0);
readln;
end;

gotoxy(23,13);
If Kode_Barang='PRNT' then
begin
Writeln('Printer');
gotox(40,13);
Writeln('500000');
gotoxy(37,16);
Total_Biaya:= Jumlah_Barang * 500000;
Writeln('',Total_Biaya:2:0);
readln;
end;
readln;
end.


Demikian hasil serta listing Program mengenai pembuatan Program sederhana menggunakan Turbo Pascal. Semoga bermanfaat dan kalian semua bisa berkreasi membuat program yang lebih lagi dengan menggunakan Turbo Pascal.Terima kasih...
 

Selamat Mencoba dan berkreasi  ^_* 

Tidak ada komentar:

Poskan Komentar

 
TEMPLATE ERROR: Invalid data reference post.url: No dictionary named: 'post' in: ['blog', 'skin', 'view'] TEMPLATE ERROR: Invalid data reference post.url: No dictionary named: 'post' in: ['blog', 'skin', 'view']