Kamis, 10 Juni 2010

Program Nota Belanja Toko dengan Pascal

Berikut ini adalah Source Code Program Nota Belanja Toko dengan Pascal, langsung aja dech, ini dia kodingnya:

program nota;
uses wincrt;
type 
 databrg=record 
 namabrg:string[15]; 
 hargabrg:real;
 kode:string[5];
 jml:integer;
 tot:real;

end; 
var 
jumlahbrg,i,j:byte; 
totalharga:real;
tgl,nama,alamat : string;
barang:array[1..50] of databrg; 
{Masukan Data} 
begin
clrscr;
write('Tanggal Pembelian: ');readln(tgl);
write('Nama Pembeli     : ');readln(nama);
write('Alamat           : ');readln(alamat); 
write('Jumlah Pembelian : ');readln(jumlahbrg); 
for i :=1 to jumlahbrg do 
 begin 
 writeln;writeln('Barang ke ',i:2); 
 with barang[i]do 
 begin
 write('Kode barang  : ');readln(kode); 
 write('Nama Barang  : ');readln(namabrg); 
 write('harga satuan : ');readln(hargabrg);
 write('jumlah barang: ');readln(jml); 
 end; 
 end;

{Menampilkan Hasil}
clrscr;
writeln('                          NOTA BELANJA BARANG');
writeln('                               TOKO ABADI');
writeln('                      Jl. Suka Ngawur No.4 Bangkalan');
writeln;
writeln('Tanggal Pembelian: ',tgl);
writeln('Nama Pembeli     : ',nama);
writeln('Alamat           : ',alamat);
writeln('------------------------------------------------------------------------------'); 
writeln('No | Kode barang | Nama Barang | harga satuan(Rp) | jumlah | hargaxjumlah(Rp)'); 
writeln('------------------------------------------------------------------------------'); 
totalharga:=0; 
for i:= 1 to jumlahbrg do 
begin 
with barang[i]do
 begin 
 totalharga:=totalharga+(hargabrg*jml);
 tot:=hargabrg*jml;
 write(i,'       ');
 write(kode,'     '); 
 write(namabrg:10,'    '); 
 write(hargabrg:10:0,'             ');
 write(jml,'     ');
 writeln(tot:10:0);
 end;
end;
writeln('------------------------------------------------------------------------------'); 
writeln('                                   Total Pembelian    :     ',totalharga:10:0); 
writeln('------------------------------------------------------------------------------'); 
writeln(' TERIMA KASIH '); 
readln;
donewincrt;
end.

Kalo ada pertanyaan, silahkan ajukan di Buku Tamu. Semoga bermanfaat.

8 komentar:

  1. Waa... mantab gan... btw wa dulu jg programer tapi pake VB6... ini hasil ciptaan gw.. mw liat ini dia Linknya :
    1.http://ecaknyo.blogspot.com/2009/08/merupakan-program-sederhana-perhitungan.html
    2.http://ecaknyo.blogspot.com/2009/08/gembokkunci-pc-tanpa-perlu-log-off.html

    BalasHapus
  2. Program yang mantabs ... tapi gimana cara menggunakannya ... maklum ku bukan programer. Sebenarnya pengin sekali belajar yang ginian ...

    BalasHapus
  3. salam kenalll..mantabhhh..
    terimakasih atas referensinya kawannn...

    BalasHapus
  4. wah .. Mantap nch gan. Lagi ada tUgas ..

    BalasHapus
  5. thanks...
    programnya muantap....

    BalasHapus
  6. saya dari mahasiswa stmik kputama binjai ingin mengambil program ini....thanks ya bro...succes program ni....

    BalasHapus
  7. Makasih gan.. Izi. Copas ya,, buat tugas hehe

    BalasHapus

Silakan berkomentar di blog ini, komentar Anda menjadi alasan kenapa saya harus menulis ^_^

Designed By Blogger Templates