ANDESTUM: Pascal

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

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

01:51

Download Free Pascal 2.6

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
<span style="font-family: Trebuchet MS, sans-serif;">Selain Turbo Pascal ternyata ada juga yang namanya Free Pascal. Free Pascal sama halnya Turbo Pascal yaitu Program bahasa Pemrograman Algoritma.</span></div>
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<div style="text-align: justify;">
<span style="font-family: Trebuchet MS, sans-serif;">Free Pascal adalah kompilator sumber terbuka untuk bahasa Pascal dan Object Pascal yang berjalan secara lintas platform. Saat versi 2.6.0, kompilator ini dapat menghasilkan aplikasi di sekitar 20 pasangan arsitekur-sistem operasi. Untuk arsitektur-sistem operasi yang kecil (misalnya perangkat genggam), aplikasi dapat dihasilkan melalui kompilasi silang.</span></div>
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<div style="text-align: justify;">
<span style="font-family: Trebuchet MS, sans-serif;"><b>Screenshot :</b></span></div>
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlhAvtx2nOEvreH3H-njd7sMwOzcNjNwBeARzN5cpInLFWp5_-RFOyeD7vYGyTDhm2LigHrCKpHivnOErdCuAqK4bSh2w-I4M0A8_gDiedpTvj_OqMaJHlsfaubtr4i7zXxfNHERifyy1A/s1600/FreePascal.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="164" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlhAvtx2nOEvreH3H-njd7sMwOzcNjNwBeARzN5cpInLFWp5_-RFOyeD7vYGyTDhm2LigHrCKpHivnOErdCuAqK4bSh2w-I4M0A8_gDiedpTvj_OqMaJHlsfaubtr4i7zXxfNHERifyy1A/s1600/FreePascal.PNG" width="320" /></a></div>
<div style="text-align: center;">
<br /></div>
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="font-family: Trebuchet MS, sans-serif;">Bagi sobat yang mau mencoba Free Pascal, lansung saja klik link dibawah. Selamat mencoba .....</span><br />
<h5>
<a href="http://sourceforge.net/projects/freepascal/files/latest/download" target="_blank" title="File Size 38,24"><span style="font-family: Trebuchet MS, sans-serif;">Download | Free Pascal Compiler</span></a></h5>
</div>

Download Free Pascal 2.6

Selain Turbo Pascal ternyata ada juga yang namanya Free Pascal. Free Pascal sama halnya Turbo Pascal yaitu Program bahasa Pemrograman Algo...

22:49

Pascal - Program Nilai Ujian dgn Output Huruf

<div dir="ltr" style="text-align: left;" trbidi="on">
<div dir="ltr" style="text-align: left;" trbidi="on">
<pre><span style="font-family: Trebuchet MS, sans-serif;">Siang sobat, Kali ini saya share tentang tugas dari Kampus, dengan Mata Kuliah Algoritma & Pemrograman.</span></pre>
<pre><span style="font-family: Trebuchet MS, sans-serif;">Tugasnya yaitu mencari Nilai akhir dengan bentuk Output Huruf.</span></pre>
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="font-family: Trebuchet MS, sans-serif;">Langsung saja Copas Listingnya :</span><br />
<div id="spoiler">
<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;">
PROGRAM MENCARI_NILAI_DENGAN_BENTUK_OUTPUT;<br />
USES CTR;<br />
VAR NIM:STRING[9];<br />
NAMA:STRING[30];<br />
NM,NS,NA:REAL;<br />
NH:CHAR;<br />
<br />
BEGIN<br />
CLRSCR;<br />
WRITELN;<br />
WRITELN('PROGRAM NILAI UJIAN');<br />
WRITELN;<br />
WRITELN('=================================');<br />
WRITELN;<br />
WRITE('NIM : ');READLN(NIM);<br />
WRITE('NAMA : ');READLN(NAMA);<br />
WRITE('NILAI MID : ');READLN(NM);<br />
WRITE('NILAI SEMESTER : ');READLN(NS);<br />
<br />
NA:=(0.4*NM)+(0.6*NS);<br />
<br />
IF NA>=80 THEN<br />
BEGIN NH:='A';<br />
END<br />
ELSE<br />
<br />
IF NA>=70 THEN<br />
BEGIN NH:='B';<br />
END<br />
ELSE<br />
<br />
IF NA>;=56 THEN<br />
BEGIN NH:='C';<br />
END<br />
ELSE<br />
<br />
IF NA>;=45 THEN<br />
BEGIN NH:='D';<br />
END<br />
ELSE<br />
<br />
BEGIN NH:='E';<br />
END;<br />
<br />
WRITELN('NIM AKHIR : ',NA:4:1)<br />
WRITELN('NIM : ',NH);<br />
WRITELN;<br />
WRITELN('=================================');<br />
READLN;<br />
END.</div>
</div>
</div>
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span></div>
<br /></div>
<span style="font-family: 'Trebuchet MS', sans-serif;">Semoga Bermanfaat.</span></div>

Pascal - Program Nilai Ujian dgn Output Huruf

Siang sobat, Kali ini saya share tentang tugas dari Kampus, dengan Mata Kuliah Algoritma & Pemrograman. Tugasnya yaitu mencari Nilai ...

18:05

Install Free Pascal di Ubuntu 12.04

<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgYCxY_8aTGYxi_Ymnm3dFaMyMfLiuX8j2IvSYeJnbrrYdKV3roCc03YdLuEcBwenjuk3HV9-dzHlLMIm0dgNQK77366190gTJWEiYXDUzS9CMrRG3_4FfLASFR461wAQzWnaioJo39mPym/s1600/FreePascal+-+Andestum.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgYCxY_8aTGYxi_Ymnm3dFaMyMfLiuX8j2IvSYeJnbrrYdKV3roCc03YdLuEcBwenjuk3HV9-dzHlLMIm0dgNQK77366190gTJWEiYXDUzS9CMrRG3_4FfLASFR461wAQzWnaioJo39mPym/s1600/FreePascal+-+Andestum.jpg" /></a></div>
<span style="font-family: Trebuchet MS, sans-serif;">Untuk Install Free Pascal di Ubuntu sangatlah gampang karna di Ubuntu sudah tersedia di repositorya, jadi cukup jalankan perintah dibawah :</span><br />
<blockquote class="tr_bq">
<span style="font-family: Trebuchet MS, sans-serif;"><span style="color: orange;">sudo apt-get install fp-compiler fp-ide</span></span></blockquote>
<span style="font-family: Trebuchet MS, sans-serif;">Jika gagal, update dulu : "<span style="color: orange;">sudo apt-get update</span>" Kemudian ketikan ulang perintah diatas.</span><br />
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<div>
<span style="font-family: Trebuchet MS, sans-serif;">Setelah selesai instalasi, jalankan perintah dibawah untuk menjalankan programnya :</span><br />
<blockquote class="tr_bq">
<span style="font-family: Trebuchet MS, sans-serif;"><span style="color: orange;">fp-2.4.4</span></span></blockquote>
<span style="font-family: Trebuchet MS, sans-serif;"><br />Selamat mencoba ....</span></div>
</div>

Install Free Pascal di Ubuntu 12.04

Untuk Install Free Pascal di Ubuntu sangatlah gampang karna di Ubuntu sudah tersedia di repositorya, jadi cukup jalankan perintah dibawah...

02:22

Program Pascal - Turbo Pascal 7.1

<div dir="ltr" style="text-align: left;" trbidi="on">
<span style="font-family: Trebuchet MS, sans-serif;">Malam sobat,</span><br />
<div>
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<div style="text-align: justify;">
<span style="font-family: Trebuchet MS, sans-serif;">Di Kampus saya dapat aplikasi baru nama aplikasinya Turbo Pascal. Sedikit penjelasan tentang Turbo Pascal, Turbo Pascal adalah sebuah sistem pengembangan perangkat lunak yang terdiri atas kompiler dan lingkungan pengembangan terintegrasi atas bahasa pemrograman pascal untuk sistem operasi CP/M, CP/M-86, dan MS-DOS yang dikembangkan oleh Borland pada masa kepemimpinan Philippe Khan.</span></div>
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiyxm2r0zGGe-JSHT3GWer-FUmpwpc_x6pQMrcTTY1kqWqsIUPsS7TYP7GRjbbeAin-Qa6dk335VRP3e8C0Hj3w-d0y2zb7KsMYCQgfeK5Mce2ooTPLyy4vef1r6Ka5p6CvVDt0JKM1ELN3/s1600/TurboPascal7.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiyxm2r0zGGe-JSHT3GWer-FUmpwpc_x6pQMrcTTY1kqWqsIUPsS7TYP7GRjbbeAin-Qa6dk335VRP3e8C0Hj3w-d0y2zb7KsMYCQgfeK5Mce2ooTPLyy4vef1r6Ka5p6CvVDt0JKM1ELN3/s1600/TurboPascal7.jpg" /></a></div>
<br />
<div style="text-align: justify;">
<span style="font-family: Trebuchet MS, sans-serif;">Baru pertama kenal yang namanya aplikasi Turbo Pascal dan sedikit keteragan yang diberikan oleh dosen e sepulangnya malah di kasih tugas. karna aplikasinya belum punya terpaksa searching dulu ke mbh google dan langsung didownload dengan kencangnya menggunakan IDM.</span></div>
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="font-family: Trebuchet MS, sans-serif;">Sekian dulu infonya, Bagi yang mau download aplikasinya juga langsung saja klik Link dibawah.</span><br />
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<strong><a href="http://www.mediafire.com/?a58fr05gxobvz09" rel="nofollow" target="_blank" title="Start Download"><span style="font-family: Trebuchet MS, sans-serif;">Download | Turbo Pascal 7.1</span></a></strong><br />
<br /></div>
</div>