PROGRAM PENJUALAN PASCAL

Program Nota_Penjualan(layar);
uses wincrt;
var nm_plg,alm_plg,tgl:string;

hrg_kel,Q_kel,jml_kel,hrg_bola,Q_bola,jml_bola,hrg_boneka,Q_boneka,jml_boneka:longint;
total:real;
disk:real;
bayar:real;


begin
write('Nama Pelanggan :');readln(nm_plg);
write('Alamat Pelanggan :');readln(alm_plg);
write('tanggal :');readln(tgl);
hrg_kel:=750;
Q_kel:=50;
jml_kel:=hrg_kel*Q_kel;
hrg_bola:=5800;
write('Masukan Banyak Bola :');readln(Q_bola);
jml_bola:=hrg_bola*Q_bola;
write('Masukan Harga Boneka :');readln(hrg_boneka);
Q_boneka:=3;
jml_boneka:=hrg_boneka*Q_boneka;
total:=jml_kel+jml_bola+jml_boneka;
disk:=total*0.1;
bayar:=total-disk;
clrscr;
writeln('Nama : Ayesa Putri');
writeln('NIM :2010.110.000198');
writeln;
writeln('Nota Penjualan Mainan');
writeln('Toko " Ayo Bermain"');
writeln;
writeln('Nama Pelanggan:',nm_plg);
writeln('Alamat :',alm_plg);
writeln('tanggal :',tgl);
writeln;
writeln('Macam Barang Dan Pembelian:');
write('Kelereng:Harga Satuan :',hrg_kel);gotoxy(30,12);write('Banyak:',Q_kel);
gotoxy(50,12);writeln('Jumlah:',jml_kel);
write('Bola :Harga Bola :',hrg_bola);gotoxy(30,13);writeln('Banyak:',Q_bola);
gotoxy(50,13);writeln('Jumlah:',jml_bola);
write('Boneka :Harga Satuan :',hrg_boneka);gotoxy(30,14);writeln('Banyak:',Q_boneka);
gotoxy(50,14);writeln('Jumlah:',jml_boneka);
Gotoxy (50,15);
writeln('===============[+]');
gotoxy(37,16);
writeln('Total ',total);
gotoxy(37,17);
writeln('Diskon 10% ',disk);
gotoxy(50,18);
writeln('================[-]');
gotoxy(37,19);
write( 'Jumlah Bayar ',bayar);
readln;
donewincrt;

end.
********Selamet Mencoba********