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
BABI PENDAHULUAN
A.
FLOW
CHART
B.
CODING
PROGRAM
BAB II PEMBAHASAN
BAB III PENUTUP
A.
KESIMPULAN
B.
SARAN
BAB
II
PEMBAHASAN
A.
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.
B.
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 :
Tidak ada komentar:
Posting Komentar