gak usah bas-basi dehh,,, langsung aja silahkan di lihat,,,,:)
program
Cassir;
uses
wincrt;
label
1,2;
var pass,pil:string;
mail:string;
nama:array[1..20] of string;
i:byte;
jumlah:array[1..100] of real;
harga:array[1..100] of real;
jumlah_harga,total_harga,diskon,total_bayar,uang,back:real;
begin
2:clrscr;
writeln('<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>');
writeln(' BIG SWALAYAN TOWN
SQUARE');
writeln(' Please, Insert The Pasword To open and
Insert Data To This Programe');
writeln('--------------------------------------------------------------------------------');
write('E-Mail : ');readln(mail);
write('Password Program : ');pass:=readkey;
writeln('________________________________________________________________________________');
if
pass='b' then
begin
1:clrscr;
writeln('>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?');
writeln(' BIG SWALAYAN
TOWN SQUARE');
writeln('~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`');
writeln;
write('
Masukkan Jumlah Barang yang Akan Dihitung Harganya = ');
readln(i);
clrscr;
writeln('>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>');
writeln(': Cassir
Pembayaran :');
writeln('> BIG SWALAYAN TOWN
SQUARE <');
writeln(': First
Centre :');
writeln('~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~');
total_harga:=0;
for
i:=1 to i do
begin
writeln('--------------------------------------------------------------------------------');
write('Nama Barang =
');readln(nama[i]);
write('Jumlah Barang =
');readln(jumlah[i]);
write('Harga Barang = ');readln(harga[i]);
jumlah_harga:=harga[i]*jumlah[i];
writeln('
.". jumlah Harga Rp. ',
jumlah_harga:4:0);
writeln;
writeln('================================================================================ ');
total_harga:=total_harga+jumlah_harga;
end;
writeln;
writeln('Total Harga Rp ', total_harga:4:0);
writeln;
if (total_harga>=0)and
(total_harga<50000) then
begin
diskon:=0*total_harga;
end;
if (total_harga>=50000) and
(total_harga<100000) then
begin
diskon:=0.01*total_harga;
end;
if (total_harga>=100000) and
(total_harga<500000) then
begin
diskon:=0.03*total_harga;
end;
if (total_harga>=500000) and
(total_harga<1000000) then
begin
diskon:=0.05*total_harga;
end;
if total_harga>=1000000 then
begin
diskon:=0.1*total_harga;
end;
writeln('Anda Memperoleh Diskon Sebesar Rp ',diskon:4:0);
writeln;
total_bayar:=total_harga-diskon;
writeln('Total Pembayaran Setelah Mendapat
Diskon Rp ',total_bayar:4:0);
writeln;
writeln('-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-');
write('..".. Masukkan Jumlah Uang
Bayar Rp ');readln(uang);
writeln;
back:=uang-total_bayar;
writeln('..".. Sisa Uang Bayar Rp ',back:4:0);
writeln('+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+ ');
writeln;
writeln(' Press " 0 " for back to
main menu OR Press " Q " to quit');
pil:=readkey;
if pil = '0' then
begin
goto 1;
end;
if pil = 'q' then
begin
clrscr;
exit;
end
else
begin
goto 2;
end;
end
else
begin
clrscr;
writeln('><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><');
writeln;
writeln(' Sorry Bray, You can not insert..!
because your Password is False ');
writeln;
writeln('________________________________________________________________________________');
writeln;
writeln('+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=');
writeln(' To Try Again...! Please, Press
"0" OR Other Keys To Quit');
pil:=readkey;
if pil = '0' then
begin
goto 2;
end
else
begin
clrscr;
exit;
end;
end;
end.
yaaahhh coba dan semoga bermanfaat untuk menambah pengetahuan kita ya,,,,,,,,
makasih :)
makasih :)
Tidak ada komentar:
Posting Komentar