Alhamdulillah....
Dimalam yang cukup ramai, (maklum, suasananya lagi ada di rumah dket pinggir jalan, jadi banyak kendaraan yang lewat). saya masih bisa update postingan saya. Sebelumnya saya sedikit share tentang
KONVERSI WAKTU nah kali ini saya akan sedikit juga share tantang
program pascal, namanya adalah
program nota pembayaran.
Sebenarnya listing program yang akan saya berikan ini adalah sebuat tugas saya pada mata kuliah "Struktur Data", tapi berbagi itu lebih indah daripada ilmu hanya dikonsumsi sendiri. (Hehehe, emang makanan peke dikonsumsi)..
Tampilan programnya akan seperti dibawah ini :
Oke langsung saja source kodenya dibawah ini
Program Nota_Pembayaran;
uses wincrt;
var
kode : array[1..20] of string;
nama_barang : array[1..20] of string;
harga : array[1..20] of real;
banyak : array[1..20] of byte;
kata,grs,jalan,toko :string;
x,y,i,j :byte;
Jum_Harga,Total_Harga,disc,Total_Bayar,uang :real;
begin
clrscr;
grs:='_______________________________________________________________________';
kata:='Nota Belanja Barang';
toko:='Toko ABADI';
jalan:='Jl. Riwa-riwi No. 123 Surabaya';
x:=round((78-length(kata))/2);
gotoxy(x,1);writeln(kata);
x:=round((78-length(toko))/2);
gotoxy(x,2);writeln(toko);
x:=round((78-length(jalan))/2);
gotoxy(x,3);writeln(jalan);
x:=round((78-length(grs))/2);
gotoxy(x,4);write(grs);
{_____________________________}
gotoxy(x,5);write('Tanggal Pembelian : ');readln;
gotoxy(x,6);write('Nama Pembeli : ');readln;
gotoxy(x,7);write('Alamat : ');readln;
gotoxy(x,8);write(grs);
gotoxy(x,9);writeln('| No | Kode | Nama Barang | Harga Satuan | Jumlah | Jumlah Harga |');
gotoxy(x,10);write(grs);
{____________________________________________________________________}
i:=0;
Total_Harga:=0;
repeat
i:=i+1;
gotoxy(x,10+i);write('| ',i);
gotoxy(x+5,10+i);write('|');
gotoxy(x+10,10+i);readln(kode[i]);
if kode[i] <>'' then
begin
gotoxy(x+13,10+i);write('|');
gotoxy(x+15,10+i);readln(nama_barang[i]);
gotoxy(x+32,10+i);write('|');
gotoxy(x+33,10+i);readln(Harga[i]);
gotoxy(x+33,10+i);writeln(Harga[i]:11:0);
gotoxy(x+48,10+i);write('|');
gotoxy(x+50,10+i);readln(Banyak[i]);
gotoxy(x+57,10+i);write('|');
Jum_Harga:=Harga[i]*Banyak[i];
gotoxy(x+58,10+i);writeln(Jum_Harga:11:0);
gotoxy(x+72,10+i);writeln('|');
Total_Harga:=Total_Harga+Jum_Harga ;
end;
until nama_barang[i]='';
j:=i-1;
gotoxy(x,11+j);write(grs);
gotoxy(x,11+j+1);write('Total Belanja (Rp) :');
gotoxy(x+58,11+j+1);write(Total_Harga:11:0);
gotoxy(x+72,11+j+1);write('|');
gotoxy(x,13+j);write(grs);
end.
Mungkin cukup sekian postingan tentang PROGRAM NOTA PEMBAYARAN ini, besar harapan saya semoga posting ini dapat bermanfaat bagi kita semuanya.. Aamiin.
Terus semangat coding dan keep smile :)
Judul: ATMega64/L Datasheet - Atmel 2490 8 bit AVR Microcontroller
