<?xml version="1.0" encoding="UTF-8"?> <rss
version="2.0"
xmlns:content="http://purl.org/rss/1.0/modules/content/"
xmlns:wfw="http://wellformedweb.org/CommentAPI/"
xmlns:dc="http://purl.org/dc/elements/1.1/"
xmlns:atom="http://www.w3.org/2005/Atom"
xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
> <channel><title>IT 4 our life &#187; Pasca</title> <atom:link href="http://www.rey1024.com/tag/pasca/feed/" rel="self" type="application/rss+xml" /><link>http://www.rey1024.com</link> <description>Tuliskan ilmu untuk mengingat dan berbagi</description> <lastBuildDate>Tue, 24 Jan 2012 08:47:21 +0000</lastBuildDate> <language>en</language> <sy:updatePeriod>hourly</sy:updatePeriod> <sy:updateFrequency>1</sy:updateFrequency> <generator>http://wordpress.org/?v=3.2.1</generator> <item><title>Bahasa Pemrograman Pascal</title><link>http://www.rey1024.com/2008/05/bahasa-pemrograman-pascal/</link> <comments>http://www.rey1024.com/2008/05/bahasa-pemrograman-pascal/#comments</comments> <pubDate>Fri, 02 May 2008 01:39:21 +0000</pubDate> <dc:creator>Resika Arthana</dc:creator> <category><![CDATA[Pascal]]></category> <category><![CDATA[Algoritma]]></category> <category><![CDATA[Pasca]]></category> <category><![CDATA[Pemrograman]]></category> <category><![CDATA[Pengenalan Bahasa Pascal. Bahasa Pascal]]></category> <category><![CDATA[Strukutur data]]></category> <guid
isPermaLink="false">http://www.rey1024.com/?p=12</guid> <description><![CDATA[Bahasa pascal adalah bahasa pemrograman tingkat tinggi yang dikembangkan oleh Niklaus Wirth di Zurich pada akhir 1960-an hingga awal 1970-an. Pascal merupakan bahasa pemrograman yang terstruktur, sehingga sering digunakan sebagai sarana awal untuk mempelajari teknik pemrograman komputer. 1 Reserved Word (Kata Tercadang) Bahasa Pascal Reserved Word adalah kata-kata yang sudah didefinisikan pada Pascal dan mempunyai [...]]]></description> <content:encoded><![CDATA[<p
style="text-align: justify;"><span>Bahasa pascal adalah bahasa pemrograman tingkat tinggi yang dikembangkan oleh Niklaus Wirth di Zurich pada akhir 1960-an hingga awal 1970-an. Pascal merupakan bahasa pemrograman yang terstruktur, sehingga sering digunakan sebagai sarana awal untuk mempelajari teknik pemrograman komputer.</span></p><p
style="text-align: justify;"><span
id="more-12"></span></p><p><!--[if !supportLists]--></p><h2><strong><span><span>1<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><strong><em><span>Reserved Word</span></em></strong><strong><span> (Kata Tercadang) Bahasa Pascal</span></strong></h2><p><!--[endif]--></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span><span> </span><em>Reserved Word</em> adalah kata-kata yang sudah didefinisikan pada Pascal dan mempunyai arti tertentu. Kata-kata tersebut tidak boleh digunakan sebagai <em>identifier</em> (Pengenal). </span></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span><span> </span>Contoh : <em>Program, Begin, End, If, For, While, Repeat, Write, Read</em>.</span></p><p><!--[if !supportLists]--></p><h2><strong><span><span>2 <span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><strong><span>Skema dari program pascal</span></strong></h2><p><!--[endif]--></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span><span> </span>Skema dari program Pascal adalah sebagai berikut.</span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 41.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 360pt;" width="480" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">Program   nama_program;</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">[   Deklarasi label ]</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">[   Deklarasi konstanta ]</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">[   Deklarasi tipe ]</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">[   Deklarasi variabel ]</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">[ Deklarasi   subprogram ]</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">Begin</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">Pernyataan;</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">&#8230;.</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">Pernyataan;</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">End.</span></p></td></tr></tbody></table><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 27pt; line-height: 150%;"><strong><span> </span></strong></p><p><!--[if !supportLists]--></p><h2><strong><span><span>3<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><strong><span>Deklarasi Prosedur dan Fungsi</span></strong></h2><p><!--[endif]--></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span><span> </span>Deklarasi Prosedur (<em>Procedure</em>) dan Fungsi ( <em>Function</em>) digunakan apabila program memiliki subprogram (bagian program) yg diletakkan terpisah dalam blok sendiri.</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; text-indent: -36pt; line-height: 150%;"><!--[if !supportLists]--><strong><span><span>3.1<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><!--[endif]--><strong><span>Prosedur</span></strong></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span><span> </span>Prosedur adalah subprogram yang menerima masukan tetapi tidak mempunyai keluaran secara langsung. Cara mendeklarasikan sebuah prosedur adalah sebagai berikut :</span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 50.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 351pt;" width="468" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">procedure A; { nama prosedur adalah A }</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">begin</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">{ statement }</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;">end;</span></p></td></tr></tbody></table><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span><span> </span>Pendeklarasian prosedur di atas adalah untuk prosedur yang tidak memerlukan parameter. Parameter adalah data masukan untuk subprogram yang nantinya akan diproses lebih lanjut dalam subprogram tersebut. Dalam Pascal, dikenal dua macam parameter yaitu :</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 18pt; text-indent: -18pt; line-height: 150%;"><!--[if !supportLists]--><span><span>1)<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span><!--[endif]--><span>Parameter nilai (<em>value parameter</em>), dan</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 18pt; text-indent: -18pt; line-height: 150%;"><!--[if !supportLists]--><span><span>2)<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span><!--[endif]--><span>Parameter referensi (<em>reference parameter</em>).</span></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span><span> </span>Cara mendeklarasikan parameter tersebut adalah sebagai berikut :</span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 41.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 360pt;" width="480" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">procedure B(X : integer; var Y : integer);</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">begin</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">{ statement }</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;">end;</span></p></td></tr></tbody></table><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; line-height: 150%;"><strong><span> </span></strong></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; text-indent: -36pt; line-height: 150%;"><strong><span><span>3.2<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><!--[endif]--><strong><span>Fungsi</span></strong></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span><span> </span>Fungsi adalah subprogram yang menerima masukan dan mempunyai keluaran secara langsung. Cara mendeklarasikan sebuah fungsi adalah sebagai berikut :</span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 50.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 351pt;" width="468" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">function A : integer; { nama fungsi adalah A dengan }</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">begin { tipe data keluaran adalah integer }</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">{ statement }</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">A := 3; { nilai yang dikeluarkan fungsi }</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">end;</span></p></td></tr></tbody></table><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span><span> </span></span></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span>Sebagaimana dalam prosedur, fungsi juga dapat diberikan parameter. Cara mendeklarasikan fungsi dengan parameter juga tidak jauh berbeda dengan pendeklarasian parameter pada prosedur.</span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 50.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 351pt;" width="468" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">function B(X : integer) : integer;</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">begin</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">{ statement }</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">B := X * 2;</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">end;</span></p></td></tr></tbody></table><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 27pt; line-height: 150%;"><strong><span> </span></strong></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 27pt; text-indent: -27pt; line-height: 150%;"><!--[if !supportLists]--><strong><span><span>3.4<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><!--[endif]--><strong><span>Rekursi</span></strong></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span><span> </span>Dalam Pascal, ada satu kelebihan dalam cara pemanggilan subprogram. Pascal mengijinkan pemanggilan suatu subprogram dari dalam subprogram itu sendiri. Tidak semua bahasa pemrograman mengijinkan cara pemanggilan subprogram seperti itu karena akan banyak memakan memori. Untuk lebih jelasnya perhatikan potongan program di bawah ini:</span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 32.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 375.3pt;" width="500" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">procedure Z;</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">begin</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">{ statement }</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; line-height: 150%;"><span
style="line-height: 150%;">Z;</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;">end</span></p></td></tr></tbody></table><p
class="MsoNormal" style="line-height: 150%;"><strong><span> </span></strong></p><h2>4.<a
name="_Toc184459755"><span
style="font-size: 12pt; line-height: 150%; font-family: &quot;Times New Roman&quot;,&quot;serif&quot;;"><span><span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span><!--[endif]--><span
style="font-size: 12pt; line-height: 150%; font-family: &quot;Times New Roman&quot;,&quot;serif&quot;;">Tipe Data</span></a></h2><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span><span> </span>Dalam bahasa Pascal, secara garis besar dikenal dua macam tipe data yaitu tipe data sederhana (<em>primitive type</em>) dan tipe data kompleks (<em>complex type</em>). Tipe data sederhana adalah tipe data yang hanya mampu menyimpan satu nilai tiap satu variabelnya. Contoh tipe data sederhana adalah tipe numerik (<em>integer</em> dan <em>real</em>), tipe data karakter, tipe data <em>boolean</em> dan tipe data ennumerasi. Tipe data kompleks adalah tipe data yang mampu menyimpan lebih dari satu nilai dalam tiap satu variabelnya. Contoh tipe data kompleks adalah <em>string</em>, <em>array</em> (larik), <em>record</em> dan object.</span></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"> </span></p><p
class="MsoNormal"><span
lang="IN"><span> </span>Bentuk umum dari deklarasi tipe data adalah</span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 41.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 366.3pt;" width="488" valign="top"><p
class="MsoList2" style="margin-left: 45pt; text-align: justify; text-indent: 0cm; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">Type pengenal = tipe</span></p></td></tr></tbody></table><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Keterangan:</span></p><p
class="MsoList" style="margin-left: 45pt; text-align: justify; text-indent: 0cm; line-height: 150%;"><span
style="font-family: &quot;Courier New&quot;;">pengenal</span><em><span
lang="IN"> </span></em><span
lang="IN">: nama pengenal yang menyatakan tipe data.</span></p><p
class="MsoList" style="margin-left: 45pt; text-align: justify; text-indent: 0cm; line-height: 150%;"><span
style="font-family: &quot;Courier New&quot;;">tipe </span><span
lang="IN">: tipe data yang berlaku dalam Turbo Pascal.</span></p><p
class="MsoList" style="margin-left: 45pt; text-align: justify; text-indent: 0cm; line-height: 150%;"><span
lang="IN"> </span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; text-indent: -36pt; line-height: 150%;"><!--[if !supportLists]--><strong><span><span>4.1<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><!--[endif]--><strong><span>Tipe Data Sederhana</span></strong></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; text-indent: -36pt; line-height: 150%;"><!--[if !supportLists]--><strong><span
lang="IN"><span>4.1.1<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><!--[endif]--><strong><span
lang="IN">Tipe Ordinal</span></strong></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Semua tipe sederhana disebut tipe ordinal kecuali <em>real</em>. Karakteristik tipe data ordinal antara lain :</span></p><p
class="MsoListBullet" style="text-align: justify; line-height: 150%;"><!--[if !supportLists]--><span
lang="IN"><span>-<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span><!--[endif]--><span
lang="IN">Semua kemungkinan nilai dari suatu tipe ordinal merupakan himpunan berurutan dan setiap nilai berkaitan dengan ordinalitasnya yaitu nilai integral.</span></p><p
class="MsoListBullet" style="text-align: justify; line-height: 150%;"><!--[if !supportLists]--><span
lang="IN"><span>-<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span><!--[endif]--><span
lang="IN">Fungsi standard <em>ord</em> dapat diterapkan pada sembarang tipe ordinal untuk mengetahui ordinalitasnya.</span></p><p
class="MsoListBullet" style="text-align: justify; line-height: 150%;"><!--[if !supportLists]--><span
lang="IN"><span>-<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span><!--[endif]--><span
lang="IN">Fungsi standard <em>pred</em> dapat diterapkan untuk mengetahui <em>predesesor</em>.</span></p><p
class="MsoListBullet" style="text-align: justify; line-height: 150%;"><!--[if !supportLists]--><span
lang="IN"><span>-<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span><!--[endif]--><span
lang="IN">Fungsi standard <em>succ</em> dapat diterapkan untuk mengetahui <em>suksesor</em>.</span></p><p
class="MsoListBullet" style="text-align: justify; line-height: 150%;"><span
lang="IN"> </span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; text-indent: -36pt; line-height: 150%;"><!--[if !supportLists]--><strong><span
lang="IN"><span>4.1.2<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><!--[endif]--><strong><span
lang="IN">Tipe <em>Integer</em></span></strong></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Tipe <em>integer</em> adalah tipe data yang nilainya tidak mempunyai titik desimal. Ada lima tipe data yang termasuk dalam kelompok ini seperti terlihat pada tabel di bawah ini. </span></p><p
class="capgambar"><a
name="_Toc184460265">Tabel 2.</a><!--[if supportFields]><span
style="mso-bookmark:_Toc184460265" _mce_style="mso-bookmark: _Toc184460265;" mce_style="mso-bookmark:_Toc184460265"></span><span
style="mso-element:field-begin" _mce_style="mso-element: field-begin;" mce_style="mso-element:field-begin"></span><span
style="mso-bookmark:_Toc184460265" _mce_style="mso-bookmark: _Toc184460265;" mce_style="mso-bookmark:_Toc184460265"> SEQ Tabel \* ARABIC \s 1 <span
style="mso-element:field-separator" _mce_style="mso-element: field-separator;" mce_style="mso-element:field-separator"></span></span>< ![endif]--><span><span>1</span></span><!--[if supportFields]><span
style="mso-bookmark:_Toc184460265" _mce_style="mso-bookmark: _Toc184460265;" mce_style="mso-bookmark:_Toc184460265"></span><span
style="mso-element:field-end" _mce_style="mso-element: field-end;" mce_style="mso-element:field-end"></span>< ![endif]--><span> Tipe integer</span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 41.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr
style="height: 24.7pt;"><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 67.9pt; height: 24.7pt;" width="91"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: center; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Tipe</span></p></td><td
style="padding: 0cm 5.4pt; width: 153.9pt; height: 24.7pt; border: 1pt 1pt 1pt medium solid solid solid none windowtext windowtext windowtext -moz-use-text-color;" width="205"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: center; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Batas Nilai</span></p></td><td
style="padding: 0cm 5.4pt; width: 99.75pt; height: 24.7pt; border: 1pt 1pt 1pt medium solid solid solid none windowtext windowtext windowtext -moz-use-text-color;" width="133"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: center; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Ukuran dalam byte</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 67.9pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="91" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><em><span
style="line-height: 150%;" lang="IN">byte</span></em></p></td><td
style="padding: 0cm 5.4pt; width: 153.9pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="205" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">0..255</span></p></td><td
style="padding: 0cm 5.4pt; width: 99.75pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="133" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">1</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 67.9pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="91" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><em><span
style="line-height: 150%;" lang="IN">shortint</span></em></p></td><td
style="padding: 0cm 5.4pt; width: 153.9pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="205" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">-128..127</span></p></td><td
style="padding: 0cm 5.4pt; width: 99.75pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="133" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">1</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 67.9pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="91" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><em><span
style="line-height: 150%;" lang="IN">integer</span></em></p></td><td
style="padding: 0cm 5.4pt; width: 153.9pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="205" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">-32768..32767</span></p></td><td
style="padding: 0cm 5.4pt; width: 99.75pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="133" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">2</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 67.9pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="91" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><em><span
style="line-height: 150%;" lang="IN">word</span></em></p></td><td
style="padding: 0cm 5.4pt; width: 153.9pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="205" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">0..65535</span></p></td><td
style="padding: 0cm 5.4pt; width: 99.75pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="133" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">2</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 67.9pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="91" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><em><span
style="line-height: 150%;" lang="IN">longint</span></em></p></td><td
style="padding: 0cm 5.4pt; width: 153.9pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="205" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">-2147483648..2147483647</span></p></td><td
style="padding: 0cm 5.4pt; width: 99.75pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="133" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">4</span></p></td></tr></tbody></table><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"> </span></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Tipe data juga menentuka operasi yang bisa dikerjakan. Pada tipe <em>integer</em> operator-operator yang bisa dikerjakan antara lain:</span></p><p
class="capgambar"><a
name="_Toc184460266">Tabel 2.</a><!--[if supportFields]><span
style="mso-bookmark:_Toc184460266" _mce_style="mso-bookmark: _Toc184460266;" mce_style="mso-bookmark:_Toc184460266"></span><span
style="mso-element:field-begin" _mce_style="mso-element: field-begin;" mce_style="mso-element:field-begin"></span><span
style="mso-bookmark:_Toc184460266" _mce_style="mso-bookmark: _Toc184460266;" mce_style="mso-bookmark:_Toc184460266"> SEQ Tabel \* ARABIC \s 1 <span
style="mso-element:field-separator" _mce_style="mso-element: field-separator;" mce_style="mso-element:field-separator"></span></span>< ![endif]--><span><span>2</span></span><!--[if supportFields]><span
style="mso-bookmark:_Toc184460266" _mce_style="mso-bookmark: _Toc184460266;" mce_style="mso-bookmark:_Toc184460266"></span><span
style="mso-element:field-end" _mce_style="mso-element: field-end;" mce_style="mso-element:field-end"></span>< ![endif]--><span> Operator-operator pada tipe integer</span></p><table
class="MsoTableGrid" style="border: medium none; width: 276.45pt; margin-left: 41.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0" width="369"><tbody><tr
style="height: 24.7pt;"><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 153.9pt; height: 24.7pt;" width="205"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: center; text-indent: 53.85pt; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Operator</span></p></td><td
style="padding: 0cm 5.4pt; width: 122.55pt; height: 24.7pt; border: 1pt 1pt 1pt medium solid solid solid none windowtext windowtext windowtext -moz-use-text-color;" width="163"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: center; text-indent: 53.85pt; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Kegunaan</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 153.9pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="205" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; text-indent: 53.85pt; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">+</span></p></td><td
style="padding: 0cm 5.4pt; width: 122.55pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="163" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; text-indent: 53.85pt; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Penjumlahan</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 153.9pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="205" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; text-indent: 53.85pt; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">-</span></p></td><td
style="padding: 0cm 5.4pt; width: 122.55pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="163" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; text-indent: 53.85pt; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Pengurangan</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 153.9pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="205" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; text-indent: 53.85pt; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">*</span></p></td><td
style="padding: 0cm 5.4pt; width: 122.55pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="163" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; text-indent: 53.85pt; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Perkalian</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 153.9pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="205" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; text-indent: 53.85pt; line-height: 150%;"><em><span
style="line-height: 150%;" lang="IN">div</span></em></p></td><td
style="padding: 0cm 5.4pt; width: 122.55pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="163" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; text-indent: 53.85pt; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Pembagian</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 153.9pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="205" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; text-indent: 53.85pt; line-height: 150%;"><em><span
style="line-height: 150%;" lang="IN">mod</span></em></p></td><td
style="padding: 0cm 5.4pt; width: 122.55pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="163" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; text-indent: 53.85pt; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Sisa pembagian</span></p></td></tr></tbody></table><p
class="MsoNormal" style="line-height: 150%;"><strong><span
lang="IN"> </span></strong></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; text-indent: -36pt; line-height: 150%;"><!--[if !supportLists]--><strong><span
lang="IN"><span>4.1.3<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><!--[endif]--><strong><span
lang="IN">Tipe <em>Boolean</em></span></strong></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Data tipe <em>boolean</em> mempunyai dua nilai yakni benar dan salah. Dengan memakai operator <em>and</em>, <em>or</em> atau <em>not</em> maka dapat dibentuk ungkapan <em>boolean</em> yang lebih rumit.</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; text-indent: -36pt; line-height: 150%;"><!--[if !supportLists]--><strong><span
lang="IN"><span>4.1.4<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><!--[endif]--><strong><span
lang="IN">Tipe <em>Char</em></span></strong></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Tipe char digunakan untuk mendefinisikan tipe data yang nilainya merupakan himpunan karakter yang dikenal komputer seperti yang tersaji dalam tabel ASCII. Dalam program, konstanta bertipe <em>char</em> ditulis diantara tanda petik, misalnya ‘A’ . Perlu diingat bahwa data bertipe<em> char</em> hanya terdiri dari 1 karakter.</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; text-indent: -36pt; line-height: 150%;"><!--[if !supportLists]--><strong><span
lang="IN"><span>4.1.5<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><!--[endif]--><strong><span
lang="IN">Tipe Terbilang</span></strong></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Disebut tipe terbilang karena semua nilai disebut satu persatu, contoh</span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 41.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 383.05pt;" width="511" valign="top"><p
class="MsoBodyTextIndent"><span
style="font-family: &quot;Courier New&quot;;">Type Toko</span><span
lang="IN"> = (baru, ramai, sukses, rapi, gadjah)</span></p></td></tr></tbody></table><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Perlu diperhatikan bahwa dalam tipe terbilang semua data harus diletakkan di antara kurung, urutan datanya harus diperhatikan karena akan mempengaruhi fungsi <em>pred</em> dan <em>succ</em>.</span></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span> </span></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span> </span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; text-indent: -36pt; line-height: 150%;"><!--[if !supportLists]--><strong><span
lang="IN"><span>4.1.6<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><!--[endif]--><strong><span
lang="IN">Tipe Subjangkauan</span></strong></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Tidak jarang terjadi batas nilai yang mungkin untuk suatu perubah merupakan bagian atau subjangkauan dari tipe data yang telah didefinisikan, contoh nilai ujian adalah dari 0 sampai 100.</span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 41.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 383.05pt;" width="511" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: normal;"><span
style="font-size: 10pt; font-family: &quot;Courier New&quot;;">type Nilai</span><em><span
style="font-size: 10pt;" lang="IN"> = </span></em><span
style="font-size: 10pt; font-family: &quot;Courier New&quot;;">0..100;</span></p></td></tr></tbody></table><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><em><span
style="font-size: 10pt; line-height: 150%;" lang="IN"><span> </span></span></em></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; text-indent: -36pt; line-height: 150%;"><!--[if !supportLists]--><strong><span
lang="IN"><span>4.1.7<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><!--[endif]--><strong><span
lang="IN">Tipe <em>Real</em></span></strong></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Konstanta bertipe <em>real</em> adalah bilangan yang berisi titik desimal. Dalam Pascal paling sedikit harus ada satu digit sebelum dan sesudah titik desimal, tidak boleh ada koma dan nilainya bisa positif atau negatif.</span></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Dalam Turbo Pascal terdapat lima macam tipe <em>real</em> yaitu <em>real</em>, <em>single</em>, <em>double</em>, <em>extended</em> dan <em>comp</em> seperti terlihat pada tabel di bawah ini.</span></p><p
class="capgambar"><a
name="_Toc184460267"></a><span><br
/> </span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 41.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr
style="height: 29.65pt;"><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 54.15pt; height: 29.65pt;" width="72"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: center; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Tipe</span></p></td><td
style="padding: 0cm 5.4pt; width: 158.5pt; height: 29.65pt; border: 1pt 1pt 1pt medium solid solid solid none windowtext windowtext windowtext -moz-use-text-color;" width="211"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: center; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Batasan Nilai</span></p></td><td
style="padding: 0cm 5.4pt; width: 74.9pt; height: 29.65pt; border: 1pt 1pt 1pt medium solid solid solid none windowtext windowtext windowtext -moz-use-text-color;" width="100"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: center; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Angka   Signifikan</span></p></td><td
style="padding: 0cm 5.4pt; width: 68.4pt; height: 29.65pt; border: 1pt 1pt 1pt medium solid solid solid none windowtext windowtext windowtext -moz-use-text-color;" width="91"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: center; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Ukuran dalam   byte</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 54.15pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="72" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><em><span
style="line-height: 150%;" lang="IN">real</span></em></p></td><td
style="padding: 0cm 5.4pt; width: 158.5pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="211" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">2.9 x 10E-39..1.7 x 10E38</span></p></td><td
style="padding: 0cm 5.4pt; width: 74.9pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="100" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">11-12</span></p></td><td
style="padding: 0cm 5.4pt; width: 68.4pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="91" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">6</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 54.15pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="72" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><em><span
style="line-height: 150%;" lang="IN">single</span></em></p></td><td
style="padding: 0cm 5.4pt; width: 158.5pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="211" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">1.5 x 10E-45..3.4 x 10e38</span></p></td><td
style="padding: 0cm 5.4pt; width: 74.9pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="100" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">7-8</span></p></td><td
style="padding: 0cm 5.4pt; width: 68.4pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="91" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">4</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 54.15pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="72" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><em><span
style="line-height: 150%;" lang="IN">double</span></em></p></td><td
style="padding: 0cm 5.4pt; width: 158.5pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="211" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">5.0 x 10E-324..1.7 x 10E308</span></p></td><td
style="padding: 0cm 5.4pt; width: 74.9pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="100" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">15-16</span></p></td><td
style="padding: 0cm 5.4pt; width: 68.4pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="91" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">8</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 54.15pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="72" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><em><span
style="line-height: 150%;" lang="IN">extended</span></em></p></td><td
style="padding: 0cm 5.4pt; width: 158.5pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="211" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">1.9 x 10E-4951..1.1 x 10E4932</span></p></td><td
style="padding: 0cm 5.4pt; width: 74.9pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="100" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">19-20</span></p></td><td
style="padding: 0cm 5.4pt; width: 68.4pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="91" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">10</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 54.15pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="72" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><em><span
style="line-height: 150%;" lang="IN">comp</span></em></p></td><td
style="padding: 0cm 5.4pt; width: 158.5pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="211" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">-2E63 + 1..2E63 – 1</span></p></td><td
style="padding: 0cm 5.4pt; width: 74.9pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="100" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">19-20</span></p></td><td
style="padding: 0cm 5.4pt; width: 68.4pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="91" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">8</span></p></td></tr></tbody></table><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"> </span></p><p
class="MsoNormal" style="margin-left: 36pt; text-align: justify; line-height: 150%;"><span
lang="IN">Operator-operator pada tipe <em>real</em> adalah :</span></p><p
class="capgambar"><a
name="_Toc184460268"></a><span><br
/> </span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 41.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr
style="height: 29.65pt;"><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 59.55pt; height: 29.65pt;" width="79"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: center; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Operator</span></p></td><td
style="padding: 0cm 5.4pt; width: 96.9pt; height: 29.65pt; border: 1pt 1pt 1pt medium solid solid solid none windowtext windowtext windowtext -moz-use-text-color;" width="129"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: center; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Kegunaan</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 59.55pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="79" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">+</span></p></td><td
style="padding: 0cm 5.4pt; width: 96.9pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="129" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Penjumlahan</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 59.55pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="79" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">-</span></p></td><td
style="padding: 0cm 5.4pt; width: 96.9pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="129" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Pengurangan</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 59.55pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="79" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">*</span></p></td><td
style="padding: 0cm 5.4pt; width: 96.9pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="129" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Perkalian</span></p></td></tr><tr><td
style="padding: 0cm 5.4pt; width: 59.55pt; border: medium 1pt 1pt none solid solid -moz-use-text-color windowtext windowtext;" width="79" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">/</span></p></td><td
style="padding: 0cm 5.4pt; width: 96.9pt; border: medium 1pt 1pt medium none solid solid none -moz-use-text-color windowtext windowtext -moz-use-text-color;" width="129" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN">Pembagian</span></p></td></tr></tbody></table><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; text-indent: -36pt; line-height: 150%;"><!--[if !supportLists]--><strong><span><span>4.2.2<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><!--[endif]--><strong><span>Tipe Data Kompleks</span></strong></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; text-indent: -36pt; line-height: 150%;"><!--[if !supportLists]--><strong><span
lang="IN"><span>4.2.2.1<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><!--[endif]--><strong><span
lang="IN">Tipe <em>String</em></span></strong></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Data yang bertipe <em>string</em> adalah data yang berisi sederetan karakter yang banyaknya karakter bisa berubah-ubah sesuai kebutuhan yaitu dari 1 sampai 255 karakter. </span></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Bentuk umum dari deklarasi tipe <em>string</em> adalah:</span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 41.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 366.3pt;" width="488" valign="top"><p
class="MsoBodyText" style="text-align: justify;"><span
style="font-size: 10pt; font-family: &quot;Courier New&quot;;">type pengenal = string &lt;[panjang]&gt;</span></p></td></tr></tbody></table><p
class="MsoNormal" style="margin-left: 36pt; text-align: justify; line-height: 150%;"><span
lang="IN">Keterangan:</span></p><p
class="MsoNormal" style="margin-left: 18pt; text-align: justify; text-indent: 36pt; line-height: 150%;"><span
style="font-family: &quot;Courier New&quot;;">pengenal</span><em><span
lang="IN"> </span></em><span
lang="IN">: nama tipe data.</span></p><p
class="MsoNormal" style="margin-left: 54pt; text-align: justify; line-height: 150%;"><span
style="font-family: &quot;Courier New&quot;;">panjang</span><span
lang="IN"> : bilangan bulat yang menentukan banyaknya karakter, bila parameter panjang karakter tidak ditulis maka dianggap 255 karakter.</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; text-indent: -36pt; line-height: 150%;"><!--[if !supportLists]--><strong><span
lang="IN"><span>4.2.2.2<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><!--[endif]--><strong><span
lang="IN">Tipe Larik</span></strong></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Larik (<em>array</em>) adalah tipe terstruktur yang mempunyai komponen dalam jumlah yang tetap dan setiap komponen mempunyai tipe data yang sama. Posisi masing-masing komponen dalam larik dinyatakan sebagai nomor indeks.</span></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Bentuk umum dari tipe larik adalah</span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 41.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 366.3pt;" width="488" valign="top"><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 3.6pt; text-align: justify; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">type pengenal = array   [tipe_index] of tipe;</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 3.6pt; text-align: justify; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">pengenal : nama tipe data.</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 3.6pt; text-align: justify; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">tipe_index : tipe data untuk   nomor index.</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 3.6pt; text-align: justify; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">tipe : tipe data komponen</span><em><span
style="font-size: 10pt; line-height: 150%;" lang="IN">.</span></em></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 3.6pt; text-align: justify; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%;" lang="IN">Contoh,</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 3.6pt; text-align: justify; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">type Vek = array [1..100] of   integer;</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="line-height: 150%;" lang="IN"> </span></p></td></tr></tbody></table><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; line-height: 150%;"><strong><span
lang="IN"> </span></strong></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; text-indent: -36pt; line-height: 150%;"><!--[if !supportLists]--><strong><span
lang="IN"><span>4.2.2.3<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><!--[endif]--><strong><span
lang="IN">Tipe Rekaman</span></strong></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Sama halnya dengan larik, rekaman (<em>record</em>) adalah kumpulan data. Perbedaan antara larik dengan rekaman adalah dalam larik semua elemennya harus bertipe sama tetapi dalam rekaman setiap elemen bisa mempunyai tipe data yang berbeda satu sama lainnya.</span></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Bentuk umum deklarasi rekaman adalah</span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 41.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 366.3pt;" width="488" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: normal;"><span
style="font-size: 10pt; font-family: &quot;Courier New&quot;;">type pengenal</span><em><span
style="font-size: 10pt;" lang="IN"> </span></em><span
style="font-size: 10pt;" lang="IN">= record</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: normal;"><span
style="font-size: 10pt;" lang="IN"><span> </span></span><span
style="font-size: 10pt; font-family: &quot;Courier New&quot;;">medan1   :tipe1;</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: normal;"><span
style="font-size: 10pt; font-family: &quot;Courier New&quot;;"><span> </span>medan2 :tipe2;</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: normal;"><span
style="font-size: 10pt; font-family: &quot;Courier New&quot;;"><span> </span>.</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: normal;"><span
style="font-size: 10pt; font-family: &quot;Courier New&quot;;"><span> </span>.</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: normal;"><span
style="font-size: 10pt; font-family: &quot;Courier New&quot;;"><span> </span>.</span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: normal;"><span
style="font-size: 10pt; font-family: &quot;Courier New&quot;;"><span> </span>medann :tipen;</span></p><p
class="MsoBodyText" style="text-align: justify;"><span
style="font-size: 10pt;" lang="IN"><span> </span>end;</span></p></td></tr></tbody></table><p
class="MsoBodyText" style="margin-left: 36pt; text-align: justify; line-height: 150%;"><span
lang="IN"> </span></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span>Keterangan:</span></p><p
class="MsoNormal" style="line-height: 150%;"><span>pengenal : pengenal yang menunjukkan tipe data yang akan dideklarasikan.</span></p><p
class="MsoNormal" style="line-height: 150%;"><span>medan1,…, medann : nama medan yang akan digunakan.</span></p><p
class="MsoNormal" style="line-height: 150%;"><span>tipe1,…, tipen : sembarang tipe data yang telah dideklarasikan sebelumnya.</span></p><p
class="MsoNormal" style="margin-left: 36pt; text-align: justify; line-height: 150%;"><span
lang="IN">Contoh deklarasi rekaman,</span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 41.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 366.3pt;" width="488" valign="top"><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 3.6pt; text-align: justify; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">type Tgl_Kalender = record</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 3.6pt; text-align: justify; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;"><span> </span>Tanggal :1..31;</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 3.6pt; text-align: justify; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;"><span> </span>Bulan : 1..12;</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 3.6pt; text-align: justify; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;"><span> </span>Tahun : 1900..2000;</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 3.6pt; text-align: justify; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;"><span> </span>end;</span></p></td></tr></tbody></table><p
class="MsoNormal" style="line-height: 150%;"><strong><span
lang="IN"> </span></strong></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; text-indent: -36pt; line-height: 150%;"><!--[if !supportLists]--><strong><span
lang="IN"><span>4.2.2.4<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><!--[endif]--><strong><span
lang="IN">Tipe Himpunan</span></strong></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Tipe himpunan adalah kumpulan obyek yang mempunyai tipe data yang sama dan urutan penulisannya tidak diperhatikan.Setiap onyek di dalam suatu himpunan disebut dengan anggota atau elemen himpunan</span></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Bentuk umum deklarasi himpunan adalah</span></p><table
class="MsoTableGrid" style="border: medium none; width: 369pt; margin-left: 41.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0" width="492"><tbody><tr><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 369pt;" width="492" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%;" lang="IN"><span> </span></span><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">type pengenal</span><em><span
style="font-size: 10pt; line-height: 150%;" lang="IN"> </span></em><span
style="font-size: 10pt; line-height: 150%;" lang="IN">= set of   tipe_data;</span></p></td></tr></tbody></table><p
class="MsoNormal" style="margin-left: 36pt; text-align: justify; line-height: 150%;"><span
lang="IN">atau dapat juga langsung dideklarasikan dalam bagian deklarasi perubah seperti berikut</span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 41.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 366.3pt;" width="488" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">var pengenal = set of tipe_data;</span></p></td></tr></tbody></table><p
class="MsoNormal" style="margin-left: 36pt; text-align: justify; line-height: 150%;"><span
lang="IN">Keterangan:</span></p><p
class="MsoNormal" style="margin-left: 126pt; text-align: justify; text-indent: -72pt; line-height: 150%;"><span
style="font-family: &quot;Courier New&quot;;">pengenal</span><em><span
lang="IN"> </span></em><span
lang="IN">: nama perubah atau pengenal yang akan dinyatakan sebagai tipe himpunan.</span></p><p
class="MsoNormal" style="margin-left: 54pt; text-align: justify; text-indent: -1.5pt; line-height: 150%;"><span
lang="IN">tipe_data : tipe data dari anggota himpunan, harus bertipe ordinal.</span></p><p
class="MsoNormal" style="margin-left: 36pt; text-align: justify; line-height: 150%;"><span
lang="IN">Contoh deklarasi himpunan adalah sebagai berikut.</span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 41.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 366.3pt;" width="488" valign="top"><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 3.6pt; text-align: justify; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">type Irama = (jazz, rock,   blues, country, classic);</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 3.6pt; text-align: justify; text-indent: 25.65pt; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;"><span> </span>Musik = set of Irama;</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 3.6pt; text-align: justify; text-indent: 25.65pt; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;"><span> </span>Nilai = set of 0..10;</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 3.6pt; text-align: justify; text-indent: 25.65pt; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;"><span> </span>Untai = set of char;</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 3.6pt; text-align: justify; text-indent: 25.65pt; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;"><span> </span>Huruf = set of ‘A’..’Z’;</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 3.6pt; text-align: justify; text-indent: 25.65pt; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;"><span> </span>Sakit = (pusing, mual,   lemas, lesu, letih);</span></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 3.6pt; text-align: justify; text-indent: 25.65pt; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;"><span> </span>Penyakit = set of sakit;</span></p></td></tr></tbody></table><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; line-height: 150%;"><strong><span
lang="IN"> </span></strong></p><p
class="MsoNormal" style="margin: 0cm 0cm 0.0001pt 36pt; text-indent: -36pt; line-height: 150%;"><!--[if !supportLists]--><strong><span
lang="IN"><span>4.2.2.5<span
style="font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal; font-family: &quot;Times New Roman&quot;;"> </span></span></span></strong><!--[endif]--><strong><span
lang="IN">Tipe Berkas</span></strong></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Berkas (<em>file</em>) adalah kumpulan sejumlah komponen yang bertipe data sama yang jumlahnya tidak tentu dan biasanya tersimpan dalam suatu media penyimpan luar. Jumlah komponen dalam berkas dapat ditambah jika diperlukan.</span></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Dalam Pascal, berkas menyediakan data yang nantinya akan digunakan oleh suatu program. Berkas dapat berupa berkas yang disimpan di dalam cakram magnetis, pita magnetis, kartu plong dan sejenisnya atau berupa piranti logika yang selama ini kita gunakan, yaitu dengan statemen input dan <em>output</em>, yang menunjukkan piranti masukan keluaran standar (papan ketik dan layar tampilan).</span></p><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Bentuk umum dari deklarasi berkas adalah </span></p><table
class="MsoTableGrid" style="border: medium none; margin-left: 41.4pt; border-collapse: collapse;" border="1" cellspacing="0" cellpadding="0"><tbody><tr><td
style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 366.3pt;" width="488" valign="top"><p
class="MsoNormal" style="margin-bottom: 0.0001pt; text-align: justify; line-height: 150%;"><span
style="font-size: 10pt; line-height: 150%; font-family: &quot;Courier New&quot;;">type pengenal = file of pengenal1;</span></p></td></tr></tbody></table><p
class="MsoNormal" style="text-align: justify; line-height: 150%;"><span
lang="IN"><span> </span>Keterangan:</span></p><p
class="MsoNormal" style="margin-left: 54pt; text-align: justify; line-height: 150%;"><span
style="font-family: &quot;Courier New&quot;;">pengenal</span><em><span
lang="IN"> </span></em><span
lang="IN"><span> </span>: pengenal yang akan dinyatakan sebagai tipe data berkas.</span></p><p
class="MsoNormal" style="margin-left: 54pt; text-align: justify; line-height: 150%;"><span
style="font-family: &quot;Courier New&quot;;">pengenal1</span><em><span
lang="IN"> </span></em><span
lang="IN">: tipe data komponen berkas.</span></p> ]]></content:encoded> <wfw:commentRss>http://www.rey1024.com/2008/05/bahasa-pemrograman-pascal/feed/</wfw:commentRss> <slash:comments>35</slash:comments> </item> </channel> </rss>
