KATA PENGANTAR
Puji syukur alhamdulillah pemakalah panjatkan kepada Allah ilahi robbi, yang dengan
takdirnya menciptakan jagat raya ini dengan segala bentuk isinya. Tak ada kata
yang patut di lupakan kecuali hanya rasa syukur yang berbunyi ”
Alhamdulillahirobbil’alamin”.
Shalawat serta salam juga tak lupa pemakalah haturkan kepada Baginda Khatimun Ambiya’, Nabi
Muhammad SAW, yang dengan pancaran Nur (cahaya) ilmunya, Dunia terasa lebih
hidup, lebih terang dari Nur apapun.
DAFTAR ISI
KATA PENGANTAR
DAFTAR ISI
BAB I PENDAHULUAN
FLOW CHART
CODING PROGRAM
BAB II PEMBAHASAN
BAB III PENUTUP
KESIMPULAN
SARAN
BAB II
PEMBAHASAN
FLOW CHART
Rancanganpembuatan coding MENU DALAM PENJUALAN adalahsebagaiberikut
- Pertamapastinyamenjalankan program MENU
DALAM PENJUALAN
- Tampil menu penjualan yang
kitakehendakimisalada 7 sub menu
- Memilihsalahsatu menu yang
kitakehendaki percabangan yang kitabuat
- Ketikaterpilihsalahsatu sub menu akanada
sub menu ukuran
- Ukuranmenampilkan L/M/S
- Di anjurkanuntukmemilihsalahsatu sub menu
L/M/S
- Ketikamemilih L
akanditampilkanHargabarangtersebutpadaukuran L
- Ketikamemilih M
akanditampilkanHargabarangtersebutpadaukuran M
- Ketikamemilih S
akanditampilkanHargabarangtersebutdalamukuran S
- Harga yang telahterpilihakan di kalikanke banyakbeli yang
akan di tampilkanke Hargapembelian
- setelahituakanadaimputan Bayar di
kurangiHarga pembelian yang menampilkan kembalian.
- Setelah proses
diatasselesaiakantampilmenanyakan transaksi lain [ y/t ] ketikamemilihtombol
’ y ’ akan di tampilkankembali program sepertiawaldalam coding gotoBalik (MENU
DALAM PENJUALAN). Dan ketikamemilihtombol ’ t ’ akanlangsungkeluardari
program.
CODING PROGRAM
program penjualan;
uses wincrt;
const Nmaks=100;
type barang=record
kode:string[10];
nama:string[35];
quantity:integer;
harsat:integer;
subtotal:integer;
end;
procedure utama;
begin
write('==============TOKO TIKTOK===========');
writeln('===================================');
writeln('===Jalan Raya Singaparna No. 123===');
end;
procedure member;
var
kd_member:string;
nm_member:string;
alamat:string;
no_hp:string;
begin
writeln('----------------------------DATA
MEMBER--------------------------------');
writeln;
write('Kode
member
:'); readln(kd_member);
if kd_member = 'M1' then
begin
nm_member := 'Vania Larissa';
alamat :=
'Pontianak';
no_hp :=
'08921234567';
end;
if kd_member = 'M2' then
begin
nm_member := 'Megan
Young';
alamat
:= 'Piliphines';
no_hp := '0876543123';
end
else
begin
nm_member := 'Tidak ditemukan';
alamat := '-';
no_hp :=
'-';
end;
writeln('Nama Member :',
nm_member);
writeln('Alamat
:', Alamat);
writeln('No
Hp :', no_hp);
end;
procedure garis;
begin
write('===========================================================');
end;
procedure petugas;
var
kd_petugas:string;
nm_petugas:string;
no_hpp:string;
alamatp:string;
begin
writeln('----Petugas
Kasir------------------------------');
writeln('Kode
Petugas :
P1-P2');read(kd_petugas);
if kd_petugas = 'P1' then
begin
nm_petugas := 'Soleh';
alamatp :=
'Jl. Wawan';
no_hpp
:= '08765454398';
end;
if kd_petugas = 'P2' then
begin
nm_petugas := 'Mahfud';
alamatp :=
'Jl. Duren';
no_hpp
:= '087643212398';
end;
writeln('Nama
Petugas :',
nm_petugas);
writeln('Alamat
:', alamatp);
writeln('No
Hp
:', no_hpp);
end;
type nilai=array[1..Nmaks] of
barang;
var
M:nilai;
N:integer;
i:integer;
total,disc,bayar,hrg,kembali:real;
y:string;
lagi:char;
begin
clrscr;
utama;
petugas;
garis;
lagi := 'y';
while lagi = 'y' do
begin
for i:=1 to Nmaks do
begin
M[i].kode:=' ';
M[i].nama:=' ';
M[i].quantity:=0;
M[i].harsat:=0;
M[i].subtotal:=0;
end;
write('Banyaknya Barang :
'); readln(N);
for i:=1 to N do
begin
writeln('Barang Ke-',i,' dari ',N);
write('Kode Barang : '); readln(M[i].kode);
if M[i].kode = 'B1' then
begin
M[i].nama := 'Pensil';
M[i].harsat := 1200;
end;
if M[i].kode = 'B2' then
begin
M[i].nama := 'Penghapus';
M[i].harsat := 2000;
end;
write('Nama Barang : ',M[i].nama);
write('Quantity : '); readln(M[i].quantity);
write('Harga Satuan : ',M[i].harsat);
M[i].subtotal:=M[i].quantity*M[i].harsat;
total:=total+M[i].subtotal;
writeln('Subtotal : ',M[i].subtotal);
writeln('Ada transaksi lagi ?'); readln(lagi);
if lagi = 't' then
end;
end;
clrscr;
begin
writeln('----------------------DATA
PENJUALAN BARANG--------------------');
writeln('===============================================================');
writeln('No | Kode |
Nama Barang | jumlah | Harga Satuan | Subtotal');
writeln('===============================================================');
for i:=1 to N do
begin
writeln(i,' ',M[i].kode,'
',M[i].nama,'
',M[i].quantity,'
',M[i].harsat,' ',M[i].subtotal);
end;
writeln('========================================================================');
writeln('Total Bayar
: ',total:3:2);
writeln('Discount
Untuk member sebesar 20%');
writeln('Ada Member?
Jika ada masukan Kode'); readln(y);
if y = 'ada' then
begin
member;
disc:=total*0.2;
hrg:=total-disc;
end
else
disc:=total*0;
hrg:=total-disc;
writeln('Harga Total
:' ,hrg:3:2);
writeln('Bayar : ');read(bayar);
Kembali:= bayar-hrg;
writeln('Kembali : ',kembali:3:2);
end;
end.
TAMPILAN DALAM PASCAL :
BAB III
PENUTUP
Demikian
makalah ini kami susun dengan sebaik-baiknya mohon maaf apabila ada kesalahan
yang terjadi pada program dan makalah yang kami buat ini.
KESIMPULAN
Setelah dibuatnya program penjualan dengan menggunakan program Turbo Pascal
dapat membantu proses transaksi pada sebuah toko dengan menggunakan prosedure
dan if, karena lebih simpel dalam penggunannya. Ketika pembuatan program ini
tidak sesulit pembuatan program yang lain.
SARAN
Kami terima jika ada kritik dan saran dari pembaca, karena semua program
tidak luput dari sebuah kesalahan. Untuk menjadikan kami agar bisa membuat
program yang lebih baik lagi.