Terimaksih telah bergabung bersama saya. sekaligus membuka blog yang sederhana ini. disini saya menyediakan Program yang telah saya rangkum skaligus dibuat dengan sangat teliti.
Soal :
Buatlah program Nota Penjualan barang dengan ketentuan:
- Nama dan Alamat pembeli diinput
- Nama, Harga satuan dan jumlah barang diinput
- Jika Nama barang yang diinput adalah x maka otomatis program berhenti menginput dan langsung megeluarkan nota pembelian baran
- tampilkan total harga masing2 barang
- tampilkan total harga keseluruhan
- diskon dibuat dalam bentu fungsi dengan ketentuan
- =>5000000 -5%
- 2jt-5jt -3%
- 1jt-2jt 2%
- <1jt 0%
- Total bayar =total harga - diskon
Jawaban ( Lsting Program) :
uses crt;
function Diskon(TH:double):double;
begin
if TH >= 5000000 then
Diskon := TH * 5 /100
else if TH >= 2000000 then
Diskon := TH * 3 /100
else if TH >= 1000000 then
Diskon := TH * 2 /100
else
Diskon := 0;
end;
var
nama: string[25];
alamat: string[50];
nabar : array [1..20] of string[30];
HSatuan, subtot : array[1..20] of double;
jmlBeli: array [1..20] of byte;
id,jBrg : byte;
TotHar, totbay: double;
begin
clrscr;
write('Nama/Toko Pembeli : ' );readln(Nama);
write('Alamat : ' );readln(Alamat);
id:=1;
write('Masukkan Nama Barang [x untuk berhenti] : ' );readln(Nabar[id]);
while nabar[id] <> 'x' do
begin
write('Harga satuan : ' );readln(HSatuan[id]);
write('Jumlah Beli : ' );readln(jmlBeli[id]);
i:=i+1;
write('Masukkan Nama Barang [x untuk berhenti] : ' );readln(Nabar[id]);
end;
jBrg:=i-1;
clrscr;
Writeln(' NOTA PEMBELIAN');
Writeln('Tuan/Toko : ',Nama);
Writeln('Alamat : ',alamat);
Writeln('---------------------------------------------------------------------');
Writeln('|Item|Nama Barang |Harga Satuan |Jumlah beli|Sub Total |');
Writeln('---------------------------------------------------------------------');
{1234567890123456789012345678901234567890123456789012345678901234567890}
for id:= 1 to jBarang do
begin
Gotoxy(1,id+6); write('|',id:2);
Gotoxy(6,id+6); write('| ',Nabar[id]);
Gotoxy(24,id+6); write('| Rp. ',HSatuan[id]:9);
Gotoxy(38,id+6); write('| ',JmlBeli[id]:3);
SubTot[id]:=jmlBeli[id]*HSatuan[id];
Gotoxy(50,id+6); write('| Rp. ',Subtotal[id]:9);
Gotoxy(69,id+6); write('|');
TotHar:=TotHar+SubTot[id];
end;
writeln;
Writeln('---------------------------------------------------------------------');
Writeln('|Total Harga | Rp. ', TotHar:9,'|');
Writeln('|Diskon | Rp. ', Diskon(Tothar):9,'|');
TotBay:=TotHar-Diskon(tothar);
Writeln('|Total Bayar | Rp. ', TotBay:9,'|');
Writeln('---------------------------------------------------------------------');
end;
readln;
end.
Atau anda dapat langngsung download listingnya yang berbentuk pas dibawa ini :
LISTING
PROGRAM
Terimakasih telah mengunjung di blog yang sangat sederhana ini.
ConversionConversion EmoticonEmoticon