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  ^_*