<?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; Pascal</title> <atom:link href="http://www.rey1024.com/tag/pascal/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>Mengenal Array pada Pascal</title><link>http://www.rey1024.com/2011/04/mengenal-array-pada-pascal/</link> <comments>http://www.rey1024.com/2011/04/mengenal-array-pada-pascal/#comments</comments> <pubDate>Thu, 31 Mar 2011 17:10:53 +0000</pubDate> <dc:creator>Resika Arthana</dc:creator> <category><![CDATA[Pascal]]></category> <category><![CDATA[Software Engineering]]></category> <category><![CDATA[Array]]></category> <category><![CDATA[Belajar Pascal]]></category> <guid
isPermaLink="false">http://www.rey1024.com/?p=498</guid> <description><![CDATA[1. Definisi Array adalah koleksi data yang bertipe sama, tersusun dalam bentuk barisan linier berurutan (sequence) dan jumlah elemen atau datanya tidak berubah (statis) sesuai dengan deklarasi awal. Semua elemen array diidentifikasi dengan sebuah nama (nama array) dan untuk setiap elemennya diidentifikasi/dibedakan dengan sebuah index. 2. Deklarasi. Bentuk umum deklarasi array adalah: type tipe_array = [...]]]></description> <content:encoded><![CDATA[<div><p><strong>1.   Definisi</strong></p><p>Array adalah koleksi data yang bertipe sama, tersusun dalam bentuk  barisan linier berurutan (sequence) dan jumlah elemen atau datanya tidak  berubah (statis) sesuai dengan deklarasi awal. Semua elemen array  diidentifikasi dengan sebuah nama (nama array) dan untuk setiap  elemennya diidentifikasi/dibedakan dengan sebuah index.<span
id="more-498"></span></p><p><strong>2.   Deklarasi.</strong></p><p>Bentuk umum deklarasi array adalah:</p><p>type tipe_array = array [range_index] of  ipe_data;</p><p>var   var_array : tipe_array;             (1.1)</p><p>Atau dapat langsung dituliskan sebagai berikut:</p><p>var  var_array = array [range_index] of  tipe_data; (1.1)</p><p>var_array adalah nama variabel array yang dipakai untuk  mengidentifikasi array. Pemilihan nama variabel array mengikuti aturan  pemberian nama variabel secara umum.</p><p>Range_index adalah batasan index yang digunakan untuk  mengidentifikasi elemen array. Range_index menentukan jumlah elemen  array, yang jumlahnya tidak akan berubah (statis) mulai saat awal  disediakan (program dijalankan) hingga program selesai dijalankan.  Misalnya range 0..9 atau 1..10 atau –1..8 atau ‘A’..’J’ akan menentukan  jumlah elemen array sebanyak 10 buah.</p><p>Setiap elemen array diidentifikasi oleh salah satu index yang berada  dalam range yang telah ditentukan. Penggunaan index yang berada di luar  range Index akan mengakibatkan kesalah, Index ini tidak harus berupa  bilangan positif, tetapi harus berupa bilangan bulat atau data-data yang  masuk kategori tipe data ordinal (seluruh tipe data dasar selain real  dan double), seperti semua varian integer, char, boolean atau tipe data  enumerasi yang dibuat sendiri oleh user.</p><p>Tipe_data adalah tipe data untuk elemen array. Tipe data elemen array  tidak harus berupa integer, atau tipe data dasar yang lain, tetapi  dapat berupa tipe data terstruktur seperti array.</p><p>Tentang pemilihan model deklarasi, model deklarasi dengan membuat  sebuah tipe array seperti model (1.1) akan lebih jelas dan lebih ringkas  yang dapat dirasakan saat variabel-variabel bertipe array digunakan  sebagai parameter sebuah fungsi atau prosedur.</p><p><strong>3.   Operasi Pada Array</strong></p><p>-       Operasi Memasukkan dan Mengambil Nilai</p><p>Bila array sudah dideklarasikan dan sudah diberi suatu nama, maka  dapat dimanfaatkan sesuai fungsinya sebagai objek data. Operasi  memasukkan nilai adalah operasi untuk memasukkan nilai data ke dalam  elemen-elemen array. Biasanya hal ini dilakukan dengan operasi penugasan  (assignment) dengan objek array terletak sebagai operan di sebelah kiri  tanda ‘:=’.</p><p>Sedangkan operasi mengambil nilai adalah operasi untuk  mendapatkan/membaca nilai dari suatu array. Hal dini dilakukan ketika  menggunakan array sebagai operan nada suatu operasi atau sebagai  parameter sebuah fungsi/prosedur.</p><p>-          Operasi Mengakses Array</p><p>Operasi mengakses suatu objek data merupakan nama yang lebih umum  daripada operasi memasukkan nilai ataupun membaca nilai. Jadi, operasi  mengakses array dapat berupa memasukkan nilai atau membaca nilai array.  Operasi ini dapat dilakukan pada array secara keseluruhan ataupun pada  suatu elemen tertentu.</p><p>-           Mengakses Elemen Array Secara Acak/Random</p><p>Setiap elemen array dapat diperlakukan secara individual terlepas  dari elemen-elemen lainnya. Misalnya dalam hal  memasukkan data,  nilai[7] dapat dimasukkan lebih dulu daripada elemen lainnya.meskipun  akhirnya semua elemen array akan diakses, namun tidak aturan  yang pasti  tentang urutan mengaksesnya. Kita bisa saja mengakses nilai[5] tanpa  mengakses komponen array lainnya.</p><p>-         Mengakses Elemen Array Secara Sequensial (Berurutan)</p><p>Struktur array yang elemen-elemennya tersusun secara berurutan,  memungkinkan kita mengakses sebagian atau seluruh elemen array secara  berurutan.</p><p>Untuk proses mengunjungi elemen array (traversal of array) secara  berurutan dapat dilakukan dengan proses looping (perulangan). Pada  model-model di atas, elemen-elemen array diakses secara berurutan dengan  selisih satu index. Jadi elemen ke-6 akan diakses sebelum atau sesudah  elemen ke-5 ataupun ke-7. Pergeseran index dilakukan dengan menambah  atau mengurangi index sebelumnya dengan 1. Kita juga dapat membuat model  yang lain dengan mengubah selisih indexnya. Misalkan menjadi 2, 3, atau  berapa saja sesuai keperluan, asalkan selalu berada pada range index.</p><p>-     Mengakses Array Secara Keseluruhan</p><p>Selain mengakses komponen array, kita juga dapat mengakses array  secara keseluruhan yang akan mempengaruhi semua elemennya sekaligus.  Misalkan A dan B adalah dua buah variabel array yang tipenya sama, dan  jumlah elemennya juga sama, maka dalam Pascal dapat dilakukan operasi  penugasan A := B yang berarti memasukkan nilai dari setiap elemen array B  ke semua elemen A pada Index-Index yang bersesuaian.</p><p>4.   Array Multidimensi</p><p>Tipe data elemen array tidak harus berupa tipe data elementer, namun  juga dapat berupa tipe data terstruktur, misalnya array. Sebagai contoh,  perhatikan deklarasi berikut :</p><p>Var Matrix:array[1..3,1..3]  of integer;</p><p>Bentuk deklarasi mungkin saja dibuat untuk kasus demikian, tipe  nilai_ujian adalah berupa array dengan dua elemen bertipe integer untuk  menyimpan nilai ujian midterm dan ujian akhir. Sedangkan  variabel nilai  adalah array dengan sepuluh elemen bertipe nilai_ujian, yang digunakan  untuk menyimpan nilai ujian dari 10 mahasiswa. Elemen-elemen array nilai  bertipe array integer. Walaupun terdapat dua buah array, tetapi setiap  deklarasi array hanya dibatasi dengna sebuah range Index saja. Jumlah  elemen array nilai adalah 10, walaupun secara keseluruhan banyaknya  bilangan yang dapat disimpan adalah 20 buah. Array demikian dikenal  sebagai array berdimensi 1.</p><p>5.   Penggunaan Konstanta untuk Batas Index Arrray</p><p>Deklarasi konstanta sering digunakan untuk batas bawah dan batas atas  pada range Index array. Setiap kali menggunakan array, kita pasti  berharap agar ruang yang kita sediakan sesuai dengna banyaknya data yang  akan disimpan; jangan sampai berlebihan, ataupun kekurangan.</p><p>Sering kali kita terpaksa harus mengubah batas-batas range Index  untuk menyesuaikan jumlah data. Penggunaan konstanta akan memudahkan  bila ada keperluan untuk mengubah batas-batas range Index array, yaitu  cukup mengganti nilai konstanta tersebut.</p><p>moved from my old blog http://kuliahkomputer.wordpress.com/2007/12/05/mengenal-array-pada-pascal/</p></div> ]]></content:encoded> <wfw:commentRss>http://www.rey1024.com/2011/04/mengenal-array-pada-pascal/feed/</wfw:commentRss> <slash:comments>0</slash:comments> </item> <item><title>Belajar Variabel String di Pascal Bag I</title><link>http://www.rey1024.com/2008/10/belajar-variabel-string-di-pascal-bag-i/</link> <comments>http://www.rey1024.com/2008/10/belajar-variabel-string-di-pascal-bag-i/#comments</comments> <pubDate>Fri, 03 Oct 2008 04:08:39 +0000</pubDate> <dc:creator>Resika Arthana</dc:creator> <category><![CDATA[Tutorial Komputer]]></category> <category><![CDATA[bahasa pemrograman]]></category> <category><![CDATA[Pascal]]></category> <category><![CDATA[string]]></category> <guid
isPermaLink="false">http://www.rey1024.com/?p=48</guid> <description><![CDATA[String merupakan kumpulan karakter, atau bisa juga dibilang sebagai array dari karakter. Variabel bertipe string menyimpan data dalam bentuk karakter(huruf dan angka). Contoh pendeklarasian variabel string adalah : Var Nama : string; Atau Var Nama : string[40]; Pada string[40] berarti panjang string dibatasi sampai 40. Contoh program yang menggunakan string : program say_hello; uses crt; [...]]]></description> <content:encoded><![CDATA[<p
class="MsoNormal" style="margin-bottom: 0.0001pt;">String merupakan kumpulan karakter, atau bisa juga dibilang sebagai array dari karakter. Variabel bertipe string menyimpan data dalam bentuk karakter(huruf dan angka).</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt;"><span
id="more-48"></span></p><p
class="MsoNormal" style="margin-bottom: 0.0001pt;">Contoh pendeklarasian variabel string adalah :</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt;">Var</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; margin-left: 40px;"><span> </span>Nama : string;</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt;">Atau</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt;">Var</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; margin-left: 40px;"><span> </span>Nama : string[40];</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt;">Pada string[40] berarti panjang string dibatasi sampai 40.</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt;">Contoh program yang menggunakan string :</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; color: #0033cc;">program say_hello;</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; color: #0033cc;">uses crt;</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; color: #0033cc;">var nama:string;</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; color: #0033cc;">begin</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; margin-left: 40px; color: #0033cc;"><span> </span>clrscr;</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; margin-left: 40px; color: #0033cc;"><span> </span>write(&#8216;Nama kamu siapa ?&#8217<img
src="http://www.rey1024.com/wp-content/plugins/kaskus-emoticons/emoticons/13.gif" style="border:none;background:none;" alt=";)" />;</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; margin-left: 40px; color: #0033cc;"><span> </span>readln(nama);</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; margin-left: 40px; color: #0033cc;"><span> </span>writeln(&#8216;Alo &#8216;,nama,&#8217; Apa Kabar &#8216;.);</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; margin-left: 40px; color: #0033cc;"><span> </span>readln;</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt; color: #0033cc;">end.</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt;">Silakan modifikasi program diatas sehingga diperoleh panjang nama, dan 3 huruf dari depan.</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt;">Contoh :</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt;">nama : resika</p><p
class="MsoNormal" style="margin-bottom: 0.0001pt;">jumlah huruf : 6</p><p>3 huruf dari depan : res</p> ]]></content:encoded> <wfw:commentRss>http://www.rey1024.com/2008/10/belajar-variabel-string-di-pascal-bag-i/feed/</wfw:commentRss> <slash:comments>2</slash:comments> </item> <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>
