Tuk shbtq. .

CERITAKANLAH . . . .

Bukankah aku adalah teman baikmu

tapi mengapa kau begitu tertutup

ceritakan apa yang tengah kau rasakan

sehingga kau begitu termenung

Memang aku tidak menjanjikan

dapat memberi penyelesaian

Memang akupun belum tentu

dapat memberikan saran untukmu

Tapi setidaknya engkau tak sendiri

aku kan selalu berusaha membantu

Ingatlah Allah selalu di hatimu

Dialah penolongmu yang sejati (hakiki)

kawan …

Namun bila engkau tidak mau

aku tak akan pernah memaksamu

bila itu terlalu pribadi

hanyalah untuk di hati

Tugas Akhir Modul 6 Praktikum Alpro

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.