Selasa, 03 November 2015

contoh program pascal

program kuis;
uses crt;
label
     star,stop;
const
     judul = 'DATA PENJUALAN';
     judul_B = 'maju mundur';
var
   nama_pembeli, nama_barang : string [25];
   alamat_pembeli : string [30];
   kode_barang, satuan_barang : string [6];
   no_hp : string [12];
   harga_barang, jumlah_beli, jumlah_bayar : longint;
   diskon, total_bayar: real;
begin
clrscr;
     nama_pembeli := 'anang kurniawan';
     alamat_pembeli := 'tanjung genting';
     no_hp := '081367253832';
     kode_barang := 'EQ47FW';
     nama_barang := 'Minyak Goreng';
     satuan_barang := 'Kg';
     harga_barang := 150000;
     jumlah_beli := 4;
     jumlah_bayar := harga_barang * jumlah_beli;
     diskon := 0.1 * jumlah_bayar;
     total_bayar := jumlah_bayar - diskon;
     writeln('        ',judul);
     writeln('      ',judul_b);
     writeln('=================================');
     goto star;
     write('lanjutkan');
     write('tidaak ada yang salah');
star:
     writeln('Nama Pembeli      : ',nama_pembeli);
     writeln('Alamat Pembeli    : ',alamat_pembeli);
     writeln('No Hp             : ',no_hp);
     writeln('Kode Barang       : ',kode_barang);
     writeln('Nama Barang       : ',nama_barang);
     writeln('Satuan Barang     : ',satuan_barang);
     writeln('Harga Barang      : ',harga_barang);
     writeln('Jumlah Beli       : ',jumlah_beli);
     writeln('Jumlah Bayar      : ',jumlah_bayar);
     writeln('Diskon            : ',diskon);
     writeln('Total Bayar       : ',total_bayar);
     writeln('');
     goto stop;
     write('data sudah siap');
     write('berikutnya');
stop:
     writeln('Terima Kasih Sudah datang');
readln;
end.