TUGAS AKHIR
Buatlah algoritma dan terjemahkan dalam bahasa pascal untuk memasukkan data belanja dan menampilkannya dalam bentuk nota Belanja. Total Harga dan Total belanja didapat dengan melakukan proses perhitungan kemudian hasil nya ditampilkan dalam bentuk seperti contoh dibawah ini.
Nota Belanja Barang
Toko ABADI
Jl. Riwa-riwi No. 123 Surabaya
Tanggal Pembelian : 04-11-2009
Nama Pembeli : Yoremi Sido
Alamat : Jl. Suka-suka No. 321 Surabaya
No | Kode Barang | Nama Barang | Harga Satuan (Rp) | Jumlah | Harga x Jumlah (Rp) |
1 | AB123 | Barang A | 15000 | 2 | 30000 |
2 | BC234 | Barang B | 20000 | 1 | 20000 |
3 | CD345 | Barang C | 25000 | 2 | 50000 |
4 | DE456 | Barang D | 30000 | 3 | 90000 |
5 | EF567 | Barang E | 35000 | 4 | 140000 |
T O T A L B E L A N J A (Rp) | 330000 | ||||
Jawaban :
Program Nota;
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 :string;
x,y,i,j :byte;
Jum_Harga,Total_Harga,disc,Total_Bayar,uang :real;
begin
clrscr;
grs:='=========================================================================';
kata:='Nota Belanja Barang Toko ABADI Jl. Riwa-riwi No. 123 Surabaya';
x:=round((78-length(kata))/2);
gotoxy(x,2);writeln(kata);
x:=round((78-length(grs))/2);
gotoxy(x,3);write(grs);
{-----------------------------}
gotoxy(x,4);write('Tanggal Pembelian: ');readln;
gotoxy(x,5);write('Nama Pembeli: ');readln;
gotoxy(x,6);write('Alamat: ');readln;
gotoxy(x,7);write(grs);
gotoxy(x,8);writeln('| No | Kode | Nama Barang | Harga Satuan | Jumlah | Jumlah Harga |');
gotoxy(x,9);write(grs);
{--------------------------------------------------------------------}
i:=0;
Total_Harga:=0;
repeat
i:=i+1;
gotoxy(x,9+i);write('| ',i);
gotoxy(x+5,9+i);write('|');
gotoxy(x+9,9+i);readln(kode[i]);
if kode[i] <>'' then begin
gotoxy(x+13,9+i);write('|');
gotoxy(x+15,9+i);readln(nama_barang[i]);
gotoxy(x+32,9+i);write('|');
gotoxy(x+33,9+i);readln(Harga[i]);
gotoxy(x+33,9+i);writeln(Harga[i]:10:2);
gotoxy(x+48,9+i);write('|');
gotoxy(x+50,9+i);readln(Banyak[i]);
gotoxy(x+57,9+i);write('|');
Jum_Harga:=Harga[i]*Banyak[i];
gotoxy(x+58,9+i);writeln(Jum_Harga:10:2);
gotoxy(x+72,9+i);writeln('|');
Total_Harga:=Total_Harga+Jum_Harga ;
end;
until nama_barang[i]='';
j:=i-1;
gotoxy(x,10+j);write(grs);
gotoxy(x,10+j+1);write('Total Belanja (Rp) --------------------------------------:');
gotoxy(x+58,10+j+1);write(Total_Harga:10:2);
gotoxy(x+72,10+j+1);write('|');
gotoxy(x,12+j);write(grs);
end.
