var pilih:1..7;
nama,alamat,T_T_L,jenis_kelamin,skill:string;
n:integer;
pilihan,ya,y,t:char;
harga,totalharga,jumlah:real;
label lagi;
begin
lagi:
clrscr;
writeln('SELAMAT DATANG DI TOKO PERSENJATAAN,PERALATAN & PERLENGKAPAN WOOODIEZ');
writeln('_|\_________________________ ');
writeln('|------|||||||||||||||||||||=>>>>>>>>>>>>>>>>>');
writeln('|1.TAUFIQURROHMAN...........=>>>>>>>>>>>>>>>>>');
writeln('|2.HANAN FAJAR RAMADHAN.....=>>>>>>>>>>>>>>>>>');
writeln('|3.HARY RACHMADI............=>>>>>>>>>>>>>>>>>');
writeln('|------_____________________=>>>>>>>>>>>>>>>>>');
writeln(' /,---.(_(__) / ');
writeln(' // (\)// ');
writeln(' //___// ');
writeln('//----// ');
writeln('/------/ ');
writeln('DAFTAR MENU TYPE SENJATA');
writeln('1.DAFTAR SENJATA HANDGUN');
writeln('2.DAFTAR SENJATA SHOTGUN');
writeln('3.DAFTAR SENJATA SUBMACHINE GUN');
writeln('4.DAFTAR SENJATA ASSAULT RIFFLE');
writeln('5.DAFTAR SENJATA SNIPER RIFLE');
writeln('6.PERLENGKAPAN & PERALATAN');
writeln('7.TERIMA KASIH SUDAH MENGUNJUNGI');
write('silahkan pilih tipe senjata: ');readln(pilih);
case pilih of
1:begin
n:=1;
repeat
writeln(' DAFTAR SENJATA HANDGUN');
writeln('1.GLOCK18');
writeln('2.COLT PYTHON');
writeln('3.DUAL HANDGUN');
writeln('4.P99&HAK');
writeln('5.P3');
writeln('6.kembali ke menu awal');
write('silahkan pilih senjata handgun: ');readln(pilihan);
case pilihan of
'1':begin
harga:=5.000;
writeln(' senjata:GLOCK18');
writeln('spesifik:');
writeln(' produksi:austria');
writeln(' berat:2,3kg');
writeln(' ammo:9x19mm dgn isi:16 ammo');
writeln(' harga $ 5.000');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
write('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
writeln('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'2':begin
harga:=6.500;
writeln(' senjata:COLT PYTHON');
writeln('spesifik:');
writeln(' produksi :amerika');
writeln(' panjang peluru :8 inch dengan memakai ammo magnum 357');
writeln(' isi peluru :6');
writeln(' harga :$ 6.500');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else if (y='y') then
write('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
writeln('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'3':begin
harga:=3.120;
writeln('senjata:DUAL HANDGUN');
writeln('spesifik:');
writeln(' produksi :rusia');
writeln(' panjang peluru :8x18mm');
writeln(' isi peluru :15/senjata');
writeln(' harga :$ 3.120');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else if (y='y') then
write('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
writeln('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'4':begin
harga:=3.320;
writeln('senjata:P99&HAK');
writeln('spesifik:');
writeln(' produksi :jerman');
writeln(' panjang peluru :8x18mm');
writeln(' isi peluru :10');
writeln(' harga :$ 3.320');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else if (y='y') then
write('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
writeln('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'5':begin
harga:=4.550;
writeln('senjata:p3.produksi');
writeln('spesifik:');
writeln(' senjata :p3');
writeln(' produksi :indonesia');
writeln(' panjang peluru :10x20mm');
writeln(' isi peluru :10');
writeln(' harga :$ 4.550');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else if (y='y') then
write('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
writeln('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'6':begin
writeln('kembali ke menu awal');
goto lagi;
end;
end;
until n=6;
end;
2:begin
repeat
n:=1;
writeln(' DAFTAR SENJATA SHOTGUN');
writeln('1.870 MCS W');
writeln('2.SPAS');
writeln('3.MP5K');
writeln('4.M1887');
writeln('5.selesai.kembali ke menu awal');
write('silahkan anda pilih senjata shotgun: ');readln(pilihan);
case pilihan of
'1':begin
harga:=4.000;
writeln('senjata: 870 MCS W');
writeln('spesifik');
writeln(' produksi :di berbagai negara');
writeln(' berat :6-8kg');
writeln(' panjang peluru :4,5cm');
writeln(' isi peluru :6-10');
writeln(' harga :$ 4.000');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else if (y='y') then
write('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
writeln('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'2':begin
harga:=8.000;
writeln('senjata: spas');
writeln('spesifik:');
writeln(' produksi :rusia');
writeln(' berat :11kg');
writeln(' panjang peluru :5-6cm');
writeln(' isi peluru :8');
writeln(' peluru :$ 8.000');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else if (y='y') then
write('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
writeln('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'3':begin
harga:=7.000;
writeln('senjata: MP5K');
writeln('spesifik:');
writeln(' produksi :china');
writeln(' berat :8-9kg');
writeln(' panjang peluru :4cm');
writeln(' isi peluru :6');
writeln(' harga :$ 7.000');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else if (y='y') then
write('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
writeln('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'4':begin
harga:=5.500;
writeln('senjata: M1887');
writeln('spesifik:');
writeln(' produksi :jerman');
writeln(' berat :6,5kg');
writeln(' panjang peluru :4-5cm');
writeln(' isi peluru :6-8cm');
writeln(' harga :$ 5.500');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else if (y='y') then
write('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
writeln('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'5':begin
writeln('kembali ke menu awal');
goto lagi;
end;
end;
until n=5;
end;
3:begin
repeat
n:=1;
writeln(' DAFTAR SENJATA SUBMACHINE GUN');
writeln('1.K-1');
writeln('2.UZI');
writeln('3.P90');
writeln('4.HECKLER HK MG4');
writeln('5.THOMSON M1921');
writeln('6.SPECTRE');
writeln('7.selesai.kembali ke menu awal');
write('silahkan anda pilih senjata submachine gun: ');readln(pilihan);
case pilihan of
'1':begin
harga:=2.000;
writeln(' senjata:K-1');
writeln('spesifik:');
writeln(' produksi:berbagai negara');
writeln(' berat:6,3kg');
writeln(' ammo:11x21mm dgn isi:20 ammo');
writeln(' harga $ 2.000');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
write('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
writeln('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'2':begin
harga:=5.000;
writeln(' senjata:UZI');
writeln('spesifik:');
writeln(' produksi:israel');
writeln(' berat:2,3kg');
writeln(' ammo:6x16mm dgn isi:40 ammo');
writeln(' harga $ 5.000');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
write('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
writeln('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'3':begin
harga:=7.900;
writeln(' senjata:P90');
writeln('spesifik:');
writeln(' produksi:rusia');
writeln(' berat:2,3kg');
writeln(' ammo:8x21mm dgn isi:60 ammo');
writeln(' harga $ 7.900');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
write('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
writeln('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'4':begin
harga:=13.000;
writeln(' senjata:HECKLER HK MG4');
writeln('spesifik:');
writeln(' produksi:austria');
writeln(' berat:2,3kg');
writeln(' ammo:10x22mm dgn isi:300 ammo');
writeln(' harga $ 13.000');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
write('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
writeln('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'5':begin
harga:=8.000;
writeln(' senjata:THOMSON M1921');
writeln('spesifik:');
writeln(' produksi:austria');
writeln(' berat:2,3kg');
writeln(' ammo:9x19mm dgn isi:40 ammo');
writeln(' harga $ 8.000');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
write('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
writeln('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'6':begin
harga:=6.600;
writeln(' senjata:GLOCK18');
writeln('spesifik:');
writeln(' produksi:austria');
writeln(' berat:2,3kg');
writeln(' ammo:5x17mm dgn isi:30 ammo');
writeln(' harga $ 6.600');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
writeln('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
write('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'7':begin
writeln('kembali ke menu awal');
goto lagi;
end;
end;
until n=7;
end;
4:begin
repeat
n:=1;
writeln(' DAFTAR SENJATA ASSAULT RIFFLE');
writeln('1.AK47');
writeln('2.M4A1');
writeln('3.G36C');
writeln('4.F2000');
writeln('5.k2');
writeln('6.selesai.&kembali ke menu awal');
write('silahkan anda pilih senjata assault riffle: ');readln(pilihan);
case pilihan of
'1':begin
harga:=7.000;
writeln(' senjata:AK47');
writeln('spesifik:');
writeln(' produksi:amerika dan negara bagian');
writeln(' berat:10-11kg');
writeln(' ammo:9x19mm dgn isi:30 ammo');
writeln(' harga $ 7.000');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
writeln('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
write('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'2':begin
harga:=7.300;
writeln(' senjata:M4A1');
writeln('spesifik:');
writeln(' produksi:rusia');
writeln(' berat:7-9kg');
writeln(' ammo:10x21mm dgn isi:30 ammo');
writeln(' harga $ 7.300');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
writeln('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
write('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'3':begin
harga:=6.600;
writeln(' senjata:G36C');
writeln('spesifik:');
writeln(' produksi:china');
writeln(' berat:2,3kg');
writeln(' ammo:10x22mm dgn isi:30 ammo');
writeln(' harga $ 6.600');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
writeln('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
write('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'4':begin
harga:=5.600;
writeln(' senjata:F2000');
writeln('spesifik:');
writeln(' produksi:austria');
writeln(' berat:5-7kg');
writeln(' ammo:9x19mm dgn isi:30 ammo');
writeln(' harga $ 5.600');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
writeln('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
write('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'5':begin
harga:=6.000;
writeln(' senjata:K-2');
writeln('spesifik:');
writeln(' produksi: berbagai negara');
writeln(' berat:5-6kg');
writeln(' ammo:5x17mm dgn isi:30 ammo');
writeln(' harga $ 6.000');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
writeln('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
write('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'6':begin
writeln('ketersediaan senjata assault riffle terbatas,terima kasih');
goto lagi;
end;
end;
until n=6
end;
5:begin
repeat
n:=1;
writeln(' DAFTAR SENJATA SNIPER');
writeln('1.REMINGTON700');
writeln('2.L1554D');
writeln('3.ARMLITE AR-10');
writeln('4.AS50');
writeln('5.selesai.kembali ke menu awal');
write('silahkan anda pilih senjata submachine gun: ');readln(pilihan);
case pilihan of
'1':begin
harga:=9.600;
writeln(' senjata:REMINGTON 700');
writeln('spesifik:');
writeln(' produksi:INGGRIS');
writeln(' berat:13kg');
writeln(' ammo:6cm dgn isi:10 ammo');
writeln(' harga $ 10.600');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
writeln('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
write('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'2':begin
harga:=13.500;
writeln(' senjata:L1554D');
writeln('spesifik:');
writeln(' produksi:amerika,rusia');
writeln(' berat:15-17kg');
writeln(' ammo:11cm dgn isi:8 ammo');
writeln(' harga $ 13.500');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
writeln('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
write('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'3':begin
harga:=14.500;
writeln(' senjata:ARMALITE AR-10');
writeln('spesifik:');
writeln(' produksi:jerman');
writeln(' berat:2,3kg');
writeln(' ammo:5x17mm dgn isi:30 ammo');
writeln(' harga $ 14.500');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
writeln('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
write('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'4':begin
harga:=12.700;
writeln(' senjata:AS50');
writeln('spesifik:');
writeln(' produksi:ameri,a');
writeln(' berat:2,3kg');
writeln(' ammo:5x17mm dgn isi:30 ammo');
writeln(' harga $ 12.700');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
writeln('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
write('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'5':begin
writeln('ketersediaan senjata assault riffle terbatas,terima kasih');
goto lagi;
end;
end;
until n=5
end;
6:begin
repeat
n:=1;
writeln(' .. ');
writeln(' .:: ');
writeln(' .:: ');
writeln(' .:: ');
writeln(' .;;. ');
writeln(' .;;;;. ');
writeln(' .;;;;;;. ');
writeln(' .;;;;;;;;. ');
writeln(' .;;;;;;;;;;. ');
writeln(' .;;;;;;;;;;. ');
writeln(' .;;;;;;;;. ');
writeln(' .;;;;;;. ');
writeln(' .;;;;. ');
writeln(' .;;. ');
writeln(' DAFTAR PERLENGKAPAN & PERALATAN');
writeln('1.penglihatan malam');
writeln('2.CUIRASS (armor)');
writeln('3.baju anti peluru');
writeln('4.helm');
writeln('5.paketan');
writeln('6.selesai & kembali ke menu awal');
write('silahkan anda pilih perlengkapan & peralatan: ');readln(pilihan);
case pilihan of
'1':begin
harga:=3.000;
writeln('sight malam/penglihatan malam');
writeln('harga:$ 3.000');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
writeln('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
write('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'2':begin
harga:=5.500;
writeln('CUIRASS (armor)');
writeln('harga:$ 5.500');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
writeln('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
write('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'3':begin
harga:=3.500;
writeln('baju anti peluru');
writeln('harga : $ 3.500');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
writeln('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
write('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'4':begin
harga:=1.000;
writeln('Helm');
writeln('harga: $ 1.000');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
writeln('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
write('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'5':begin
harga:= 3.000;
writeln('paketan');
writeln('harga: $ 3.000');
write('apakah anda ingin membeli?(y/t)');readln(y);
if (y='t') then goto lagi
else
if (y='y') then
writeln('berapakah yg anda beli? ');readln(jumlah);
totalharga:=harga*jumlah;
write('jadi semuanya sejumlah:$ ',totalharga:6:3);
end;
'6':begin
writeln('terima kasih sudah mengunjungi');
goto lagi;
end;
end;
until n>6
end;
7:begin
writeln('TERIMA KASIH SUDAH MENGUNJUNGI WOOODIEZ');
end;
end;
writeln('apakah anda ingin mendaftar menjadi anggota anti teroris?(y/t): ');readln(y);
if (y='t') then write('terima kasih atas ketidak partisipasiaan anda ^_^ ')
else if (y='y') then
writeln(' DATA PENDAFTAR WOOODIEZ');
write('Nama :');readln(nama);
write('Alamat :');readln(alamat);
write('T_T_L :');readln(T_T_L);
write('Jenis Kelamin :');readln(jenis_kelamin);
write('Skill :');readln(skill);
write('GO GO GO DAMAIKAN,TENTRAMKAN NEGARA KITA (WKOWKOWKOWKOOODIEZ) ');
end.
0 comments
Tambahkan Komentar Anda
semua berawal dari diri kita