ANDESTUM: Turbo Pascal

Program Toko (Input Kode Barang) - Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div dir="ltr" style="text-align: left;" trbidi="on">
Share Program Toko - Pascal yang baru didapat dari Kampus : 
 
<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> 
 
Berikut Listingnya : 
<div>
<div style="margin-bottom: 2px;">
Klik show untuk melihat
<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 Toko(Input_Kode_Barang); 
<div id="spoiler">
Uses Crt; 
Var Pilih:Char; 
JML:Byte; 
Harga,HJ:Longint; 
Nama:String[20]; Kode:String[5];</div>
 
 
<div style="padding-left: 30px;">
Begin 
Clrscr; 
Writeln('Kode Barang :'); 
Writeln('A. SBN01'); 
Writeln('B. RNS02'); 
Writeln('C. SMP03'); 
Writeln; 
Write('Input Pilihan : ');readln(Pilih); 
Case Pilih Of 
'A':Begin 
Kode:='SBN01'; 
Nama:='Sabun LUX'; 
Harga:=1500; 
End; 
'B':Begin 
Kode:='RNS02'; 
Nama:='Rinso'; 
Harga:=11500; 
End; 
'C':Begin 
Kode:='SMP03'; 
Nama:='Sunsilk'; 
Harga:=150; 
End; 
End; 
Writeln; 
Writeln('TOKO MAJU TERUS (JHOKO)'); 
Writeln; 
Writeln('KODE : ',Kode); 
Writeln('NAMA : ',Nama); 
Writeln('HARGA : Rp.',Harga); 
Write('JUMLAH : ');readln(JML); 
HJ:=Harga*JML; 
Writeln('HARGA JUAL : Rp.',HJ); 
Repeat Until Keypressed; 
End.</div>
</div>
</div>
</div>
 
Semoga bermanfaat......</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;">
Selain Turbo Pascal ternyata ada juga yang namanya Free Pascal. Free Pascal sama halnya Turbo Pascal yaitu Program bahasa Pemrograman Algoritma.</div>
 
<div style="text-align: justify;">
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.</div>
 
<div style="text-align: justify;">
Screenshot :</div>
 
<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;">
 </div>
 
Bagi sobat yang mau mencoba Free Pascal, lansung saja klik link dibawah. Selamat mencoba ..... 
<h5>
<a href="http://sourceforge.net/projects/freepascal/files/latest/download" target="_blank" title="File Size 38,24">Download | Free Pascal Compiler</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

Program Pascal - Turbo Pascal 7.1

<div dir="ltr" style="text-align: left;" trbidi="on">
Malam sobat, 
<div>
 
<div style="text-align: justify;">
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.</div>
 
<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>
 
<div style="text-align: justify;">
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.</div>
 
Sekian dulu infonya, Bagi yang mau download aplikasinya juga langsung saja klik Link dibawah. 
 
<a href="http://www.mediafire.com/?a58fr05gxobvz09" rel="nofollow" target="_blank" title="Start Download">Download | Turbo Pascal 7.1</a> 
 </div>
</div>