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
Rancangan
pembuatan coding MENU DALAM PENJUALAN adalah sebagai berikut
- Pertama pastinya menjalankan program MENU DALAM PENJUALAN
- Tampil menu penjualan yang kita kehendaki misal ada 7 sub menu
- Memilih salah satu menu yang kita kehendaki percabangan yang kita buat
- Ketika terpilih salah satu sub menu akan ada sub menu ukuran
- Ukuran menampilkan L/M/S
- Di anjurkan untuk memilih salah satu sub menu L/M/S
- Ketika memilih L akan ditampilkan Harga barang tersebut pada ukuran L
- Ketika memilih M akan ditampilkan Harga barang tersebut pada ukuran M
- Ketika memilih S akan ditampilkan Harga barang tersebut dalam ukuran S
- Harga yang telah terpilih akan di kalikan ke banyak beli yang akan di tampilkan ke Harga pembelian
- setelah itu akan ada imputan Bayar di kurangi Harga pembelian yang menampilkan kembalian.
- Setelah proses diatas selesai akan tampil menanyakan transaksi lain [ y/t ] ketika memilih tombol ’ y ’ akan di tampilkan kembali program seperti awal dalam coding goto Balik (MENU DALAM PENJUALAN). Dan ketika memilih tombol ’ t ’ akan langsung keluar dari 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
Tidak ada komentar:
Posting Komentar