ANDESTUM: Contoh Program Pascal

Showing posts with label Contoh Program Pascal. Show all posts

Showing posts with label Contoh Program 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