Contoh Listing Program Sederhana menggunakan Turbo Pascal

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


anda bisa mendapatkan aplikasi program Turbo pascal ini dengan mengklik link dibawah ini

Download Turbo Pascal