R2 Blog: Tutorial Turbo-Pascal

Showing posts with label Tutorial Turbo-Pascal. Show all posts

Tutorial Turbo Pascal 7: Kenal Lebih Jauh Dengan Array

Unknown May 08, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div id="contents">
<div class="c8 c6 c0">
<span class="c11"></span></div>
<div class="c0">
Larik
 atau Array. Pernah mendengarkan istilah tersebut sebelumnya? Bagi yang 
belajar ilmu progamming mungkin sudah tidak asing lagi dengan istilah 
ini. Bagi yang belum, serangkaian dokumen ini akan membawa anda kenal 
lebih jauh dengan Array dalam Turbo Pascal 7.</div>
<div class="c8 c0">
</div>
<div class="c0">
Apa itu Array?</div>
<div class="c0">
Array adalah variabel yang dapat menyimpan data lebih dari satu, dengan 
syarat jenis datanya semua sama.Berasal dari Bahasa Inggris "Array".</div>
<div class="c8 c0">
</div>
<div class="c0">
Konsep
Array sangat penting dalam dunia programming. Dengan Array , kita tidak 
perlu membuat banyak variabel untuk melakukan hal-hal yang mirip atau 
serupa. Umpama dalam sebuah bis, kita hanya perlu mendeklarasikan 
variabel Array Bis, tidak perlu mendeklarasikan setiap penumpangnya 
satu-satu. Lebih sederhana, kan?</div>
<div class="c8 c0">
</div>
<div class="c0">
Contohnya:</div>
<div class="c0">
<span style="-webkit-transform: rotate(0.00rad) translateZ(0px); border: 0.00px solid #000000; display: inline-block; height: 255.00px; margin: 0.00px 0.00px; overflow: hidden; transform: rotate(0.00rad) translateZ(0px); width: 1014.00px;"><img alt="" src="https://lh4.googleusercontent.com/l-ujrp24L1Z6jMsMx6gjdU6QWrn87jq6AAzQLbVrAmlKeyBTg9vwsanBys2GePZGiA1vv5HUQAtJWZ2QrzX9rllsRTNAYndG3ejq7RlsqIEEBatzhruHDyWHWyny7CIe-Q" style="-webkit-transform: rotate(0.00rad) translateZ(0px); height: 255.00px; margin-left: 0.00px; margin-top: 0.00px; transform: rotate(0.00rad) translateZ(0px); width: 1014.00px;" title="" /></span></div>
<div class="c8 c0">
</div>
<div class="c0">
<span class="c5">Jika digambarkan, Array ibarat sebuah matriks yang dapat diisi dengan suatu nilai. Contoh:</span></div>
<div class="c8 c0">
<span class="c5"></span></div>
<div class="c6 c0">
<span class="c5">ARRAY “BIS”</span></div>
<a href="https://docs.google.com/document/d/1Ten6iTtSkm6QtxWeeS_3rTJ4t0JOpTHsLf73EKB_GvA/pub#" name="e6aab61b792c63924f2ad055218b0035ba290268"></a><a href="https://docs.google.com/document/d/1Ten6iTtSkm6QtxWeeS_3rTJ4t0JOpTHsLf73EKB_GvA/pub#" name="0"></a><br />
<table cellpadding="0" cellspacing="0" class="c13"><tbody>
<tr class="c7"><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td></tr>
<tr class="c7"><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td></tr>
</tbody></table>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgFTA6U6BPLP3lMLauT-T8O5w0HQ4TbJvwMSO3rV3eWHpcKrIsDtlrl8zGukOzm7_eTLS-YjlT3pdMavyzq1VzI_Zolf5Y_45x7gzsrExKGsFhz3VkQtI3YushnX29h1MGoCtI2lnKrD70/s1600/1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="48" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgFTA6U6BPLP3lMLauT-T8O5w0HQ4TbJvwMSO3rV3eWHpcKrIsDtlrl8zGukOzm7_eTLS-YjlT3pdMavyzq1VzI_Zolf5Y_45x7gzsrExKGsFhz3VkQtI3YushnX29h1MGoCtI2lnKrD70/s1600/1.jpg" width="640" /></a></div>
<div class="c0">
<span class="c5">Kita
 dapat mengisi matriks tersebut dengan nilai asal jenis datanya sama. 
Misalnya, kita gunakan string karena kita akan mengisi setiap anggota 
yang ada dengan nama penumpangnya.</span></div>
<div class="c8 c0">
<span class="c5"></span></div>
<div class="c6 c0">
<span class="c5">ARRAY “BIS”</span></div>
<a href="https://docs.google.com/document/d/1Ten6iTtSkm6QtxWeeS_3rTJ4t0JOpTHsLf73EKB_GvA/pub#" name="27530b2a5d07833b1c80f4758f638cab0789f4e0"></a><a href="https://docs.google.com/document/d/1Ten6iTtSkm6QtxWeeS_3rTJ4t0JOpTHsLf73EKB_GvA/pub#" name="1"></a><br />
<table cellpadding="0" cellspacing="0" class="c13"><tbody>
<tr class="c7"><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td></tr>
<tr class="c7"><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td><td class="c4"><br /></td></tr>
</tbody></table>
<div class="c8 c0">
<span class="c5"></span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhkIdCdA1HprJTS0egF0Pr2roX5juj-2XYsmAAmGe6G2EmdKL8kkCa4aBBXdOhTnJ8X62_z7HnIh-xgStlqMAqbBF4AbUaml7QvfglwUHtNo6n9mMLtiAQehoLfeSMetjEPzp6VydW5n4Y/s1600/2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="52" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhkIdCdA1HprJTS0egF0Pr2roX5juj-2XYsmAAmGe6G2EmdKL8kkCa4aBBXdOhTnJ8X62_z7HnIh-xgStlqMAqbBF4AbUaml7QvfglwUHtNo6n9mMLtiAQehoLfeSMetjEPzp6VydW5n4Y/s1600/2.jpg" width="640" /></a></div>
<div class="c0">
<span class="c5">Dalam turbo pascal, jika kita akan melakukan hal seperti di atas, gunakan tanda kurung siku ( [ … ] ). Contoh, </span><span style="-webkit-transform: rotate(0.00rad) translateZ(0px); border: 0.00px solid #000000; display: inline-block; height: 27.00px; margin: 0.00px 0.00px; overflow: hidden; transform: rotate(0.00rad) translateZ(0px); width: 66.00px;"><img alt="" src="https://lh6.googleusercontent.com/ITcfLvHC43QV6joADKhaN5kxtRAftE5j_P65e3XZRVAq53QQ5Q1WfIiUdOAuuHQsGW1UqcVHxl_qhUT1niZr1kMNxvVqPs7Xma4NIuqApufDpPuWqQRbk2_Cw1EbnR2x0A" style="-webkit-transform: rotate(0.00rad) translateZ(0px); height: 27.00px; margin-left: 0.00px; margin-top: 0.00px; transform: rotate(0.00rad) translateZ(0px); width: 66.00px;" title="" /></span><span class="c5"> sama dengan anggota ke-satu dalam Array bis.</span></div>
<div class="c8 c0">
<span class="c5"></span></div>
<div class="c0">
<span style="-webkit-transform: rotate(0.00rad) translateZ(0px); border: 0.00px solid #000000; display: inline-block; height: 104.00px; margin: 0.00px 0.00px; overflow: hidden; transform: rotate(0.00rad) translateZ(0px); width: 266.00px;"><img alt="" src="https://lh3.googleusercontent.com/kqrD0zikzljPqnNfnjU-inBrkb7APbactb_7d0thlEUWGlYrCJ1rxlmZlgWwsvUH2HX4cntm3SB1MZ9uAvhv6FPkYrB48kueXRl20LObP5quguchjvgNJyfSi33ctUxT7g" style="-webkit-transform: rotate(0.00rad) translateZ(0px); height: 104.00px; margin-left: 0.00px; margin-top: 0.00px; transform: rotate(0.00rad) translateZ(0px); width: 266.00px;" title="" /></span></div>
<div class="c8 c0">
<span class="c5"></span></div>
<div class="c0">
<span class="c5">AYO KITA BUAT ARRAY !</span></div>
<div class="c0">
<span class="c5">Untuk membuat Array, ada beberapa format kode yang dapat digunakan:</span></div>
<div class="c0">
<span style="-webkit-transform: rotate(0.00rad) translateZ(0px); border: 0.00px solid #000000; display: inline-block; height: 37.00px; margin: 0.00px 0.00px; overflow: hidden; transform: rotate(0.00rad) translateZ(0px); width: 444.00px;"><img alt="" src="https://lh4.googleusercontent.com/MbXRpO5WcOIUTQPTND43Qi2nI4lmz1ts-Sq4XHWM3ttE8bOT3-GCdV9fYs93pKJpoI3g647kBd_rQJdTg5D5qxvbx7XEBX9YjapmK9NUvg6fYl5pHWIKx5KcwJBUjMCIbA" style="-webkit-transform: rotate(0.00rad) translateZ(0px); height: 37.00px; margin-left: 0.00px; margin-top: 0.00px; transform: rotate(0.00rad) translateZ(0px); width: 444.00px;" title="" /></span></div>
<div class="c0">
<span class="c5">Ayo kita gunakan format kode pertama ini untuk membuat beberapa Array:</span></div>
<div class="c0">
<span style="-webkit-transform: rotate(0.00rad) translateZ(0px); border: 0.00px solid #000000; display: inline-block; height: 419.00px; margin: 0.00px 0.00px; overflow: hidden; transform: rotate(0.00rad) translateZ(0px); width: 485.00px;"><img alt="" src="https://lh3.googleusercontent.com/u01zipjDh8_EVzjOjgWw_K3JP64Rl5px2m3eX31uoV7-qhDslV3AeyYdquYfehPqdSGFfdv75JjVFRIns4KUoiLQDh9ZsylRMdfw387g5Q3X_woXxM1iILVokJNjRkPQrg" style="-webkit-transform: rotate(0.00rad) translateZ(0px); height: 419.00px; margin-left: 0.00px; margin-top: 0.00px; transform: rotate(0.00rad) translateZ(0px); width: 485.00px;" title="" /></span></div>
<div class="c0">
<span class="c5">Batas
 bawah Array adalah anggota pertama yang dapat diakses oleh Array. Batas
 atas Array adalah anggota terakhir yang dapat diakses oleh Array . 
Panjang Array adalah banyak anggota dalam Array.</span></div>
<div class="c0">
<span style="-webkit-transform: rotate(0.00rad) translateZ(0px); border: 0.00px solid #000000; display: inline-block; height: 203.00px; margin: 0.00px 0.00px; overflow: hidden; transform: rotate(0.00rad) translateZ(0px); width: 383.00px;"><img alt="" src="https://lh4.googleusercontent.com/aKtprs-7ge5vYmCZO97gIhBJTBClMiYyu5kYA0jAB0RPR7WrhTy-tM7zS7qQ7b13HvpU5Okfn5oxB7iywuRgrVxnqYRdJTBzEqFPoa124PF2syq3qmi0JYcDZY77nOynhA" style="-webkit-transform: rotate(0.00rad) translateZ(0px); height: 203.00px; margin-left: 0.00px; margin-top: 0.00px; transform: rotate(0.00rad) translateZ(0px); width: 383.00px;" title="" /></span></div>
<div class="c0">
<span class="c5">Mengapa contohlagi[0] atau contohlagi[11] apabila diakses akan menyebabkan error?</span></div>
<div class="c0">
<span class="c5">Jawabannya
 sederhana. Dalam bahasa yang sederhana, Array nya aja cuman ada anggota 
10, yaitu dari 1-10. Terus contohlagi[0] itu apa? Tidak terdefinisi kan?</span></div>
<div class="c8 c0">
<span class="c5"></span></div>
<div class="c0">
<span class="c5">Ada
 satu lagi cara untuk membuat Array. Pada dasarnya, cara apapun yang 
digunakan untuk membuat Array, cara mengakses Array nya tetaplah sama, 
yaitu menggunakan kurung siku.</span></div>
<div class="c0">
<span style="-webkit-transform: rotate(0.00rad) translateZ(0px); border: 0.00px solid #000000; display: inline-block; height: 67.00px; margin: 0.00px 0.00px; overflow: hidden; transform: rotate(0.00rad) translateZ(0px); width: 406.00px;"><img alt="" src="https://lh5.googleusercontent.com/Z3mE4Bs089lSajtq0fa7e09hfy_s7fHYZUrti-fO_6MIEVqKFpuPbw7WaHpNrD9LGnWntIzYElERzlLt0vMSeYkfK6lGreFQb2B3mXD8rmelJ8JAj0oW219fZ9_F6UTqIQ" style="-webkit-transform: rotate(0.00rad) translateZ(0px); height: 67.00px; margin-left: 0.00px; margin-top: 0.00px; transform: rotate(0.00rad) translateZ(0px); width: 406.00px;" title="" /></span></div>
<div class="c8 c0">
<span class="c5"></span></div>
<div class="c0">
<span class="c5">Dengan Array yang kedua ini, ada sebuah keuntungan tersembunyi. Sudah bisa menebak apakah keuntungan tersebut?</span></div>
<div class="c0">
<span style="-webkit-transform: rotate(0.00rad) translateZ(0px); border: 0.00px solid #000000; display: inline-block; height: 236.00px; margin: 0.00px 0.00px; overflow: hidden; transform: rotate(0.00rad) translateZ(0px); width: 553.00px;"><img alt="" src="https://lh5.googleusercontent.com/YklUhAwrlGN-X-Xguw9hCWqsFJ1ZTGSYje7v5aT_Ep6T-UexvXqWlO298Yl3o7OCozmMR0avB6MHnlq2_vY7vmFyVU5jwi1YEaCl2XOzJT29ojSoZ-4jmSjXcpcskvNSRQ" style="height: 236px; margin-left: 0px; margin-top: 0px; transform: rotate(0rad) translateZ(0px); width: 553px;" title="" /></span></div>
<div class="c8 c0">
<span class="c5"></span></div>
<div class="c0">
<br /></div>
<div class="c0">
<span class="c5">KESIMPULAN</span></div>
<div class="c0">
<span class="c5">Array sangat bermanfaat dalam programming untuk menyederhanakan berbagai 
kerja yang melibatkan banyak variabel dalam satu rumpun. Konsep Array mirip dengan konsep himpunan. Bedanya, Array tidak memperhatikan urutan 
anggota.</span></div>
<div class="c8 c0">
<span class="c5"></span></div>
<div class="c0">
<span class="c5">Untuk
 menyatakan Array ada dua cara, dan diantara kedua cara tersebut ada 
untung-rugi yang perlu dipertimbangkan saat akan membuat Array ketika 
membuat program skala besar.</span></div>
<div class="c8 c0">
<span class="c5"></span></div>
<div class="c0">
<span class="c5">Konsep Array terdapat pada semua bahasa programming, yang membedakan adalah sintaks cara membuat Array nya.</span></div>
<div class="c8 c0">
<span class="c5"></span></div>
</div>
</div>

Larik atau Array. Pernah mendengarkan istilah tersebut sebelumnya? Bagi yang belajar ilmu progamming mungkin sudah tidak asing lagi d...

Tutorial Turbo Pascal : PROCEDURE

Unknown May 08, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<h1>
Definisi Prosedur</h1>
Procedure merupakan salah satu jenis subprogram dalam turbo pascal. 
Dalam sebuah procedure, anda akan seperti membuat suatu program dalam 
program. Anda dapat memasukkan kumpulan instruksi yang biasa anda ketik 
dalam suatu program pascal kedalam badan atau body procedure, dan anda 
dapat memanggil semua instruksi tersebut hanya dalam sekali pemanggilan 
procedure. <br />
Contoh:<br />
<code><span style="color: dimgrey;">(* Write dan ReadLn Diulang-ulang *)</span></code><br />
<code><span style="color: dimgrey;">(* Misalkan variabel a, b, c, d, e, f, g, h, dan i sudah terdefinisi *)</span></code><br />
<code>Write<span style="color: #808030;">(</span><span style="color: #0000e6;">'Masukkan nilai a: '</span><span style="color: #808030;">)</span><span style="color: purple;">;</span> ReadLn<span style="color: #808030;">(</span>a<span style="color: #808030;">)</span><span style="color: purple;">;</span></code><br />
<code>Write<span style="color: #808030;">(</span><span style="color: #0000e6;">'Masukkan nilai b: '</span><span style="color: #808030;">)</span><span style="color: purple;">;</span> ReadLn<span style="color: #808030;">(</span>b<span style="color: #808030;">)</span><span style="color: purple;">;</span></code><br />
<code>Write<span style="color: #808030;">(</span><span style="color: #0000e6;">'Masukkan nilai c: '</span><span style="color: #808030;">)</span><span style="color: purple;">;</span> ReadLn<span style="color: #808030;">(</span>c<span style="color: #808030;">)</span><span style="color: purple;">;</span></code><br />
<code>Write<span style="color: #808030;">(</span><span style="color: #0000e6;">'Masukkan nilai d: '</span><span style="color: #808030;">)</span><span style="color: purple;">;</span> ReadLn<span style="color: #808030;">(</span>d<span style="color: #808030;">)</span><span style="color: purple;">;</span></code><br />
<code>Write<span style="color: #808030;">(</span><span style="color: #0000e6;">'Masukkan nilai e: '</span><span style="color: #808030;">)</span><span style="color: purple;">;</span> ReadLn<span style="color: #808030;">(</span>e<span style="color: #808030;">)</span><span style="color: purple;">;</span></code><br />
<code>Write<span style="color: #808030;">(</span><span style="color: #0000e6;">'Masukkan nilai f: '</span><span style="color: #808030;">)</span><span style="color: purple;">;</span> ReadLn<span style="color: #808030;">(</span>f<span style="color: #808030;">)</span><span style="color: purple;">;</span></code><br />
<code>Write<span style="color: #808030;">(</span><span style="color: #0000e6;">'Masukkan nilai g: '</span><span style="color: #808030;">)</span><span style="color: purple;">;</span> ReadLn<span style="color: #808030;">(</span>g<span style="color: #808030;">)</span><span style="color: purple;">;</span></code><br />
<code>Write<span style="color: #808030;">(</span><span style="color: #0000e6;">'Masukkan nilai h: '</span><span style="color: #808030;">)</span><span style="color: purple;">;</span> ReadLn<span style="color: #808030;">(</span>h<span style="color: #808030;">)</span><span style="color: purple;">;</span></code><br />
<code>Write<span style="color: #808030;">(</span><span style="color: #0000e6;">'Masukkan nilai i: '</span><span style="color: #808030;">)</span><span style="color: purple;">;</span> ReadLn<span style="color: #808030;">(</span>i<span style="color: #808030;">)</span><span style="color: purple;">;</span> </code><br />
<br />
Nah, seperti pada contoh di atas, apabila kita ingin mendapatkan 
input pengguna dalam pascal, kita pasti akan menggunakan pasangan 
suami-istri Write-Read. Bagaimana kalau kita harus meminta 100 input 
kepada user? Siapkah anda mengetikkan 200 baris pasangan suami istri 
Write-Read? Capek banegt lah! <br />
Procedure pada titik ini datang 
membantu anda. Dengan procedure, anda dapat mempersatukan pasangan suami
 istri Write-Read dalam satu rumah dan ketika anda ingin menggunakan 
jasa Write-Read untuk meminta dan menerima input, anda cukup memanggil 
procedurenya saja. <br />
Untuk deklarasi procedure kita gunakan sintaks:<br />
<br />
<code><span style="color: dimgrey;">(* Deklarasi Procedure *)</span></code><br />
<code><span style="color: maroon; font-weight: bold;">Procedure</span> <span style="color: #808030;">-</span>Nama Prosedur<span style="color: #808030;">-</span><span style="color: #808030;">(</span>Parameter<span style="color: #808030;">)</span></code><br />
<code><span style="color: dimgrey;">(*Deklarasi Variabel*)</span></code><br />
<code><span style="color: maroon; font-weight: bold;">Begin</span></code><br />
<code><span style="color: maroon; font-weight: bold;"> </span><span style="color: dimgrey;">(*Procedure Body atau Tubuh Prosedur*)</span></code><br />
<code><span style="color: maroon; font-weight: bold;">End</span><span style="color: purple;">;</span> </code><br />
<br />
Keterangan <br />
  Nama Prosedur adlaah nama dari prosedur anda. Aturan penamaan prosedur sama dengan <a href="http://pehbate.blogspot.com/2014/05/tutorial-turbo-pascal-variabel.html">aturan penamaan variabel </a><br />
Parameter adalah ‘bahan-bahan yang diperlukan untuk melakukan operasi prosedur’. Lihat pembahasan parameter di bawah ini.<br />
  Deklarasi
 Variabel disini maksudnya variabel-variabel yang hanya bisa digunakan 
di dalam prosedur. Bisa berguna sebagai tempat penyimpanan nilai 
sementara barangkali.<br />
  Procedure Body atau Tubuh Prosedur adalah 
perintah-perintah yang akan dijalankan ketika prosedur ini dipanggil dan
 semua parameternya terpenuhi, jika dibutuhkan.<br />
<br />
<h1>
JENIS-JENIS PROSEDUR </h1>
<h2>
1. Prosedur Tanpa Parameter</h2>
<div style="text-align: left;">
<span style="font-family: inherit;"><span style="font-size: small;"><span style="font-weight: normal;">Prosedur seperti ini tidak mengambil parameter apapun untuk dapat 
dipanggil. Seperti anda akan memasak mie dan semua bahannya sudah 
tersedia sehingga mie tinggal dimasak.  </span></span></span></div>
<div style="text-align: left;">
<br /></div>
<pre><span style="color: red;"><b>Procedure</b></span> Contoh1<span style="color: blue;"><b>(</b></span>ParameterInput1<span style="color: blue;"><b>:</b></span> Integer<span style="color: blue;"><b>)</b></span>
<span style="color: red;"><b>Begin</b></span>
 <span style="color: blue;"><b><span style="color: blue;"><b>.</b></span></b></span><span style="color: blue;"><b><span style="color: blue;"><b>.</b></span></b></span><span style="color: blue;"><b><span style="color: blue;"><b>.</b></span></b></span>
<span style="color: red;"><b>End</b></span><span style="color: blue;"><b>;</b></span>

<span style="color: green;"><i>(* Pemanggilan Contoh1 dalam program body: Contoh1 *)</i></span>

<span style="color: red;"><b>Procedure</b></span> Contoh2<span style="color: blue;"><b>(</b></span>ParameterInputSejenis1<span style="color: blue;"><b>,</b></span> ParameterInputSejenis2<span style="color: blue;"><b>:</b></span> Integer<span style="color: blue;"><b>)</b></span> <span style="color: green;"><i>(* Ada dua parameter *)</i></span>
<span style="color: red;"><b>Begin</b></span>

<span style="color: green;"><i>(* Pemanggilan Contoh2 dalam program body: Contoh2(1,2) *)</i></span>

<span style="color: red;"><b>Procedure</b></span> Contoh3<span style="color: blue;"><b>(</b></span>ParameterInputBedaJenis1<span style="color: blue;"><b>:</b></span> Integer<span style="color: blue;"><b>;</b></span> ParameterInputBedaJenis2<span style="color: blue;"><b>:</b></span> <span style="color: red;"><b>String</b></span><span style="color: blue;"><b>)</b></span> <span style="color: green;"><i>(* Ada dua parameter dengan jenis yang berbeda *)</i></span>
<span style="color: red;"><b>Begin</b></span>

<span style="color: green;"><i>(* Pemanggilan Contoh3 dalam program body: Contoh3(1, 'Kumaha Urang weh :p') *)</i></span></pre>
<br /><br /><br />
<br /><br /><h2>
2. Prosedur dengan Parameter Input </h2>
<br /><br />Prosedur
 seperti ini meminta setidaknya satu parameter untuk dapat dipanggil. 
Seperti anda ingin membuat secangkir kopi dan anda menyuruh adik anda 
untuk membelikan gula. Adik anda akan menanyakan berapa gula yang harus 
dia beli, apakah setengah kilogram, seperempat kilogram, seperenambelas 
kilogram, atau berapa? <br />
<br /><br />Pemanggilan prosedur dengan 
parameter input seperti anda menyuruh adik anda membelikan gula, dan 
jalannya prosedur tersebut tidak mungkin berjalan tanpa parameter yang 
diberikan oleh anda. (Anda tidak bisa membuat kopi manis tanpa gula, 
kan?) <br />
<br /><br /><pre><span style="color: red;"><b>Procedure</b></span> Contoh1<span style="color: blue;"><b>(</b></span>ParameterInput1<span style="color: blue;"><b>:</b></span> Integer<span style="color: blue;"><b>)</b></span>
<span style="color: red;"><b>Begin</b></span>
 <span style="color: blue;"><b><span style="color: blue;"><b>.</b></span></b></span><span style="color: blue;"><b><span style="color: blue;"><b>.</b></span></b></span><span style="color: blue;"><b><span style="color: blue;"><b>.</b></span></b></span>
<span style="color: red;"><b>End</b></span><span style="color: blue;"><b>;</b></span>

<span style="color: green;"><i>(* Pemanggilan Contoh1 dalam program body: Contoh1 *)</i></span>

<span style="color: green;"><i>(* Pemanggilan Contoh2 dalam program body: Contoh2(1,2) *)</i></span>

<span style="color: green;"><i>(* Pemanggilan Contoh3 dalam program body: Contoh3(1, 'Kumaha Urang weh :p') *)</i></span></pre>
<br /><br /><h2>
3. Prosedur dengan Parameter Output </h2>
<br /><br />Prosedur
 seperti ini meminta setidaknya satu parameter untuk menyimpan hasil 
operasi. Bayangkan masak nasi goreng dan anda meminta sebuah mangkok 
untuk menyimpan hasil masaknya. Seperti membuat kopi di rumah dan anda 
meminta istri anda untuk mengambilkan cangkir tempat anda menuangkan 
kopi yang anda buat (di dalam coffee maker atau sejenisnya). <br />
<br /><br /><pre><span style="background-color: white; color: #cccccc; font-style: normal;"> 1: </span><span style="color: red;"><b>Procedure</b></span> ContohProsedurDenganOutput<span style="color: blue;"><b>(</b></span>ParameterInput<span style="color: blue;"><b>:</b></span> Real<span style="color: blue;"><b>;</b></span> <span style="color: red;"><b>var</b></span> ParameterOutput<span style="color: blue;"><b>:</b></span> Integer<span style="color: blue;"><b>)</b></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;"> 2: </span><span style="color: red;"><b>Begin</b></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;"> 3: </span> <span style="color: blue;"><b><span style="color: blue;"><b>.</b></span></b></span><span style="color: blue;"><b><span style="color: blue;"><b>.</b></span></b></span><span style="color: blue;"><b><span style="color: blue;"><b>.</b></span></b></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;"> 4: </span><span style="color: red;"><b>End</b></span><span style="color: blue;"><b>;</b></span>
<span style="background-color: white; color: #cccccc; font-style: normal;"> 5: </span>
<span style="background-color: white; color: #eeeeee; font-style: normal;"> 6: </span><span style="color: green;"><i>(* Contoh Pemanggilan: ContohProsedurDenganOutput(1.0, SimpanOutputnyaDisini) dengan
<span style="background-color: white; color: #eeeeee; font-style: normal;"> 7: </span>   variabel SimpanOutputnyaDisini telah didefinisikan sebelumnya dan berjenis Integer *)</i></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;"> 8: </span>   
<span style="background-color: white; color: #eeeeee; font-style: normal;"> 9: </span><span style="color: red;"><b>Procedure</b></span> BuatSecangkirKopi<span style="color: blue;"><b>(</b></span>Gula<span style="color: blue;"><b>:</b></span> KiloanGula<span style="color: blue;"><b>;</b></span> <span style="color: red;"><b>var</b></span> GelasTempatNyimpanKopi<span style="color: blue;"><b>:</b></span> Cangkir<span style="color: blue;"><b>)</b></span>
<span style="background-color: white; color: #cccccc; font-style: normal;">10: </span><span style="color: red;"><b>Begin</b></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;">11: </span> SiapkanSebungkusKopi<span style="color: blue;"><b>(</b></span>KapalApi<span style="color: blue;"><b>)</b></span><span style="color: blue;"><b>;</b></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;">12: </span> CampurKopiDengan<span style="color: blue;"><b>(</b></span>Gula<span style="color: blue;"><b>)</b></span><span style="color: blue;"><b>;</b></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;">13: </span> AdukKopi<span style="color: blue;"><b>;</b></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;">14: </span> TuangkanKedalam<span style="color: blue;"><b>(</b></span>GelasTempatNyimpanKopi<span style="color: blue;"><b>)</b></span><span style="color: blue;"><b>;</b></span>
<span style="background-color: white; color: #cccccc; font-style: normal;">15: </span> Sajikan<span style="color: blue;"><b>;</b></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;">16: </span><span style="color: red;"><b>End</b></span><span style="color: blue;"><b>;</b></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;">17: </span>
<span style="background-color: white; color: #eeeeee; font-style: normal;">18: </span><span style="color: green;"><i>(* Contoh diatas adalah contoh fiktif untuk menggambarkan bedanya parameter input
<span style="background-color: white; color: #eeeeee; font-style: normal;">19: </span>   dengan parameter output *)</i></span></pre>
<br /><br /><h2>
4. Prosedur dengan gabungan parameter Input dan Output </h2>
Prosedur
 seperti ini adalah gabungan dari prosedur dengan parameter input dan 
output. Bayangkan anda akan membuat kopi. Anda meminta adik anda 
membelikan gula lalu anda buat kopinya dalam coffee-maker dan anda 
meminta istri anda untuk mengambilkan cangkir tempat hasil kopinya 
dituangkan. Gula dianalogikan sebagai parameter input, proses pembuatan 
kopi dianalogikan sebagai procedure dan cangkir dianalogikan sebagai 
parameter output. <br />
<br /><br /><pre><span style="background-color: white; color: #cccccc; font-style: normal;"> 1: </span><span style="color: red;"><b>Procedure</b></span> ContohProsedurDenganOutput<span style="color: blue;"><b>(</b></span>ParameterInput<span style="color: blue;"><b>:</b></span> Real<span style="color: blue;"><b>;</b></span> <span style="color: red;"><b>var</b></span> ParameterOutput<span style="color: blue;"><b>:</b></span> Integer<span style="color: blue;"><b>)</b></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;"> 2: </span><span style="color: red;"><b>Begin</b></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;"> 3: </span> <span style="color: blue;"><b><span style="color: blue;"><b>.</b></span></b></span><span style="color: blue;"><b><span style="color: blue;"><b>.</b></span></b></span><span style="color: blue;"><b><span style="color: blue;"><b>.</b></span></b></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;"> 4: </span><span style="color: red;"><b>End</b></span><span style="color: blue;"><b>;</b></span>
<span style="background-color: white; color: #cccccc; font-style: normal;"> 5: </span>
<span style="background-color: white; color: #eeeeee; font-style: normal;"> 6: </span><span style="color: green;"><i>(* Contoh Pemanggilan: ContohProsedurDenganOutput(1.0, SimpanOutputnyaDisini) dengan
<span style="background-color: white; color: #eeeeee; font-style: normal;"> 7: </span>   variabel SimpanOutputnyaDisini telah didefinisikan sebelumnya dan berjenis Integer *)</i></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;"> 8: </span>   
<span style="background-color: white; color: #eeeeee; font-style: normal;"> 9: </span><span style="color: red;"><b>Procedure</b></span> BuatSecangkirKopi<span style="color: blue;"><b>(</b></span>Gula<span style="color: blue;"><b>:</b></span> KiloanGula<span style="color: blue;"><b>;</b></span> <span style="color: red;"><b>var</b></span> GelasTempatNyimpanKopi<span style="color: blue;"><b>:</b></span> Cangkir<span style="color: blue;"><b>)</b></span>
<span style="background-color: white; color: #cccccc; font-style: normal;">10: </span><span style="color: red;"><b>Begin</b></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;">11: </span> SiapkanSebungkusKopi<span style="color: blue;"><b>(</b></span>KapalApi<span style="color: blue;"><b>)</b></span><span style="color: blue;"><b>;</b></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;">12: </span> CampurKopiDengan<span style="color: blue;"><b>(</b></span>Gula<span style="color: blue;"><b>)</b></span><span style="color: blue;"><b>;</b></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;">13: </span> AdukKopi<span style="color: blue;"><b>;</b></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;">14: </span> TuangkanKedalam<span style="color: blue;"><b>(</b></span>GelasTempatNyimpanKopi<span style="color: blue;"><b>)</b></span><span style="color: blue;"><b>;</b></span>
<span style="background-color: white; color: #cccccc; font-style: normal;">15: </span> Sajikan<span style="color: blue;"><b>;</b></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;">16: </span><span style="color: red;"><b>End</b></span><span style="color: blue;"><b>;</b></span>
<span style="background-color: white; color: #eeeeee; font-style: normal;">17: </span>
<span style="background-color: white; color: #eeeeee; font-style: normal;">18: </span><span style="color: green;"><i>(* Contoh diatas adalah contoh fiktif untuk menggambarkan bedanya parameter input
<span style="background-color: white; color: #eeeeee; font-style: normal;">19: </span>   dengan parameter output *)</i></span></pre>
<br /><br />
<h1>
KAPAN DAN MENGAPA PROSEDUR? </h1>
<br />Prosedur
 merupakan penerapan konsep program modular, yaitu memecah-mecah program
 yang rumit menjadi program-program bagian yang lebih sederhana dalam 
bentuk prosedur-prosedur. Untuk hal-hal yang sering dilakukan 
berulang-ulang, cukup dituliskan sekali saja dalam procedure dan dapat 
dipanggil atau dipergunakan sewaktu-waktu bila diperlukan. <br />
<br /><br />Golongan
 orang yang membutuhkan prosedur adalah setiap programmer yang membangun
 sebuah aplikasi yang cukup besar dengan fungsi tertentu yang sangat 
rumit akan sangat memerlukan prosedur/ fungsi. Setiap tugas/ fungsi akan
 ditempatkan pada posisi tetentu untuk mempermudah erorr handling/ 
debugging dilakukan. Error Handling adalah proses mengatasi setiap error
 atau gangguan dalam sebuah program. Debugging adalah proses menemukan 
permasalahan dalam suatu script program. <br />
<br /><br />Dengan prosedur,
 kita dapat menangkap dan menemukan serta memecahkan permasalahan dalam 
script dengan mudah karena anda akan menemukan runtime error anda tidak 
dalam program body, melainkan dalam procedure yang anda panggil (jika 
erorrnya memang dari procedure body). <br />
<br /><br />Subprogram 
(prosedur/ fungsi) digunakan dimana seorang programmer memerlukan 
beberapa tugas/ fungsi tertentu dalam satu program. Jika program yang 
memiliki tugas/ fungsi tertentu yang harus digunakan dan berjumlah 
banyak maka tidak mungkin menambahkan tugas/ fungsi tersebut 
berkali-kali. Cape ngetiknya, itu aja. Filenya juga jadi besar. <br />
<br /><br />END <br />
   <br />
<br />
<br />
<br /></div>

Definisi Prosedur Procedure merupakan salah satu jenis subprogram dalam turbo pascal. Dalam sebuah procedure, anda akan seperti membuat ...

Tutorial Turbo Pascal : Variabel, Konstanta dan Jenis Data

Unknown May 08, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: left;">
<span style="font-weight: normal;">Programming pada dasarnya tidak luput dari interaksi. Interaksi yang dimaksud 
        disini adalah interaksi antara program dengan pengguna atau sebaliknya. Saat hal 
        itu terjadi, kita perlu sebuah 'tempat penyimpanan sederhana' untuk data-data 
        yang dimasukkan oleh pengguna untuk selanjutnya diproses. Dalam programming, hal 
        ini dikenal dengan istilah 'VARIABEL' </span></div>
<h1>
<span style="font-weight: normal;">Apa itu VARIABEL?</span></h1>
<div style="text-align: left;">
<span style="font-family: inherit;"><span style="font-size: small;"><span style="font-weight: normal;"> Contoh: Anda membuat program untuk menanyakan nama pengguna dan anda akan 
        menampilkan kembali nama pengguna tersebut dalam huruf kapital seluruhnya. Maka 
        anda membuat program yang menanyakan nama pengguna. Namun, dimanakah nama yang 
        telah diketik akan disimpan dalam program untuk diproses?<br />
VARIABEL merupakan nama yang digunakan sebagai tempat penyimpanan sementara 
        suatu data yang diketikkan pengguna untuk selanjutnya diproses. Dalam Turbo 
        Pascal 7.0, VARIABEL dibuat dengan pernyataan VAR pada awal kode.</span></span></span></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<span style="font-family: inherit;"><span style="font-size: small;"><span style="font-weight: normal;">VAR NamaVaiabel: JenisVariabel;</span></span></span></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<span style="font-family: inherit;"><span style="font-size: small;"><span style="font-weight: normal;">Aturan-aturan dalam penamaan variabel:<br />
</span></span></span></div>
<ul>
<li>Hanya boleh mengandung angka, huruf atau underscore (_);</li>
<li>Hanya boleh dimulai dengan huruf atau underscore (_);</li>
<li>Tidak boleh melebihi 127 karakter; dan</li>
<li>Bukan merupakan salah satu dari Reserved Words.</li>
</ul>
Turbo Pascal 7.0 adalah bahasa yang case-sensitive, artinya bahwa huruf besar 
        maupun kecil tidak menjadi masalah. 'NamaLengkap' dan 'NAMALENGKAP' dianggap 
        sebagai sebuah variabel yang sama. Namun, anda akan lebih mudah membaca 
        NamaLengkap ketimbang NAMALENGKAP.<br />
<br />
<div style="text-align: left;">
<span style="font-size: large;"><b>Kapan kita membuat VARIABEL?</b></span></div>
<div style="text-align: left;">
<span style="font-size: large;"><span style="font-family: inherit;"><span style="font-size: small;">Variabel harus dibuat pada awal program (header), yaitu sebelum BEGIN yang 
    pertama.</span></span></span></div>
<div style="text-align: left;">
<b><span style="font-size: large;">Kapan kita menggunakan VARIABEL?</span></b></div>
<div style="text-align: left;">
<span style="font-family: inherit;"><span style="font-size: small;">Variabel akan kita gunakan saat kita memerlukannya. Contoh sederhana penggunaan 
    VARIABEL adalah ketika kita membuat program untuk menghitung trigonometri (sin). 
    Anda akan membuat sebuah variabel bernama SUDUT untuk menyimpan nilai sudut yang 
    telah diketik pengguna dan anda akan memproses nilai yang terkandung dalam 
    variabel SUDUT untuk dicari sin-nya.</span></span></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<span style="font-family: inherit;"><span style="font-size: small;">PROGRAM Sinus;<br />
    USES crt;<br />
    VAR <b>Sudut</b>: <span class="style1">Real</span>;<br />
    BEGIN<br />
 Write('Masukkan sudut (derajat): ');<br />
 <b>ReadLn(Sudut);</b><br />
 <i>Write('Sin(', <b>Sudut</b>, ') adalah ', Sin(Sudut));</i><br />
    END.</span></span></div>
<div style="text-align: left;">
<br /></div>
<div style="text-align: left;">
<span style="font-family: inherit;"><span style="font-size: small;">Seperti yang sudah disinggung dalam Bagian 4, bahwa fungsi READ dan READLN dapat 
    digunakan untuk memperoleh input dari pengguna. Artinya, kita dapat menggunakan 
    variabel untuk menyimpan input yang diperoleh melalui READ atau READLN. Caranya 
    dengan mengetikkan nama variabel saat menggunakan READ atau READLN didalam 
    kurung. Perhatikan tulisan yang ditebalkan dalam contoh kode diatas.<br />
Selain itu, kita juga dapat menggunakan variabel untuk memunculkan hasil output 
        proses program. Perhatikan contoh yang dicetak miring. Perintah WRITE digunakan 
        untuk menunjukkan sinus dari sudut yang telah diterima. Fungsi Sin(Sudut) akan 
        menghasilkan sinus dari suatu sudut. Hasil sinus ini akan ditampilkan dengan 
        perintah WRITE.</span></span></div>
<div style="text-align: left;">
<br /></div>
<h1>
Jenis Data</h1>
<div style="text-align: left;">
<span style="font-family: inherit;"><span style="font-size: small;"><span style="font-weight: normal;">Dalam Turbo Pascal dikenal beberapa jenis data yang umum digunakan (kita tidak 
        sedang membicarakan object dan custom type). Anda dapat menggunakan jenis data 
        ini dalam pembuatan variabel, prosedur, fungsi dan objek. Untuk mengetahui 
        dimana anda dapat meletakkan jenis data, perhatikan contoh program di atas yang 
        diberi garis bawah.</span></span></span><br />
</div>
<ul>
<li>Integer<br />
            Integer merupakan bilangan bulat yang dalam Turbo Pascal 7.0 batasannya adalah 
            dari -32768 hingga 32767. Melakukan operasi aritmatika yang melibatkan Integer 
            dimana hasilnya diatas atau dibawah batas Integer akan mengakibatkan Overflow, 
            dan operasi aritmatika tersebut tidak akan diproses.</li>
<li>Real<br />
            Real juga merupakan bilangan bulat yang dalam turbo pascal batasannya adalah 
            dari 10<sup>-38</sup> hingga 10<sup>38</sup> dengan paling banyak 11 angka di belakang koma (Integer 
            tidak memperbolehkan adanya angka di belakang koma, Real tidak membenarkan 
            bilangan negatif).<br />
            Ada beberapa catatan yang perlu diperhatikan ketika menggunakan bilangan Real. 
            Catatan-catatan tersebut akan kita pelajari seiring berjalannya tutorial.</li>
<li>Boolean<br />
            Boolean disebut juga nilai kebenaran suatu pernyataan logika, dimana nilai yang 
            benar untuk Boolean adalah TRUE atau FALSE (HANYA TRUE atau FALSE saja). Catatan 
            untuk boolean adalah bahwa FALSE < TRUE.</li>
<li>Char<br />
            Char menggambarkan satu karakter dalam himpunan karakter ASCII, seperti 'A', 
            'a', 'b', 'B', '!' dan seterusnya. Jarak nilai CHAR adalah dari 0 - 255. 
            Karakter disusun berdasarkan urutannya dalam himpunan karakter ASCII. Maka dapat 
            dikatakan 'A' < 'B'.</li>
<li>Byte<br />
            Byte merupakan sebuah anak dari Integer dengan jarak nilai 0 - 255. Karena Byte 
            merupakan bagian dari Integer, anda dapat memasukkan variabel atau nilai 
            berjenis Byte kedalam sebuah operasi Integer.</li>
<li>String<br />
            String merupakan himpunan atau rangkaian karakter. Biasanya sebuah string 
            dinyatakan dalam tanda kutip satu ('...').</li>
</ul>
<h1>
Konstanta</h1>
<div style="text-align: left;">
<span style="font-family: inherit;"><span style="font-size: small;">Konstanta pada programming pada dasarnya tidak jauh berbeda dengan konstanta 
    pada matematika. Konstanta pada programming merupakan sebuah nama yang mewakili 
    sebuah nilai, dimana nilai yang diwakili oleh konstanta ini tidak dapat 
    dirubah<span style="font-weight: normal;">. Variabel merupakan sebuah nama yang mewakili sebuah nilai dan dapat 
    diproses serta diubah.<br />
<br />
Konstanta digunakan apabila anda sering menggunakan suatu nilai konstanta secara 
    berulang-ulang dalam kode anda, dan anda tidak ingin kerepotan untuk mengetikkan 
    nilai konstanta itu terus menerus.<br />
Untuk membuat sebuah konstanta pada dasarnya sama sepertUntuk membuat sebuah konstanta pada dasarnya sama seperti Variabel.<br />
<br />
const NamaKonstanta: JenisKonstanta := NilaiKonstanta;<br />
<br />
Aturan penamaan konstanta sama dengan variabel, Jenis konstanta merupakan jenis 
        dari konstanta tersebut. Dapat berarti jenis-jenis bawaan seperti yang telah 
        dijelaskan di atas, atau jenis-jenis data buatan. Nilai Konstanta merupakan 
        nilai dari konstanta yang diwakili nama, pastikan sesuai dengan jenis 
        konstantanya (contoh: anda tidak boleh mengetikkan 32780 pada konstanta berjenis 
        Integer). </span></span></span></div>
</div>

Programming pada dasarnya tidak luput dari interaksi. Interaksi yang dimaksud disini adalah interaksi antara program dengan pengg...

Program KHS Mahasiswa

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
program record_data_mahasiswa;<br />
uses crt;<br />
const nMaks = 100;<br />
Mn = 10;<br />
<br />
Type <br />
     matakuliah = record<br />
         kodemk : string[8];<br />
         namamk : string[20];<br />
            sks : integer;<br />
         nilai  : integer;<br />
      sksxnilai : integer;<br />
end;<br />
<br />
      mahasiswa = record<br />
             mk : array[1..Mn] of matakuliah;<br />
            NIM : string[15];<br />
       nama : string[20];<br />
       skstotal : integer;<br />
      nilaitotal: integer;<br />
             ip : real;<br />
        nextsks : string[8];<br />
<br />
end;<br />
<br />
var<br />
         TabMhs : array[1..nMaks] of mahasiswa;<br />
     I, J, M, N : integer;<br />
         nilaiN : integer;<br />
         nilaiH : string[2];<br />
         tambah : char;<br />
<br />
procedure konversinilaiH;<br />
begin<br />
     if TabMhs[I].mk[J].nilai > 80 then nilaiH := 'A'<br />
else if(TabMhs[I].mk[J].nilai >=70)and(TabMhs[I].mk[J].nilai <=80)then nilaiH := 'B'<br />
else if(TabMhs[I].mk[J].nilai >=50)and(TabMhs[I].mk[J].nilai <=69)then nilaiH := 'C'<br />
else if(TabMhs[I].mk[J].nilai >=40)and(TabMhs[I].mk[J].nilai <=59)then nilaiH := 'D'<br />
else                                                                   nilaiH := 'E'<br />
end;<br />
<br />
procedure konversinilaiN;<br />
begin<br />
     if NilaiH = 'A' then nilaiN := 4<br />
else if nilaiH = 'B' then nilaiN := 3<br />
else if nilaiH = 'C' then nilaiN := 2<br />
else if nilaiH = 'D' then nilaiN := 1<br />
else                      nilaiN := 0<br />
end;<br />
<br />
procedure ambilsks;<br />
begin<br />
     if TabMhs[I].ip >= 3.00                              then TabMhs[I].nextsks := '22 - 24'<br />
else if (TabMhs[I].ip <= 2.99) and (TabMhs[I].ip >= 2.50) then TabMhs[I].nextsks := '22 - 24'<br />
else if (TabMhs[I].ip <= 2.49) and (TabMhs[I].ip >= 2.00) then TabMhs[I].nextsks := '20 - 22'<br />
else if (TabMhs[I].ip <= 1.99) and (TabMhs[I].ip >= 1.50) then TabMhs[I].nextsks := '18 - 20'<br />
else if  TabMhs[I].ip <  1.50                             then TabMhs[I].nextsks := '16 - 18'<br />
end;<br />
<br />
procedure tampildata;<br />
begin<br />
for I:= 1 to N do<br />
begin<br />
writeln ('                    Kartu Hasil Studi    ');<br />
writeln ('                 ------------------------');<br />
writeln ('                                         ');<br />
writeln ('                 ------------------------');<br />
writeln ('                                         ');<br />
writeln ('                 ------------------------');<br />
writeln('=====================================================================');<br />
writeln('Nama Mahasiswa : ',TabMhs[I].nama);<br />
writeln('NRP Mahasiswa  : ',TabMhs[I].NIM);<br />
writeln('---------------------------------------------------------------------');<br />
writeln('No |Kode MK   |Nama Mata Kuliah   |Nilai|Nilai|Nilai|SKS|SKS x Nilai ');<br />
writeln('                                  |  MK |  H  |  N  |   |      Angka ');<br />
writeln('---------------------------------------------------------------------');<br />
<br />
for J := 1 to M do<br />
begin<br />
konversinilaiH;<br />
konversinilaiN;<br />
<br />
TabMhs[I].mk[J].sksxnilai := nilaiN * TabMhs[I].mk[J].sks;<br />
writeln(J:1,TabMhs[I].mk[J].kodemk:11,TabMhs[I].mk[J].namamk:19,<br />
TabMhs[I].mk[J].nilai:7,nilaiH:6,nilaiN:6,<br />
TabMhs[I].mk[J].sks:5,TabMhs[I].mk[J].sksxnilai:8);<br />
<br />
TabMhs[I].skstotal   := TabMhs[I].skstotal + TabMhs[I].mk[J].sks;<br />
TabMhs[I].nilaitotal := TabMhs[I].nilaitotal + TabMhs[I].mk[J].sksxnilai;<br />
<br />
end;<br />
<br />
writeln('---------------------------------------------------------------------');<br />
writeln('                TOTA L           ',TabMhs[I].skstotal:22,TabMhs[I].nilaitotal:8);<br />
writeln('---------------------------------------------------------------------');<br />
<br />
TabMhs[I].ip := TabMhs[I].nilaitotal / TabMhs[I].skstotal;<br />
<br />
writeln('IP Semester = ',TabMhs[I].nilaitotal,'/',TabMhs[I].skstotal,' = ',TabMhs[I].ip:0:2);<br />
<br />
ambilsks;<br />
writeln('SKS yang dapat diambil semester berikutnya = ',TabMhs[I].nextsks);<br />
writeln;<br />
end;<br />
end;<br />
<br />
procedure bacadata;<br />
begin<br />
for I := 1 to N do<br />
begin<br />
write('NRP Mahasiswa ke-',I,'       = ');readln(TabMhs[I].NIM);<br />
write('Nama Mahasiswa ke-',I,'      = ');readln(TabMhs[I].nama);<br />
write('Jumlah Mata Kuliah       = ');readln(M);<br />
writeln('--------------------------------------------------');<br />
<br />
for J := 1 to M do<br />
begin<br />
write('Kode Matakuliah ke  -',J,'   = ');readln(TabMhs[I].mk[J].kodemk);<br />
write('Nama Matakuliah          = ');readln(TabMhs[I].mk[J].namamk);<br />
write('SKS Matakuliah           = ');readln(TabMhs[I].mk[J].sks);<br />
write('nilai Matakuliah         = ');readln(TabMhs[I].mk[J].nilai);<br />
writeln('--------------------------------------------------');<br />
end;<br />
end;<br />
end;<br />
<br />
begin<br />
write('Masukkan Jumlah Data Mahasiswa = ');readln(N);<br />
<br />
Repeat<br />
clrscr;<br />
bacadata;<br />
<br />
clrscr;<br />
tampildata;<br />
write ('Anda Ingin Memasukkan Data Mahasiswa Lagi? [Y/N] (maaf, koment repeat gagal,');<br />
write ('anda bisa perbaikinya sendiri) : ');readln(tambah);<br />
tambah := Upcase(tambah);<br />
until (tambah <> 'Y');<br />
end.</div>

program record_data_mahasiswa; uses crt; const nMaks = 100; Mn = 10; Type matakuliah = record kodemk : string[8]; ...

Program Pencari Pembagi

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Program yang mungkin terlihat paling 
ribet, tapi sebenarnya alurnya sederhana. Berungsi untuk menampilkan 
pembagi dan hasil bagi bilangan bulat yang di masukan. Selain itu, 
disini juga bisa digunakan untuk menentukan bilangan mana yang prima 
atau bukan. Sebelumnya program ini sudah pernah di publish di artikel ini, namun saya tidak tampilkan source kodenya. Silahkan bila ingin langsung mencoba bisa langsung kesana.</div>
<div style="text-align: justify;">
Sebenarnya ada cacat di program 
ini, yaitu ada 2 perulangan disini. Yang satu untuk menentukan bilangan 
prima,  satunya lagi untuk menentukan pembagi. Sebenarnya 2 perulangan 
itu dapat dipangkas menjadi satu saja. Sehingga 2 perulangan menjadi 
tidak efisien. Kenapa harus 2?</div>
<div style="text-align: justify;">
Sejarahnya begini, awalnya saya 
menulis program ini iseng-iseng hanya untuk mencari yang mana bilangan 
prima. Lalu saya kembangkan lagi menjadi bisa menuliskan daftar bilangan
 pembagi, waktu itu, daripada repot mengedit perulangan untuk menentukan
 bilangan prima yang sudah mapan, saya membuat perulangan baru. Dan 
akhirnya program ini punya 2 perulangan yang strukturnya hampir mirip.</div>
<div style="text-align: justify;">
Tapi nampaknya tidak masalah, 
toh selisih waktu kalkulasinya hanya beberapa milidetik, bahkan untuk 
bilangan yang mencapai ratusan juta sekalipun. Mau edit lagi, rasanya 
malas……Berikut kodenya…….:</div>
<div style="text-align: justify;">
Hint: Sebelum di compile, buat dulu file bernama output.txt di folder yang sama dengan source code pembagi.</div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2T1Wp_ke3cDw6Uop1tM23STsHhBjk-1d3t1UohN-4hMtjjhZSRXeOlSRjh58lf-AMVmiZ-n7OUj7hQqwwkL0nzFCEpTPBCyesbX0T7MQnLczubEfgHODcgqLdfp6sd_tPFemBBnf8caQ/s1600/15.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2T1Wp_ke3cDw6Uop1tM23STsHhBjk-1d3t1UohN-4hMtjjhZSRXeOlSRjh58lf-AMVmiZ-n7OUj7hQqwwkL0nzFCEpTPBCyesbX0T7MQnLczubEfgHODcgqLdfp6sd_tPFemBBnf8caQ/s1600/15.jpg" /></a></div>
<div id="code">
<div style="text-align: justify;">
program pembagi;</div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var x,y,q,w,z,e,f,g:longint;</div>
<div style="text-align: justify;">
    l,a:string;</div>
<div style="text-align: justify;">
    out:text;</div>
<div style="text-align: justify;">
label k;</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
{prosedur untuk sekedar  merapikan hasil output}</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
procedure rapikan(s:longint;var t:string);</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
if s<10 then</div>
<div style="text-align: justify;">
 t:='          '</div>
<div style="text-align: justify;">
 else if (s>9) and (s<100) then</div>
<div style="text-align: justify;">
 t:='         '</div>
<div style="text-align: justify;">
 else if (s>99) and (s<1000) then</div>
<div style="text-align: justify;">
 t:='        '</div>
<div style="text-align: justify;">
 else if (s>999) and (s<10000) then</div>
<div style="text-align: justify;">
 t:='       '</div>
<div style="text-align: justify;">
 else if (s>9999) and (s<100000) then</div>
<div style="text-align: justify;">
 t:='      '</div>
<div style="text-align: justify;">
 else if (s>99999) and (s<1000000) then</div>
<div style="text-align: justify;">
 t:='     '</div>
<div style="text-align: justify;">
 else if (s>999999) and (s<10000000) then</div>
<div style="text-align: justify;">
 t:='    '</div>
<div style="text-align: justify;">
 else if (s>9999999) and (s<100000000) then</div>
<div style="text-align: justify;">
 t:='   '</div>
<div style="text-align: justify;">
 else if (s>99999999) and (s<1000000000) then</div>
<div style="text-align: justify;">
 t:='  '</div>
<div style="text-align: justify;">
 else if (s>999999999) and (s<1000000000) then</div>
<div style="text-align: justify;">
 t:=' '</div>
<div style="text-align: justify;">
 else t:=' ';</div>
<div style="text-align: justify;">
end;</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
{program utama}</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
textbackground(blue);</div>
<div style="text-align: justify;">
textcolor(Yellow);</div>
<div style="text-align: justify;">
clrscr;</div>
<div style="text-align: justify;">
assign(out,'output.txt');</div>
<div style="text-align: justify;">
append(out);</div>
<div style="text-align: justify;">
 gotoxy(3,1);writeln('+______________________________________________________+');</div>
<div style="text-align: justify;">
 gotoxy(3,2);writeln('|Copyright@2009, Xenovon, http://komputok.blogspot.com |');</div>
<div style="text-align: justify;">
 gotoxy(3,3);Writeln('+------------------------------------------------------+');</div>
<div style="text-align: justify;">
 writeln;</div>
<div style="text-align: justify;">
 writeln;</div>
<div style="text-align: justify;">
 gotoxy(3,5);writeln('Hint: Masukan angka 2 untuk keluar');</div>
<div style="text-align: justify;">
 gotoxy(3,6);writeln('      hasil juga dioutputkan ke output.txt');</div>
<div style="text-align: justify;">
 writeln;</div>
<div style="text-align: justify;">
 writeln;</div>
<div style="text-align: justify;">
 gotoxy(15,9);writeln('----[MENENTUKAN PEMBAGI SUATU BILANGAN BULAT]------');</div>
<div style="text-align: justify;">
 writeln;</div>
<div style="text-align: justify;">
 writeln;</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
{menuliskan ke output.txt}</div>
<div style="text-align: justify;">
 writeln(out);</div>
<div style="text-align: justify;">
 writeln(out);</div>
<div style="text-align: justify;">
 writeln(out);</div>
<div style="text-align: justify;">
 writeln(out,'+______________________________________________________+');</div>
<div style="text-align: justify;">
 writeln(out,'|Copyright@2009, Xenovon, http://komputok.blogspot.com |');</div>
<div style="text-align: justify;">
 Writeln(out,'+------------------------------------------------------+');</div>
<div style="text-align: justify;">
 writeln(out);</div>
<div style="text-align: justify;">
 writeln(out);</div>
<div style="text-align: justify;">
 writeln(out);</div>
<div style="text-align: justify;">
 writeln(out,'----[MENENTUKAN PEMBAGI SUATU BILANGAN BULAT]------');</div>
<div style="text-align: justify;">
 writeln(out);</div>
<div style="text-align: justify;">
 begin</div>
<div style="text-align: justify;">
{input bilangan yang akan di cari}</div>
<div style="text-align: justify;">
 k:</div>
<div style="text-align: justify;">
 write('masukan bilangan yang akan di cek : ');readln(x);writeln;</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
{error handling}</div>
<div style="text-align: justify;">
 if x<2 then goto k else</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
{pemeriksaan kondisi untuk keluar program, yaitu dengan menginput angka 2}</div>
<div style="text-align: justify;">
 if x=2 then</div>
<div style="text-align: justify;">
   begin</div>
<div style="text-align: justify;">
    writeln('2 adalah bilangan prima');</div>
<div style="text-align: justify;">
    writeln;</div>
<div style="text-align: justify;">
    write('Mau keluar?(y/x)');readln(l);</div>
<div style="text-align: justify;">
    writeln;</div>
<div style="text-align: justify;">
      if l='y' then exit else goto k;</div>
<div style="text-align: justify;">
   end;</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
{Menentukan apakah bilangan prima atau bukan}</div>
<div style="text-align: justify;">
 begin</div>
<div style="text-align: justify;">
  y:=1;</div>
<div style="text-align: justify;">
  repeat</div>
<div style="text-align: justify;">
   y:=y+1;</div>
<div style="text-align: justify;">
   q:=x mod y;</div>
<div style="text-align: justify;">
  until  (q=0);</div>
<div style="text-align: justify;">
 end;</div>
<div style="text-align: justify;">
if y=x then</div>
<div style="text-align: justify;">
 begin</div>
<div style="text-align: justify;">
  writeln(x,' adalah bilangan prima');writeln;</div>
<div style="text-align: justify;">
 writeln(out,x,' adalah bilangan prima');writeln(out);</div>
<div style="text-align: justify;">
 end</div>
<div style="text-align: justify;">
else</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
     {apabila bukan prima, maka program menentukan pembagi yang mungkin}</div>
<div style="text-align: justify;">
 writeln('Pembagi dari ',x,': ');</div>
<div style="text-align: justify;">
 writeln('--------------------');</div>
<div style="text-align: justify;">
 writeln(out,'Pembagi dari ',x,': ');</div>
<div style="text-align: justify;">
 writeln(out,'--------------------');</div>
<div style="text-align: justify;">
 writeln(out);</div>
<div style="text-align: justify;">
 w:=1;</div>
<div style="text-align: justify;">
 repeat</div>
<div style="text-align: justify;">
  w:=w+1;</div>
<div style="text-align: justify;">
  e:=x mod w;</div>
<div style="text-align: justify;">
  if e=0 then</div>
<div style="text-align: justify;">
   begin</div>
<div style="text-align: justify;">
           {menuliskan pembagi & hasil bagi ke konsole dan ke output.txt}</div>
<div style="text-align: justify;">
   g:=x div w;</div>
<div style="text-align: justify;">
   rapikan(w,a);</div>
<div style="text-align: justify;">
   writeln(w,a,'--> ',x,'/',w,'= ',g);</div>
<div style="text-align: justify;">
   writeln(out,w,a,'--> ',x,'/',w,'= ',g);</div>
<div style="text-align: justify;">
   end;</div>
<div style="text-align: justify;">
 until  (w=x);</div>
<div style="text-align: justify;">
 writeln;</div>
<div style="text-align: justify;">
 writeln(out);</div>
<div style="text-align: justify;">
end;</div>
<div style="text-align: justify;">
goto k;</div>
<div style="text-align: justify;">
end;</div>
<div style="text-align: justify;">
close(out);</div>
<div style="text-align: justify;">
end.</div>
</div>
<div style="text-align: justify;">
<br /></div>
<br />
<br />
<br /></div>

Program yang mungkin terlihat paling ribet, tapi sebenarnya alurnya sederhana. Berungsi untuk menampilkan pembagi dan hasil bagi bilanga...

Program Iterasi (Melukis Z)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi:  Melukis huruf Z dengan karakter ‘*’ sebesar jumlah perulangan yang di inputkan</div>
<div style="text-align: justify;">
Hint : Masukan angka untuk menentukan besar huruf Z</div>
<div style="text-align: justify;">
Screen Shot:</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqk0ALnYKZGak8EPku3Kd31bRw0zeqEYTos_k8uzIEb1XGvQbCzBVh-ZlzEpP8Z5f7uTHynHb3R1C53cHalAB_Zya3F8eiZfkmf5x5ml9_mDiWJ42ldEAhjqWTPr9HveEzZNpvYernW2A/s1600/14.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqk0ALnYKZGak8EPku3Kd31bRw0zeqEYTos_k8uzIEb1XGvQbCzBVh-ZlzEpP8Z5f7uTHynHb3R1C53cHalAB_Zya3F8eiZfkmf5x5ml9_mDiWJ42ldEAhjqWTPr9HveEzZNpvYernW2A/s1600/14.jpg" /></a></div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var n,i,a:integer;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln(n);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to n do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span> begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> for a:=1 to n do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">    </span>begin</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">     </span> if (i=1) or (i=n) then</div>
<div style="text-align: justify;">
  <span style="white-space: pre;">      </span>write('#')</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">     </span> else if (i<>1) and (i<>n) then</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">      </span>  begin</div>
<div style="text-align: justify;">
  <span style="white-space: pre;">       </span> if a+i=n then</div>
<div style="text-align: justify;">
    <span style="white-space: pre;">       </span> write('#')</div>
<div style="text-align: justify;">
     <span style="white-space: pre;">      </span>else</div>
<div style="text-align: justify;">
   <span style="white-space: pre;">       </span> write(' ');</div>
<div style="text-align: justify;">
   <span style="white-space: pre;">     </span> end;</div>
<div style="text-align: justify;">
    <span style="white-space: pre;">   </span>end;</div>
<div style="text-align: justify;">
    <span style="white-space: pre;">  </span> writeln;</div>
<div style="text-align: justify;">
    <span style="white-space: pre;"> </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
<span style="white-space: pre;"> </span>end.<br />
<br /></div>

Fungsi: Melukis huruf Z dengan karakter ‘*’ sebesar jumlah perulangan yang di inputkan Hint : Masukan angka untuk menentukan besar huru...

Program Iterasi (Tebak Angka)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi:  Permainan Tebak angka, masukan angka rahasia dan suruh teman untuk menebaknya</div>
<div style="text-align: justify;">
Hint :  Permainan ini tidak akan asik bila dilakukan sendirian.</div>
<div style="text-align: justify;">
Screen Shot:</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjW8akb3GoSnQWghQV7g6YZOlCnUjY1lMAl5i__4fsTl4sUyUOKj05RpON1Mp-rgpTqksGYG8jvbUe_6LXkAmLh1_gIPfQhBaTQAC1o_XEkyQbHid3ATogjh8uVs60fpFtGGotKQpd8MTg/s1600/13.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjW8akb3GoSnQWghQV7g6YZOlCnUjY1lMAl5i__4fsTl4sUyUOKj05RpON1Mp-rgpTqksGYG8jvbUe_6LXkAmLh1_gIPfQhBaTQAC1o_XEkyQbHid3ATogjh8uVs60fpFtGGotKQpd8MTg/s1600/13.jpg" /></a></div>
<br />
<br />
<br />
<div id="code">
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var a,teb,c,d,rhs:integer;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>Write('Bilangan Rahasia : ');readln(rhs);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>repeat</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>write('masukan Tebakan anda : ');readln(teb);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>if (teb<>rhs) and (teb>rhs) then</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln('Bilangan terlalu besar!')</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span> else if (teb<>rhs) and (teb</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln('bilangan terlalu kecil');</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>until (teb=rhs);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('Tebakan Anda Benar!!!!, selamat!!!!');</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>end.</div>
</div>
<div style="text-align: justify;">
<br /></div>
<br />
<br />
<br /></div>

Fungsi: Permainan Tebak angka, masukan angka rahasia dan suruh teman untuk menebaknya Hint : Permainan ini tidak akan asik bila dilaku...

Program Iterasi (Jumlah Pangkat)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi:  untuk menghasilkan deret pangkat, misal : 1, 4, 9, 16, 25 dst dan menjumlahkannya</div>
<div style="text-align: justify;">
Hint : Masukan jumlah deret pangkat yang akan ditampilkan untuk di jumlah…</div>
<div style="text-align: justify;">
Screen Shot:</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhkU4lFrMJVF86LobjeGMF5F9An7oVqRboU2DPPoZcBLeg1o4XSqTIJdU2lgjNZ4cpr9hvB7Bm9D0f8hAXFYyRMoaFxcBOsemH5qBfCZbGNSSYra4DGLfJzFTrJbx5RJzYQzaxtH5ijXas/s1600/12.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhkU4lFrMJVF86LobjeGMF5F9An7oVqRboU2DPPoZcBLeg1o4XSqTIJdU2lgjNZ4cpr9hvB7Bm9D0f8hAXFYyRMoaFxcBOsemH5qBfCZbGNSSYra4DGLfJzFTrJbx5RJzYQzaxtH5ijXas/s1600/12.jpg" /></a></div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var k,jum:double;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>i,n:longint;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln(n);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>jum:=0;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to n do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> k:=sqr(i);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span>write(k:0:0);</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">   </span>if i<>n then</div>
<div style="text-align: justify;">
<span style="white-space: pre;">    </span> write('+');</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span> <span style="white-space: pre;"> </span>jum:=jum+k;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> <span style="white-space: pre;"> </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('=',jum:0:0);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
end.<br />
<br /></div>

Fungsi: untuk menghasilkan deret pangkat, misal : 1, 4, 9, 16, 25 dst dan menjumlahkannya Hint : Masukan jumlah deret pangkat yang akan...

Program Iterasi (Angka)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi: Tak ada fungsi khusus, hanya menampilkan pola-pola angka saja…</div>
<div style="text-align: justify;">
Hint : Begitu jalan, langsung masukan angka saja, Jangan masukan angka terlalu kecil atau besar.</div>
<div style="text-align: justify;">
Screen Shot:</div>
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhrVmL-GLqrOMZgzVugTPr60Pt1zlISUl9Z8Mk09_I9IgY-JHRnxHKDJID7gWwNYHoqyx45U7sM4mYhyh919ryVVgynnVsS2cFwptS0BEi2W0moEFKZaEcMGMnS-CKvD3Gr3jx2x4vm1iM/s1600/11.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/AVvXsEhrVmL-GLqrOMZgzVugTPr60Pt1zlISUl9Z8Mk09_I9IgY-JHRnxHKDJID7gWwNYHoqyx45U7sM4mYhyh919ryVVgynnVsS2cFwptS0BEi2W0moEFKZaEcMGMnS-CKvD3Gr3jx2x4vm1iM/s1600/11.jpg" /></a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var inp,i,a,t,r:integer;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln(inp);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>t:=inp;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to inp do</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">  </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> for a:=1 to inp do</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">    </span>write(a-t);</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">    </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">    </span> t:=t-1;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span> end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
end.</div>

Fungsi: Tak ada fungsi khusus, hanya menampilkan pola-pola angka saja… Hint : Begitu jalan, langsung masukan angka saja, Jangan masukan ...

Program Array (Fibbonaci Generator)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi: Kode untuk Menghasilkan deret fibbonaci</div>
<div style="text-align: justify;">
Hint : Fibbonaci adalah deret yang angka selanjutnya adalah penjumlahan 2 angka sebelumnya.</div>
<div style="text-align: justify;">
Misal : 1 1 2 3 5 8 13 21 ….dst</div>
Screen Shot:<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiSEvvC43erkmQg1B8uDU9509Q3QWT7jDUruM_84qMMH0pBOuFlD7pbAHPdlyvQ9rdsvU00H0QQStdo8WoNbVGTQrLy2dhwUBBssenI7kBLepAAk-BE0tShytOTSeaCvtJOPU6jM30ghhg/s1600/10.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiSEvvC43erkmQg1B8uDU9509Q3QWT7jDUruM_84qMMH0pBOuFlD7pbAHPdlyvQ9rdsvU00H0QQStdo8WoNbVGTQrLy2dhwUBBssenI7kBLepAAk-BE0tShytOTSeaCvtJOPU6jM30ghhg/s1600/10.jpg" /></a></div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var a:array[1..1000] of longint;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>i,k:integer;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('Input banyaknya fibbonaci: ');readln(i);</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>{fibbonacigenerator}</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>a[1]:=1;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>a[2]:=1;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for k:=2 to i do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span>a[k+1]:=a[k]+a[k-1];</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
{menulis fibbonaci}</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for k:=1 to i do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span>write(a[k],' ');</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
end. </div>

Fungsi: Kode untuk Menghasilkan deret fibbonaci Hint : Fibbonaci adalah deret yang angka selanjutnya adalah penjumlahan 2 angka sebelumn...

Program Array (Tabel Ajaib)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi : Membuat tabel angka yang apabila nilai tabel dalam satu baris, kolom, dan diagonal di jumlahkan hasilnya akan sama.</div>
<div style="text-align: justify;">
Hint: jangan terlalu heran, semua sudah ada rumusnya. Tinggal masukan angka-angka saja.</div>
Screen Shot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnFZesvA6ZvAkz1lR-O1FFLMIe7GmqpQHYbuiBWjk-fehyphenhyphenwersBcgqp535UoI85VievNqqo2IrG9VURA3eHKjXF7LIRE4YMpHeb5yFmN9wclcVj5QMKX0tPsNj0JUuqLnHap4v6ymLARI/s1600/8.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnFZesvA6ZvAkz1lR-O1FFLMIe7GmqpQHYbuiBWjk-fehyphenhyphenwersBcgqp535UoI85VievNqqo2IrG9VURA3eHKjXF7LIRE4YMpHeb5yFmN9wclcVj5QMKX0tPsNj0JUuqLnHap4v6ymLARI/s1600/8.jpg" /></a></div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var a,b,c,d,w,x,y,z,i,j:integer;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>tab:array[1..4,1..4] of integer;</div>
<div style="text-align: justify;">
procedure lukistabel;</div>
<div style="text-align: justify;">
{Prosedur untuk menampilkan tabel}</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>var c:string;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>for i:=1 to 4 do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">    </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">    </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">    </span>for j:=1 to 4 do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">     </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">      </span> begin</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">       </span>if (tab[i,j]>9) or ((tab[i,j]<0) and (tab[i,j]>-10))  then</div>
<div style="text-align: justify;">
<span style="white-space: pre;">        </span>  c:='    '</div>
<div style="text-align: justify;">
<span style="white-space: pre;">       </span> else if (tab[i,j]<10) and (tab[i,j]>-1) then</div>
<div style="text-align: justify;">
<span style="white-space: pre;">        </span>  c:='      '</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">       </span> else c:='  ';</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">      </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">     </span>if j=1 then</div>
<div style="text-align: justify;">
<span style="white-space: pre;">      </span>write(tab[i,j],c)</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">     </span>else if j=2 then write(tab[i,j])</div>
<div style="text-align: justify;">
<span style="white-space: pre;">      </span> else write(c,tab[i,j]);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">     </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>end;</div>
<div style="text-align: justify;">
{program utama}</div>
<div style="text-align: justify;">
Begin</div>
<div style="text-align: justify;">
{memasukan nilai}</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('a = ');readln(a);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('b = ');readln(b);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('c = ');readln(c);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('d = ');readln(d);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('w = ');readln(w);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('x = ');readln(x);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('y = ');readln(y);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('z = ');readln(z);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('memproses.......');</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>delay(500);</div>
<div style="text-align: justify;">
{rumusnya ini}</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[1,1]:=a-w;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[1,2]:=c+w+y;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[1,3]:=b+x-y;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[1,4]:=d-x;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[2,1]:=d+w-z;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[2,2]:=b;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[2,3]:=c;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[2,4]:=a-w+z;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[3,1]:=c-x+z;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[3,2]:=a;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[3,3]:=d;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[3,4]:=b+x-z;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[4,1]:=b+x;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[4,2]:=d-w-y;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[4,3]:=a-x+y;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[4,4]:=c+w;</div>
<div style="text-align: justify;">
{pemanggilan prosedur lukis tabel}</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>lukistabel;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
end.</div>

Fungsi : Membuat tabel angka yang apabila nilai tabel dalam satu baris, kolom, dan diagonal di jumlahkan hasilnya akan sama. Hint: janga...

Program Array (Pendataan Mahasiswa)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi: Mendata data mahasiswa, atau apalah dengan array dan menampilkannya.</div>
<div style="text-align: justify;">
Hint: Intinya adalah membuat array di record.</div>
Screen shot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivf6bgarLgJpdcL1Yn_XRbE-OiDi6Gacq23XEgb97tLAtWvugkqqFHXKz_aH7LGXkwxV2-KwreUZYj53OjIly-yq7TnU-mg4kkqQ5kh8U3PZ-1Mug7F_PJXisUvipfY9f6G3i0BuF-88U/s1600/7.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivf6bgarLgJpdcL1Yn_XRbE-OiDi6Gacq23XEgb97tLAtWvugkqqFHXKz_aH7LGXkwxV2-KwreUZYj53OjIly-yq7TnU-mg4kkqQ5kh8U3PZ-1Mug7F_PJXisUvipfY9f6G3i0BuF-88U/s1600/7.jpg" /></a></div>
<div style="text-align: justify;">
program mhsw;</div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
type mahasiswa=record</div>
<div style="text-align: justify;">
               nama,nim,kelas:string;</div>
<div style="text-align: justify;">
               end;</div>
<div style="text-align: justify;">
var m:array[1..41] of mahasiswa;</div>
<div style="text-align: justify;">
       j,i:integer;</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('Jumlah mahasiswa yang mendaftar : ');readln(j);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to j do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln('Mahasiswa ',i,':');</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> write('Nama       : ');readln(m[i].nama);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> write('Nim        : ');readln(m[i].nim);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> write('Kelas      : ');readln(m[i].kelas);</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">   </span>writeln;</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">   </span>writeln;</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">  </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('==================================');</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('DATA MAHASISWA KOMPUTOK');</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('==================================');</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to j do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span> <span style="white-space: pre;"> </span>writeln('Mahasiswa ',i,':');</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln('Nama       : ',m[i].nama);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln('Nim        : ',m[i].nim);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln('Kelas      : ',m[i].kelas);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
end.</div>

Fungsi: Mendata data mahasiswa, atau apalah dengan array dan menampilkannya. Hint: Intinya adalah membuat array di record. Screen shot ...

Program Array (Penjumlah Matrix)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi : Menjumlahkan dua matriks 3x3 yang diinputkan</div>
<div style="text-align: justify;">
Hint: Masukan nilai matriks di tiap-tiap baris dan kolom.</div>
Screen Shot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgGmsea_XJ1BpS41osl2w9E2J8RzcF209d60wyZUva6tnZLDsIPvpXeNFxFzf5pzD0mAHfL9NbfU1Rp0l16fEJzHFnLI_q7cWtxY7PBDbe7YQ31eO8f5BWrFj2AXPdSf4P1qywx2aIcc7k/s1600/6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgGmsea_XJ1BpS41osl2w9E2J8RzcF209d60wyZUva6tnZLDsIPvpXeNFxFzf5pzD0mAHfL9NbfU1Rp0l16fEJzHFnLI_q7cWtxY7PBDbe7YQ31eO8f5BWrFj2AXPdSf4P1qywx2aIcc7k/s1600/6.jpg" /></a></div>
<div id="code">
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
 var m1,m2,mp:array[1..10,1..10] of integer;</div>
<div style="text-align: justify;">
       i,j,k,l:integer;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
{Menginput nilai matriks}</div>
<div style="text-align: justify;">
  writeln('Matriks ke 1');</div>
<div style="text-align: justify;">
  for i:=1 to 3 do</div>
<div style="text-align: justify;">
    for j:=1 to 3 do</div>
<div style="text-align: justify;">
       begin</div>
<div style="text-align: justify;">
          write('m1[',i,',',j,'] : ');readln(m1[i,j]);</div>
<div style="text-align: justify;">
       end;</div>
<div style="text-align: justify;">
  writeln;</div>
<div style="text-align: justify;">
  writeln('Matriks ke 2');</div>
<div style="text-align: justify;">
  for i:=1 to 3 do</div>
<div style="text-align: justify;">
       for j:=1 to 3 do</div>
<div style="text-align: justify;">
         begin</div>
<div style="text-align: justify;">
           write('m2[',i,',',j,'] : ');readln(m2[i,j]);</div>
<div style="text-align: justify;">
         end;</div>
<div style="text-align: justify;">
  writeln;</div>
<div style="text-align: justify;">
{jumlahkan}</div>
<div style="text-align: justify;">
 begin</div>
<div style="text-align: justify;">
  for i:=1 to 3 do</div>
<div style="text-align: justify;">
    for j:=1 to 3 do</div>
<div style="text-align: justify;">
       begin</div>
<div style="text-align: justify;">
          mp[i,j]:=m1[i,j]+m2[i,j];</div>
<div style="text-align: justify;">
       end;</div>
<div style="text-align: justify;">
 {lukis hasil penjumlahan}</div>
<div style="text-align: justify;">
 writeln('Hasil Penambahan = ');</div>
<div style="text-align: justify;">
 writeln;</div>
<div style="text-align: justify;">
    for i:=1 to 3 do</div>
<div style="text-align: justify;">
      begin</div>
<div style="text-align: justify;">
       writeln;</div>
<div style="text-align: justify;">
       for j:=1 to 3 do</div>
<div style="text-align: justify;">
         write(mp[i,j],' ');</div>
<div style="text-align: justify;">
      end;</div>
<div style="text-align: justify;">
readln;</div>
<div style="text-align: justify;">
end;</div>
<div style="text-align: justify;">
end.</div>
</div>
<div style="text-align: justify;">
<br /></div>
</div>

Fungsi : Menjumlahkan dua matriks 3x3 yang diinputkan Hint: Masukan nilai matriks di tiap-tiap baris dan kolom. Screen Shot : uses...

Program Array (Mencari angka kelipatan 3)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi :Mencari angka kelipatan 3 dari sekumpulan angka yang diinputkan.</div>
<div style="text-align: justify;">
Hint: Masukan angka dan masukan -1 untuk berhenti, otomatis hasil akan ditampilkan.</div>
Screen Shot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhDe6woZ2k6mQst5jWxyXABLGuYy4j4E6toYM0L9hBCAw20MTMLbjuwxBzwAThsZOnfKHOTp6z8T2QK0oFxolYkBGUagccvO4Mi_NL3KVfyTTvY-alIzwqVr81GFb8S_tzyPIRG9WJmkfs/s1600/5.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhDe6woZ2k6mQst5jWxyXABLGuYy4j4E6toYM0L9hBCAw20MTMLbjuwxBzwAThsZOnfKHOTp6z8T2QK0oFxolYkBGUagccvO4Mi_NL3KVfyTTvY-alIzwqVr81GFb8S_tzyPIRG9WJmkfs/s1600/5.jpg" /></a></div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
 var a,b:array[1..10] of integer;</div>
<div style="text-align: justify;">
        i,j,k,l:integer;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
       {memasukan angka}</div>
<div style="text-align: justify;">
   j:=1;</div>
<div style="text-align: justify;">
   repeat</div>
<div style="text-align: justify;">
     write('angka ke-',j,': ');readln(a[j]);</div>
<div style="text-align: justify;">
      j:=j+1;</div>
<div style="text-align: justify;">
   until a[j-1]=-1;</div>
<div style="text-align: justify;">
   {menentukan mana yang kelipatan 3}</div>
<div style="text-align: justify;">
   for k:=1 to j do</div>
<div style="text-align: justify;">
     begin</div>
<div style="text-align: justify;">
        if a[k] mod 3=0 then</div>
<div style="text-align: justify;">
           b[k]:=a[k];</div>
<div style="text-align: justify;">
      end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>{Menampilkan mana yang kelipatan tiga}</div>
<div style="text-align: justify;">
  write('angka kelipatan 3 adalah : ');</div>
<div style="text-align: justify;">
  for i:=1 to (j-1) do</div>
<div style="text-align: justify;">
    begin</div>
<div style="text-align: justify;">
       if b[i]<>0 then</div>
<div style="text-align: justify;">
         write(b[i],', ');</div>
<div style="text-align: justify;">
     end;</div>
<div style="text-align: justify;">
  readln;</div>
end.</div>

Fungsi :Mencari angka kelipatan 3 dari sekumpulan angka yang diinputkan. Hint: Masukan angka dan masukan -1 untuk berhenti, otomatis has...

Program Penjumlah Pecahan

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi : Menjumlahkan 2 buah pecahan.</div>
<div style="text-align: justify;">
Hint:  Tinggal masukan saja penyebut dan pembilang.</div>
Screenshot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg0dHlJxnVwlJjPvPFqz1zl8aegNpk9ztJPAzf2vcsBlIkiNUbnbD4p9lIDhR53YbjT51nkLm58bgtl852QNIWUkSHVMcucJ3s0vXRyMmTzzX1ielsB3nMGVi-wtyw8MBPhohslQpmTRO4/s1600/4.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg0dHlJxnVwlJjPvPFqz1zl8aegNpk9ztJPAzf2vcsBlIkiNUbnbD4p9lIDhR53YbjT51nkLm58bgtl852QNIWUkSHVMcucJ3s0vXRyMmTzzX1ielsB3nMGVi-wtyw8MBPhohslQpmTRO4/s1600/4.jpg" /></a></div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var pemi,pemII,penyi,penyII:integer;</div>
<div style="text-align: justify;">
      j,k:integer;</div>
<div style="text-align: justify;">
function pemb(a,c:integer):integer;</div>
<div style="text-align: justify;">
    begin</div>
<div style="text-align: justify;">
       j:=penyii;</div>
<div style="text-align: justify;">
       k:=penyi;</div>
<div style="text-align: justify;">
       pemb:=a*j+k*c;</div>
<div style="text-align: justify;">
    end;</div>
<div style="text-align: justify;">
function peny(b,d:integer):integer;</div>
<div style="text-align: justify;">
   begin</div>
<div style="text-align: justify;">
     peny:=b*d;</div>
<div style="text-align: justify;">
   end;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
    writeln('Pecahan 1 ');</div>
<div style="text-align: justify;">
    write('Pembilang i :');readln(pemi);</div>
<div style="text-align: justify;">
    write('Penyebut i :');readln(penyI);</div>
<div style="text-align: justify;">
    writeln;</div>
<div style="text-align: justify;">
    write('Pecahan 2 ');</div>
<div style="text-align: justify;">
    write('Pembilang ii :');readln(pemII);</div>
<div style="text-align: justify;">
    write('Penyebut II: ');readln(penyII);</div>
<div style="text-align: justify;">
    writeln;</div>
<div style="text-align: justify;">
    writeln('maka hasil dari 
pertambahan ',pemi,'/',penyI,'+',pemii,'/',penyII,' adalah 
',pemb(pemi,pemii),'/',peny(penyi,penyii));</div>
<div style="text-align: justify;">
readln;</div>
end.</div>

Fungsi : Menjumlahkan 2 buah pecahan. Hint: Tinggal masukan saja penyebut dan pembilang. Screenshot : uses crt; var pemi,pemII,p...

Program Menghitung Waktu Gerhana

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi : Menghitung tanggal gerhana pada bulan tertentu dengan rumus yang sudah ada.</div>
<div style="text-align: justify;">
Hint: Sebenarnya intinya hanya 
membuat prosedur yang menampilkan jumlah hari dalam bulan 
tertentu..waktu gerhana ini sebagai tambahan saja.</div>
Screen Shot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiAB5A3oxImjGx0J6x0VYf5FUpZsPxNuIXIJ4oXXJH3oDgKuyQFZVBuy7lKlWMHkvEvWeyT-U0_T_oqFW9UdurwwVoRT9zEJ54XZ60Vpfk_ln23eNcmXCqJFdvjInSCUbwNnfGpiunw0I4/s1600/3.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiAB5A3oxImjGx0J6x0VYf5FUpZsPxNuIXIJ4oXXJH3oDgKuyQFZVBuy7lKlWMHkvEvWeyT-U0_T_oqFW9UdurwwVoRT9zEJ54XZ60Vpfk_ln23eNcmXCqJFdvjInSCUbwNnfGpiunw0I4/s1600/3.jpg" /></a></div>
<div id="code">
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var b,ha,ger:integer;</div>
<div style="text-align: justify;">
      bul:string;</div>
<div style="text-align: justify;">
procedure maks(s:integer);</div>
<div style="text-align: justify;">
    var y,k:integer;</div>
<div style="text-align: justify;">
    begin</div>
<div style="text-align: justify;">
      case s of</div>
<div style="text-align: justify;">
        1,3,5,7,8,10,12:ha:=31;</div>
<div style="text-align: justify;">
        4,6,9,11:ha:=30;</div>
<div style="text-align: justify;">
        2:begin</div>
<div style="text-align: justify;">
            write('masukan tahun ');readln(y);</div>
<div style="text-align: justify;">
            k:=y mod 4;</div>
<div style="text-align: justify;">
            if k=0 then</div>
<div style="text-align: justify;">
              ha:=28</div>
<div style="text-align: justify;">
           else ha:=29;</div>
<div style="text-align: justify;">
           end;</div>
<div style="text-align: justify;">
      else writeln('Bulan salah!!!');readln;exit;</div>
<div style="text-align: justify;">
    end;</div>
<div style="text-align: justify;">
end;</div>
<div style="text-align: justify;">
procedure hitung(bee:integer);</div>
<div style="text-align: justify;">
   begin</div>
<div style="text-align: justify;">
     ger:=bee-(2*b);</div>
<div style="text-align: justify;">
   end;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
   write('masukan bulan ke- :');readln(b);</div>
<div style="text-align: justify;">
   maks(b);</div>
<div style="text-align: justify;">
   hitung(ha);</div>
<div style="text-align: justify;">
   write('Gerhana bulan ');</div>
<div style="text-align: justify;">
   case b of</div>
<div style="text-align: justify;">
       1 : WRITE('Januari');</div>
<div style="text-align: justify;">
       2:WRITE('Februari');</div>
<div style="text-align: justify;">
       3:WRITE('Maret');</div>
<div style="text-align: justify;">
       4:WRITE('April');</div>
<div style="text-align: justify;">
       5:WRITE('Mei');</div>
<div style="text-align: justify;">
       6:WRITE('Juni');</div>
<div style="text-align: justify;">
       7:write('Juli');</div>
<div style="text-align: justify;">
       8:WRITE('Agustus');</div>
<div style="text-align: justify;">
       9:write('September');</div>
<div style="text-align: justify;">
       10:write('Oktober');</div>
<div style="text-align: justify;">
       11:WRITE('November');</div>
<div style="text-align: justify;">
       12:WRITE('desemberrrr');</div>
<div style="text-align: justify;">
   end;</div>
<div style="text-align: justify;">
   writeln(' terjadi pada hari ke-',ger);</div>
<div style="text-align: justify;">
readln;</div>
<div style="text-align: justify;">
end.</div>
</div>
<div style="text-align: justify;">
<br /></div>
</div>

Fungsi : Menghitung tanggal gerhana pada bulan tertentu dengan rumus yang sudah ada. Hint: Sebenarnya intinya hanya membuat prosedur ya...

R2 Blog

Labels

Comment

Technology

Articles by "Tutorial Turbo-Pascal"

Tutorial Turbo Pascal 7: Kenal Lebih Jauh Dengan Array

Tutorial Turbo Pascal : PROCEDURE

Tutorial Turbo Pascal : Variabel, Konstanta dan Jenis Data

Program KHS Mahasiswa

Program Pencari Pembagi

Program Iterasi (Melukis Z)

Program Iterasi (Tebak Angka)

Program Iterasi (Jumlah Pangkat)

Program Iterasi (Angka)

Program Array (Fibbonaci Generator)

Program Array (Tabel Ajaib)

Program Array (Pendataan Mahasiswa)

Program Array (Penjumlah Matrix)

Program Array (Mencari angka kelipatan 3)

Program Penjumlah Pecahan

Program Menghitung Waktu Gerhana

Author Name

Contact Form