<?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; Pengenalan Bahasa Pascal. Bahasa Pascal</title>
	<atom:link href="http://www.rey1024.com/tag/pengenalan-bahasa-pascal-bahasa-pascal/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.rey1024.com</link>
	<description>learn-&#62;try-&#62;error-&#62;read forum-&#62;ask-&#62;solve-&#62;share</description>
	<lastBuildDate>Thu, 01 Jul 2010 17:37:35 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.0</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[Tutorial Komputer]]></category>
		<category><![CDATA[Algoritma]]></category>
		<category><![CDATA[Pasca]]></category>
		<category><![CDATA[Pascal]]></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 style="margin-left: 18pt; text-indent: -18pt; line-height: 150%;"></h2>
<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"></span><span style="mso-element:field-begin" mce_style="mso-element:field-begin"></span><span 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"></span></span><![endif]--><span><span>1</span></span><!--[if supportFields]><span style="mso-bookmark:_Toc184460265" mce_style="mso-bookmark:_Toc184460265"></span><span 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%;" align="center"><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%;" align="center"><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%;" align="center"><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"></span><span style="mso-element:field-begin" mce_style="mso-element:field-begin"></span><span 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"></span></span><![endif]--><span><span>2</span></span><!--[if supportFields]><span style="mso-bookmark:_Toc184460266" mce_style="mso-bookmark:_Toc184460266"></span><span 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%;" align="center"><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%;" align="center"><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%;" align="center"><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%;" align="center"><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%;" align="center"><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%;" align="center"><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%;" align="center"><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%;" align="center"><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>25</slash:comments>
		</item>
	</channel>
</rss>
