ANDESTUM: Input Kode pada Pascal

Showing posts with label Input Kode pada Pascal. Show all posts

Showing posts with label Input Kode pada Pascal. Show all posts

Program Toko (Input Kode Barang) - Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div dir="ltr" style="text-align: left;" trbidi="on">
<span style="font-family: Trebuchet MS, sans-serif;">Share Program Toko - Pascal yang baru didapat dari Kampus :</span><br />
<span style="font-family: Trebuchet MS, sans-serif;"><br />
<a href="http://jhokoharianto.16mb.com/wp-content/uploads/2012/11/Program-Pascal-Toko.png"><img alt="" class="aligncenter size-full wp-image-1247" height="240" src="http://jhokoharianto.16mb.com/wp-content/uploads/2012/11/Program-Pascal-Toko.png" title="Program Pascal - Toko" width="312" /></a></span><br />
<span style="font-family: Trebuchet MS, sans-serif;"><br />
Berikut Listingnya :</span><br />
<div>
<div style="margin-bottom: 2px;">
<b><small><span style="font-family: Trebuchet MS, sans-serif;">Klik show untuk melihat</span></small></b>
<input onclick="if (this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display != '') { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = ''; this.innerText = ''; this.value = 'Hide'; } else { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = 'none'; this.innerText = ''; this.value = 'Show'; }" style="font-size: 10px; margin: 0px; padding: 0px; width: 60px;" type="button" value="Show" /></div>
<div style="border: 1px inset; margin: 0px; padding: 6px;">
<div style="display: none;">
<span style="font-family: 'Trebuchet MS', sans-serif;">Program Toko(Input_Kode_Barang);</span><br />
<div id="spoiler">
<span style="font-family: Trebuchet MS, sans-serif;">Uses Crt;</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Var Pilih:Char;</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">JML:Byte;</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Harga,HJ:Longint;</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Nama:String[20]; Kode:String[5];</span></div>
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<br />
<div style="padding-left: 30px;">
<span style="font-family: Trebuchet MS, sans-serif;">Begin</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Clrscr;</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Writeln('Kode Barang :');</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Writeln('A. SBN01');</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Writeln('B. RNS02');</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Writeln('C. SMP03');</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Writeln;</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Write('Input Pilihan : ');readln(Pilih);</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Case Pilih Of</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">'A':Begin</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Kode:='SBN01';</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Nama:='Sabun LUX';</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Harga:=1500;</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">End;</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">'B':Begin</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Kode:='RNS02';</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Nama:='Rinso';</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Harga:=11500;</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">End;</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">'C':Begin</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Kode:='SMP03';</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Nama:='Sunsilk';</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Harga:=150;</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">End;</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">End;</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Writeln;</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Writeln('TOKO MAJU TERUS (JHOKO)');</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Writeln;</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Writeln('KODE : ',Kode);</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Writeln('NAMA : ',Nama);</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Writeln('HARGA : Rp.',Harga);</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Write('JUMLAH : ');readln(JML);</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">HJ:=Harga*JML;</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Writeln('HARGA JUAL : Rp.',HJ);</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Repeat Until Keypressed;</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">End.</span></div>
</div>
</div>
</div>
<span style="font-family: 'Trebuchet MS', sans-serif;"><br /></span>
<span style="font-family: 'Trebuchet MS', sans-serif;">Semoga bermanfaat......</span></div>
</div>

Program Toko (Input Kode Barang) - Pascal

Program Toko (Input Kode Barang) - Pascal

Share Program Toko - Pascal yang baru didapat dari Kampus : Berikut Listingnya : Klik show untuk melihat Program Toko(Input_Kod...

01:51

Subscribe to: Posts (Atom)

Top