Bubble Sort & inserting sort dg C++

beberapa fungsi-fungsi sorting<br /><br /><br />void bubblesort(float a[],int n)<br />{<br /> for(int p=0;p<(n-1);p++)<br /> {<br /> for(int i=0;i<n-1;i++)<br /> {<br /> if(a[i]>a[i+1])<br /> {<br /> float temp;<br /> temp=a[i+1];<br /> a[i+1]=a[i];<br /> a[i]=temp;<br /> }<br /> }<br /> }<br />}<br /><br /><br /><br /> void insertionsort(float a[],int n)<br /> {<br /> for(int i=1;i<n;i++)<br /> {<br /> float x=a[i];<br /> int j=i;<br /> while(j>0 && a[j-1]>x)//definition of insertion sort<br /> a[j--]=a[j-1];<br /> a[j]=x;<br /> }<br /> }

Bubble Sort & inserting sort dg C++

beberapa fungsi-fungsi sortingvoid bubblesort(float a[],int n){ for(int p=0;p { for(int i=0;i { if(a[i]>a[i+1]) { float temp; temp=a[i+1]; a[i+1]=a[i]; a[i]=temp; } } }} void insertionsort(float a[],int n) { for(int i=1;i { float x=a[i]; int …

Read more »

Sorting Data - Tugas Struktur Data

<p>met siang friend, Beberapa hari yang lalu gue dapat tugas nih sorting data, bersyukur pas waktu obok- obok di situs dapet deh hasilnya . terus copy paste dechh.... hi curang yaaa .... :)<br /></p><p><strong><br /></strong></p><p><strong>Sorting </strong></p> <p>Beberapa metode sorting mengurutkan data yang dikenal antara lain adalah:<br /><strong>1. Bubble Sort (sederhana tetapi lambat)<br />2. Quick Sort (cepat tetapi rumit)<br />3. Shell Sort (agak cepat dan tidak terlalu rumit)</strong></p> <p><strong>1. Bubble Sort<br /></strong>Teknik ini menyusun data yang diinginkan secara berurutan dengan membandingkan elemen data yang ada, misalkan kita akan meyusun data secara (ascending) cacah naik. Maka lagoritma utamanya adalah seperti ini.</p> <p>SYNTAX</p> <p class="code">for i:=1 to Jumlah_data-1 do<br />for j:=i+1 to Jumlah_data do<br />if Data[i]>Data[j] then<br />begin<br />t:=Data[i];<br />Data[i]:=Data[j];<br />Data[j]:=t;<br />end;</p> <p>Contoh.<br />Misal kita punya data : 5 3 8 4 1 7 6 2 , dalam program<br />program mengurutkandata;</p> <p class="code">uses WinCrt;<br />type urutkan=array [1..8] of integer;<br />var i,j,t:integer;<br />anu:urutkan;<br />begin<br />anu[1]:=5; anu[2]:= 3;<br />anu[3]:= 8; anu[4]:= 4;<br />anu[5]:= 1; anu[6]:= 7 ;<br />anu[7]:=6 ; anu[8]:=2 ;<br />for i:=1 to 7 to<br />begin<br />for j:=i+1 to 8 to<br />begin<br />if anu[i]>anu[j] then<br />begin<br />t:=anu[i];<br />anu[i]:=anu[j];<br />anu[j]:=t;<br />end;<br />end;<br />end;<br />for i:=1 to 8 do<br />write (anu[i], ‘ ‘)<br />end.</p> <p><strong>2. Shell sort<br /></strong>Prinsipnya hampir sama dengan bubble sort tetapi dioptmisisasi sehingga lebih cepat. Ditemukan oleh Donald Shell. prinsipnya adalah membandingkan data dengan jarak tertentu dalam array.<br />SYNTAX</p> <p class="code">for jarak:= (Jumlah_data div 2) down to 1 do<br />for i:=1 to Jumlah_data-jarak do<br />if Data[i]>Data[i+jarak] then<br />begin<br />t:=Data[i];<br />Data[i]:=Data[i+jarak];<br />Data[i+jarak]:=t;<br />end;</p> <p>Misalkan kita punya 8 data. Langkah pertama adalah membandingkan data pertama dengan ke lima, dsb. Jarak antara data adalah (8 div 2 :=4).<br />Langkah iterasi:<br />pertama, jarak adalah 4.<br />5 3 8 4 1 7 6 2<br />ke-1 perbandingan : ^ ^ (salah urutan, tukar)<br />1 3 8 4 5 7 6 2<br />ke-2 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-3 perbandingan : ^ ^ (salah urutan, tukar)<br />1 3 6 4 5 7 8 2<br />ke-4 perbandingan : ^ ^ (salah urutan, tukar)<br />1 3 6 2 5 7 8 4 —-> Jarak 3.<br />ke-5 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-6 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-7 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-8 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-9 perbandingan : ^ ^ (salah urutan, tukar)<br />1 3 6 2 4 7 8 5 —-> Jarak 2.<br />ke-10 perbandingan :^ ^ ( urutan benar, no tukar)<br />ke-11 perbandingan : ^ ^ (salah urutan, tukar)<br />1 2 6 3 4 7 8 5<br />ke-12 perbandingan : ^ ^ (salah urutan, tukar)<br />1 2 4 3 6 7 8 5<br />ke-13 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-14 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-15 perbandingan : ^ ^ (salah urutan, tukar)<br />1 2 4 3 6 5 8 7 —-> Jarak 1.<br />ke-16 perbandingan :^ ^ ( urutan benar, no tukar)<br />ke-17 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-18 perbandingan : ^ ^ (salah urutan, tukar)<br />1 2 3 4 6 5 8 7<br />ke-19 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-20 perbandingan : ^ ^ (salah urutan, tukar)<br />1 2 3 4 5 6 8 7<br />ke-21 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-22 perbandingan : ^ ^ (salah urutan, tukar)<br />1 2 3 4 5 6 7 8</p> <p><strong>3. quick sort<br /></strong>diketemukan oleh E. Hoare. Dengan menggunakan metode rekursi samapi habis. Prinsipnya membagi data menjadi dua bagian yang sama (kiri dan kanan). Dimana data tengah menjadi pivot (pusat operasi). Kumpulkan data dengan nilai lebih kecil dari pivot disebelah kiri pivot, dan di kanan untuk yang lebih besar. Dimungkinkan bagian kiri dan kanan pivot tidak sama besarnya. Untuk itu tiap bagin di bagi menjadi dua lagi dan mempuyi pivot yang baru. Contoh misal kita mempunyai data array integer.</p> <p class="code">procedure qsort(bawah, atas : integer)<br />var kiri, kanan, pivot : integer;<br />begin<br />pivot:=Data[(bawah+atas) div 2];<br />kiri:=bawah;<br />kanan:=atas;<br />while kiri<=kanan do<br />begin<br />while Data[kiri] < pivot do kiri:=kiri+1; { memisahkan ke kiri }<br />while Data[kanan]>pivot do kanan:=kanan-1;{Memisahkan ke kanan}<br />if kiri<=kanan then { chek perubahan }<br />begin<br />swap Data[kiri] with Data[kanan];<br />kiri:=kiri+1;<br />kanan:=kanan-1;<br />end;<br />end;<br />if kanan>bawah then qsort(bawah,kanan);{ urutkan bagian KIRI }<br />if atas>kiri then qsort(kiri ,atas);{ urutkan bagian KANAN}<br />end;</p> <p>Pemangilan dalam program utama : <strong>qsort(1,NumberOfData);</strong></p><p><span style="font-size:78%;">alamat aslinya coding nih </span><span style="font-size:78%;">(http://k4n9m4s.wordpress.com/2007/09/25/pemrograman-pascal-07/)</span></p><p><span style="font-size:78%;"><span style="font-size:100%;">sorry ya brow gue copy paste </span><br /></span></p><p><span style="font-size:78%;"><br /></span></p>

Sorting Data - Tugas Struktur Data

met siang friend, Beberapa hari yang lalu gue dapat tugas nih sorting data, bersyukur pas waktu obok- obok di situs dapet deh hasilnya . terus copy paste dechh.... hi curang yaaa .... :)Sorting Beberapa metode sorting mengurutkan data yang dikenal…

Read more »

Pengertian Type

<div style="text-align: center;"><span style="font-weight: bold;">TYPE</span><br /><div style="text-align: justify;"><br />Type adalah pola representasi suatu data dalam komputer. Gunanya untuk mendefinisikan objek yang akan dipogram. Ada type dasar dan type bentukan. biasanya type bentukan dibentuk dari typedasar. Type tidak menentukan alokasi memori komputer, tetapi hanya mendefiniskan pola struktur informasi.<br /><br />Type dasar-> type yang sudah didefinisikanoleh pemroses bahasa.<br /> - bilangan logika<br /> - bilangan bulat<br /> - bilangan riil<br /> - karakter<br /><br />Type bentukan -> type yang dirancang/dibentuk dari beberapa komponen bertype tertentu<br /> formatnya<br /> type nama type < element:type1,<br /> element2:type2<br /> element3:type3<br /> .......><br /><br /><br /><br /><br /><br /></div></div>

Pengertian Type

TYPEType adalah pola representasi suatu data dalam komputer. Gunanya untuk mendefinisikan objek yang akan dipogram. Ada type dasar dan type bentukan. biasanya type bentukan dibentuk dari typedasar. Type tidak menentukan alokasi memori komputer, tetap…

Read more »

Konsep Inti Pemasaran (MP)

<p class="MsoSubtitle" style="margin-left: 36pt; text-indent: -18pt; text-align: center;"><!--[if !supportLists]--><span style="font-weight: normal;" lang="EN-US"><span style=""><span style="font-family: "Times New Roman"; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"> </span></span></span><!--[endif]--><span style="font-weight: normal;" lang="EN-US">Konsep Inti Pemasaran<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Pemasaran lama VS Pemasaran Baru<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Pemasaran yaitu<span style=""> </span>sebuah proses sosial dan mangerial yang mana dengan proses itu seseorang atau kelompok memperoleh apa yang dibutuhkan dan diinginkan melalui penciptaan dan pertukarab produk dan nilai dengan pihak lainnya.<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US"><o:p> </o:p>Pasar</span><span style="font-family: Wingdings; font-weight: normal;" lang="EN-US"><span style="">à</span></span><span style="font-weight: normal;" lang="EN-US"> kebutuhan , keinginan dan permintaan </span><span style="font-family: Wingdings; font-weight: normal;" lang="EN-US"><span style="">à</span></span><span style="font-weight: normal;" lang="EN-US">produk dan jasa </span><span style="font-family: Wingdings; font-weight: normal;" lang="EN-US"><span style="">à</span></span><span style="font-weight: normal;" lang="EN-US"> Nilai, kepuasan dan kualitas </span><span style="font-family: Wingdings; font-weight: normal;" lang="EN-US"><span style="">à</span></span><span style="font-weight: normal;" lang="EN-US"> pertukaran transaksi dan hubungan<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US"><o:p> </o:p>Kebutuhan (Needs)</span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Suatu pernyataan dari perasaan kekurangan : kebutuhan fisik dasar dan kebutuhan individu<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US"><o:p> </o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Keinginan (Wants)<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Kebutuhan manusia yang dibentuk oleh budaya dan kepribadian seseorang.<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Keinginan tak terbatas </span><span style="font-family: Wingdings; font-weight: normal;" lang="EN-US"><span style="">à</span></span><span style="font-weight: normal;" lang="EN-US"> memberi nilai kepuasan terbesar<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Sumber daya terbatas </span><span style="font-family: Wingdings; font-weight: normal;" lang="EN-US"><span style="">à</span></span><span style="font-weight: normal;" lang="EN-US"> memberi nilai kepuasan terbesar<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US"><o:p> </o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Permintaan (Demands)<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Keinginan manusia yang didukung oleh daya beli <o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US"><o:p> </o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Produk<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Segala sesuatu yang dapat ditawarkan ke pasar untuk diperhatikan, dimilikm digunakan atau di konsumsi yang dapat memuaskan keinginan atau kebutuhan objek fisikm jasa, orang, tempatm organisasi, gagasan.<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US"><o:p> </o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Jasa<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Segala aktivitas atau manfaat yang dapat ditawarkan oleh suatu kelompok kepada yang lainnya yang pada dasaranya tidak nyata dan tidak barakibat pada kepemilikan apapun<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US"><o:p> </o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Nilai Pelanggan<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Selisih anatara nilai yang diperoleh pelanggan dengan memiliki dan<span style=""> </span>menggunakan suatu produk dengan biaya yang dikeluarkan untuk memperolehnya.<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US"><o:p> </o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Kepuasan pelanggan<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Suatu tindakan dimana perkiraan kinerja produk sesuai dengan harapan pembeli<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US"><o:p> </o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Pertukaran (Exchange)<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Tindakan untuk memperoleh objek yang diharapkan dari seseorang dengan menawarkan sesuatu sebagai pengganti<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US"><o:p> </o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Transaksi <o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Perdagangan antara dua pihak yang melibatkan paling sedikit dua bentuk nilai persetujuan mengenai kondisi, persetujuan mengenai waktu dan persetujuan mengenai tempat<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US"><o:p> </o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Hubungan Pemasaran<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt;"><span style="font-weight: normal;" lang="EN-US">Proses menciptakan, memelihara dan menigkatkan hubungan timbal balik dengan pelanggan dan pihak lain yang berkepentingan.<o:p></o:p></span></p>

Konsep Inti Pemasaran (MP)

Konsep Inti Pemasaran Pemasaran lama VS Pemasaran Baru Pemasaran yaitu sebuah proses sosial dan mangerial yang mana dengan proses itu seseorang atau kelompok memperoleh apa yang dibutuhkan dan diinginkan melalui penciptaan dan pertukarab produk…

Read more »

Aktivitas Bisnis dan Peranan Informasi

<p style="text-align: center;" class="MsoSubtitle"><span lang="EN-US">Aktivitas Bisnis dan Peranan Informasi</span></p> <p class="MsoSubtitle" style="text-indent: 18pt;"><span style="font-weight: normal;" lang="EN-US">Sebelum merancang sistem infomasi bagi perusahaan, seseorang terlebih dahulu memahami tata kerja yang dilakukan pada perusahaan tersebut, mngidentifikasi<span style=""> </span>jenis-jenis informasi yang diperlukan yang selanjutnya menentukan enis data yang relevan untuk diproses menjadi informasi.<o:p></o:p></span></p> <table class="MsoNormalTable" style="border: medium none ; margin-left: 5.4pt; border-collapse: collapse;" border="1" cellpadding="0" cellspacing="0"> <tbody><tr style="height: 14.15pt;"> <td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 27.7pt; height: 14.15pt;" valign="top" width="37"> <p class="MsoSubtitle"><span style="font-weight: normal;" lang="EN-US">No<o:p></o:p></span></p> </td> <td style="border-style: solid solid solid none; border-color: windowtext windowtext windowtext -moz-use-text-color; border-width: 1pt 1pt 1pt medium; padding: 0cm 5.4pt; width: 127.3pt; height: 14.15pt;" valign="top" width="170"> <p class="MsoSubtitle"><span style="font-weight: normal;" lang="EN-US">Aktifitas Bisnis<o:p></o:p></span></p> </td> <td style="border-style: solid solid solid none; border-color: windowtext windowtext windowtext -moz-use-text-color; border-width: 1pt 1pt 1pt medium; padding: 0cm 5.4pt; width: 198.6pt; height: 14.15pt;" valign="top" width="265"> <p class="MsoSubtitle"><span style="font-weight: normal;" lang="EN-US">Jenis Keputusan <o:p></o:p></span></p> </td> <td style="border-style: solid solid solid none; border-color: windowtext windowtext windowtext -moz-use-text-color; border-width: 1pt 1pt 1pt medium; padding: 0cm 5.4pt; width: 139.85pt; height: 14.15pt;" valign="top" width="186"> <p class="MsoSubtitle"><span style="font-weight: normal;" lang="EN-US">Informasi <o:p></o:p></span></p> </td> </tr> <tr style="height: 70.65pt;"> <td style="border-style: none solid solid; border-color: -moz-use-text-color windowtext windowtext; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 27.7pt; height: 70.65pt;" valign="top" width="37"> <p class="MsoSubtitle"><span style="font-weight: normal;" lang="EN-US">1<o:p></o:p></span></p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 127.3pt; height: 70.65pt;" valign="top" width="170"> <p class="MsoSubtitle"><span style="font-weight: normal;" lang="EN-US">Kebutuhan Modal<o:p></o:p></span></p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 198.6pt; height: 70.65pt;" valign="top" width="265"> <p class="MsoSubtitle"><span style="font-weight: normal;" lang="EN-US">-Berapa banyak modal sendiri atau utang jangka pendek<o:p></o:p></span></p> <p class="MsoSubtitle"><span style="font-weight: normal;" lang="EN-US">-Bagaimana syarat pinjaman dll<o:p></o:p></span></p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 139.85pt; height: 70.65pt;" valign="top" width="186"> <p class="MsoSubtitle"><span style="font-weight: normal;" lang="EN-US">1.Rugi laba<o:p></o:p></span></p> <p class="MsoSubtitle"><span style="font-weight: normal;" lang="EN-US">2.Neraca<o:p></o:p></span></p> <p class="MsoSubtitle"><span style="font-weight: normal;" lang="EN-US">3.Cash Flow / Arus Kas, Amortisasi pinjaman , Amortisasi Utang<o:p></o:p></span></p> </td> </tr> <tr style="height: 56.55pt;"> <td style="border-style: none solid solid; border-color: -moz-use-text-color windowtext windowtext; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 27.7pt; height: 56.55pt;" valign="top" width="37"> <p class="MsoSubtitle"><span style="font-weight: normal;" lang="EN-US">2<o:p></o:p></span></p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 127.3pt; height: 56.55pt;" valign="top" width="170"> <p class="MsoSubtitle"><span style="font-weight: normal;" lang="EN-US">Memperoleh gedung dan peralatan<o:p></o:p></span></p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 198.6pt; height: 56.55pt;" valign="top" width="265"> <p class="MsoSubtitle"><span style="font-weight: normal;" lang="EN-US">Ukuran gedung, nilai peralatan sewa atau beli, lokasi, nilai, dan sistem penyusutan nilai sisa/nilai residu atau scrapt value<o:p></o:p></span></p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 139.85pt; height: 56.55pt;" valign="top" width="186"> <p class="MsoSubtitle"><span style="font-weight: normal;" lang="EN-US">Kapasitas yang diperlukan , harga, riset pasar, tarif, peraturan , pajak , dll<o:p></o:p></span></p> </td> </tr> </tbody></table>

Aktivitas Bisnis dan Peranan Informasi

Aktivitas Bisnis dan Peranan Informasi Sebelum merancang sistem infomasi bagi perusahaan, seseorang terlebih dahulu memahami tata kerja yang dilakukan pada perusahaan tersebut, mngidentifikasi jenis-jenis informasi yang diperlukan yang selanjutnya …

Read more »

Alasan mempelajari SIA

<p class="MsoSubtitle"><span lang="EN-US">SIA (Sistem Informasi Akuntansi)<br /></span></p><p class="MsoSubtitle"><span lang="EN-US"><br /></span></p><p class="MsoSubtitle"><span lang="EN-US">Alasan mempelajari SIA</span></p> <p class="MsoSubtitle" style="margin-left: 36pt; text-indent: -18pt;"><!--[if !supportLists]--><span style="font-weight: normal;" lang="EN-US"><span style="">1.<span style="font-family: "Times New Roman"; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"> </span></span></span><!--[endif]--><span style="font-weight: normal;" lang="EN-US">Semua informasi dibidang akntansi dipakai untuk mengambil keputusan<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt; text-indent: -18pt;"><!--[if !supportLists]--><span style="font-weight: normal;" lang="EN-US"><span style="">2.<span style="font-family: "Times New Roman"; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"> </span></span></span><!--[endif]--><span style="font-weight: normal;" lang="EN-US">Bermanfaat untuk perancangan penggunaan dan implementasi sistem laporan keuangan untuk menambah keahlian didalam merancang sebuah sistem, sehingga dari keahlian tersebut diharapkan :<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 72pt; text-indent: -18pt;"><!--[if !supportLists]--><span style="font-weight: normal;" lang="EN-US"><span style="">a.<span style="font-family: "Times New Roman"; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"> </span></span></span><!--[endif]--><span style="font-weight: normal;" lang="EN-US">Mengaksese dan menganilisi suatu perusahaan melalui laporan keuangan<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 72pt; text-indent: -18pt;"><!--[if !supportLists]--><span style="font-weight: normal;" lang="EN-US"><span style="">b.<span style="font-family: "Times New Roman"; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"> </span></span></span><!--[endif]--><span style="font-weight: normal;" lang="EN-US">Memebantu merancang dan menyusun SIA secara efektif dan efisien<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 72pt; text-indent: -18pt;"><!--[if !supportLists]--><span style="font-weight: normal;" lang="EN-US"><span style="">c.<span style="font-family: "Times New Roman"; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"> </span></span></span><!--[endif]--><span style="font-weight: normal;" lang="EN-US">Menagakses database unutk keperluan standar audit /pemeriksaan<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 72pt; text-indent: -18pt;"><!--[if !supportLists]--><span style="font-weight: normal;" lang="EN-US"><span style="">d.<span style="font-family: "Times New Roman"; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"> </span></span></span><!--[endif]--><span style="font-weight: normal;" lang="EN-US">Melakukan komunikasi dengan menggunakan teknologi informasi terkini<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt; text-indent: -18pt;"><!--[if !supportLists]--><span style="font-weight: normal;" lang="EN-US"><span style="">3.<span style="font-family: "Times New Roman"; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"> </span></span></span><!--[endif]--><span style="font-weight: normal;" lang="EN-US">SIA Merupakan komponene kunci dalam setiap proses mengembangkan usaha melalui pembuatan laporan dengan melakukan penilaian kinerja usaha corporate revaluation<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt; text-indent: -18pt;"><!--[if !supportLists]--><span style="font-weight: normal;" lang="EN-US"><span style="">4.<span style="font-family: "Times New Roman"; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"> </span></span></span><!--[endif]--><span style="font-weight: normal;" lang="EN-US">SIA mampu memenuhi kebutuhan infomasi yang ditujukan kepada pemakai extern (calon investo/kreditor seperti bank, lessor, dll) dan ke[ada pihak intern seperti para manager, pemilik maupun karyawan.<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 36pt; text-indent: -18pt;"><!--[if !supportLists]--><span style="font-weight: normal;" lang="EN-US"><span style="">5.<span style="font-family: "Times New Roman"; font-style: normal; font-variant: normal; font-weight: normal; font-size: 7pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"> </span></span></span><!--[endif]--><span style="font-weight: normal;" lang="EN-US">Dengan adanya revolusi teknologi informasi menyebabkan SIA sangat berperanan didalam melakukan efisiensi dan efektifitas pengelolaan usaha.<o:p></o:p></span></p> <p class="MsoSubtitle" style="margin-left: 18pt;"><span style="font-weight: normal;" lang="EN-US"><o:p> </o:p></span></p>

Alasan mempelajari SIA

SIA (Sistem Informasi Akuntansi)Alasan mempelajari SIA 1. Semua informasi dibidang akntansi dipakai untuk mengambil keputusan 2. Bermanfaat untuk perancangan penggunaan dan implementasi sistem laporan keuangan untuk menambah keahlian dida…

Read more »

Record Dalam Pascal

<div class="separator" style="clear: both; text-align: center;"> </div> <div style="line-height: 150%;"> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiWSAQBFVfv3l62MG7Qdmi7QmAhMZbpbLrbK_Y-3hassSiRWD5CEE79Gvx7XJcHEB5hqtPPHOehzJPZIFcEmsFG2CXlimy4zl-EZ8udGy-mH8RnT4X0SaPuc0OLuK9SvrCoGFr9Kd5vBa7c/s1600/r.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="163" data-original-width="308" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiWSAQBFVfv3l62MG7Qdmi7QmAhMZbpbLrbK_Y-3hassSiRWD5CEE79Gvx7XJcHEB5hqtPPHOehzJPZIFcEmsFG2CXlimy4zl-EZ8udGy-mH8RnT4X0SaPuc0OLuK9SvrCoGFr9Kd5vBa7c/s1600/r.jpg" /></a></div> <b><u><span lang="EN-US" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">RECORD (REKAMAN)<o:p></o:p></span></u></b></div> <div style="line-height: 150%;"> <span lang="EN-US" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">Sebuah record rekaman disusun oleh beberapa field. </span><span lang="SV" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">Tiap field berisi data dari tipe dasar / bentukan tertentu. Record mempunyai kelebihan untuk menyimpan suatu sekumpulan elemen data yang berbeda-beda tipenya (di banding array). Contoh , sebuah record dengan empat buah field.</span><span lang="SV"> <o:p></o:p></span></div> <table border="1" cellpadding="0" cellspacing="0" class="MsoNormalTable" style="border-collapse: collapse; border: medium none; width: 100%px;"> <tbody> <tr> <td style="background: rgb(51 , 153 , 255) none repeat scroll 0% 50%; border: 1pt inset rgb(17 , 17 , 17); padding: 0cm; width: 25%;" width="25%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="SV" style="font-family: "courier new"; font-size: 10pt; line-height: 150%;"> <o:p></o:p></span></div> </td> <td style="background: rgb(51 , 153 , 255) none repeat scroll 0% 50%; border-color: rgb(17 , 17 , 17) rgb(17 , 17 , 17) rgb(17 , 17 , 17); border-style: inset inset inset none; border-width: 1pt 1pt 1pt medium; padding: 0cm; width: 25%;" width="25%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="SV" style="font-family: "courier new"; font-size: 10pt; line-height: 150%;"> <o:p></o:p></span></div> </td> <td style="background: rgb(51 , 153 , 255) none repeat scroll 0% 50%; border-color: rgb(17 , 17 , 17) rgb(17 , 17 , 17) rgb(17 , 17 , 17); border-style: inset inset inset none; border-width: 1pt 1pt 1pt medium; padding: 0cm; width: 25%;" width="25%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="SV" style="font-family: "courier new"; font-size: 10pt; line-height: 150%;"> <o:p></o:p></span></div> </td> <td style="background: rgb(51 , 153 , 255) none repeat scroll 0% 50%; border-color: rgb(17 , 17 , 17) rgb(17 , 17 , 17) rgb(17 , 17 , 17); border-style: inset inset inset none; border-width: 1pt 1pt 1pt medium; padding: 0cm; width: 25%;" width="25%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="SV" style="font-family: "courier new"; font-size: 10pt; line-height: 150%;"> <o:p></o:p></span></div> </td> </tr> <tr> <td style="border: medium none; padding: 0cm; width: 25%;" width="25%"><div align="center" style="line-height: 150%; text-align: center;"> <span lang="EN-US" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">Field 1<o:p></o:p></span></div> </td> <td style="border: medium none; padding: 0cm; width: 25%;" width="25%"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;"> <span lang="EN-US">Field 2 </span></div> </td> <td style="border: medium none; padding: 0cm; width: 25%;" width="25%"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;"> <span lang="EN-US">Field 3 </span></div> </td> <td style="border: medium none; padding: 0cm; width: 25%;" width="25%"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;"> <span lang="EN-US">Field 4 </span></div> </td> </tr> </tbody></table> <div style="line-height: 150%;"> <span lang="EN-US" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">Cara pendeklarasian dari record adalah sbb:<br />• Mendefinisikan tipe dari record (jumlah field, jenis tipe data yang dipakai),<br />• Mendefinisikan variabel untuk dilakukan operasi. <o:p></o:p></span></div> <div style="line-height: 150%;"> <span lang="EN-US" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">SYNTAX <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="EN-US" style="font-size: 10pt; line-height: 150%;">type <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="EN-US" style="font-size: 10pt; line-height: 150%;">nama_record = record<br />identifier_1 : tipe_data_1;<br />:<br />:<br />identifier_n : tipe_data_n;<br />end;<br />var variabel : nama_record; <o:p></o:p></span></div> <div style="line-height: 150%;"> <span lang="EN-US" style="font-family: "courier new"; font-size: 10pt; line-height: 150%;"><o:p> </o:p></span></div> <div style="line-height: 150%;"> <span lang="EN-US" style="font-family: "courier new"; font-size: 10pt; line-height: 150%;"><o:p> </o:p></span></div> <div style="line-height: 150%;"> <span lang="EN-US" style="font-family: "courier new"; font-size: 10pt; line-height: 150%;"><o:p> </o:p></span></div> <div style="line-height: 150%;"> <span lang="EN-US" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">Contoh. <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="EN-US" style="font-size: 10pt; line-height: 150%;">type <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="EN-US" style="font-size: 10pt; line-height: 150%;">Data_mahasiswa = record<br />Nama : string;<br />Usia : integer;<br />Kota : String;<br />Kodepos : integer;<br />end;<br />Var<br />x: Data_mahasiswa; <o:p></o:p></span></div> <div style="line-height: 150%;"> <b><span lang="EN-US" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">1. Pengaksesan Elemen Record</span></b><span lang="EN-US" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">Nama variable disertai nama field. <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="EN-US" style="font-size: 10pt; line-height: 150%;">x.Nama<br />x.Usia<br />x.Kota<br />x.Kodepos <o:p></o:p></span></div> <div style="line-height: 150%;"> <span lang="EN-US" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">Contoh. <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="EN-US" style="font-size: 10pt; line-height: 150%;">program RECORD_INTRO;<br />type tanggal = record<br />bulan, hari, tahun : integer;<br />end;<br />var waktu : tanggal;<br />begin<br />waktu.hari :=25;<br />waktu.bulan:=09;<br />waktu.tahun:= 1983;<br />writeln('hari ini adalah ',waktu.hari,':',waktu.bulan,':', waktu.tahun)<br />end. <o:p></o:p></span></div> <div style="line-height: 150%;"> <b><span lang="EN-US" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">2. Pengunaan With … do</span></b><span lang="EN-US" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">Pernyataan with untuk lebih menyederhanakan pengaksesan field-field pada record. </span><span lang="SV" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">Pemrograman dapat mengakses field cukup dengan menyebutkan nama field-nya saja. Misalkan pernyataan : <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="SV" style="font-size: 10pt; line-height: 150%;">x.Nama<br />x.Usia<br />x.Kota<br />x.Kodepos <o:p></o:p></span></div> <div style="line-height: 150%;"> <span lang="SV" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">menjadi <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="EN-US" style="font-size: 10pt; line-height: 150%;">with x do<br />Begin<br /> Nama<br /> Usia<br /> Kota<br /> Kodepos<br />end <o:p></o:p></span></div> <div style="line-height: 150%;"> <span lang="EN-US" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">Contoh.</span><span lang="EN-US" style="font-family: "times new roman"; font-size: 10pt; line-height: 150%;"> <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="EN-US" style="font-size: 10pt; line-height: 150%;">program RECORD_INTRO;<br />type tanggal = record<br /> bulan, hari, tahun : integer;<br />end;<br />var waktu : tanggal;<br />begin {program utama}<br /> with waktu do {mulai with}<br /> begin<br /> hari :=25;<br /> bulan:=09;<br /> tahun:=1983;<br /> writeln('hari ini adalah ',hari,':',bulan,':', tahun)<br />end {akhir with}<br />end. <o:p></o:p></span></div> <div style="line-height: 150%;"> <b><span lang="EN-US" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">3. Array dari Record</span></b><span lang="EN-US" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">Suatu array dapat juga berisi record contoh suatu deklarasi record tanggal. <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="EN-US" style="font-size: 10pt; line-height: 150%;">type tanggal = record<br />bulan, hari, tahun : integer;<br />end;<br />var waktu : tanggal; <o:p></o:p></span></div> <div style="line-height: 150%;"> <span lang="EN-US" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">kemudian kita membentuk suatu array dari record ini, namakan birthdays. <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="EN-US" style="font-size: 10pt; line-height: 150%;">var birthdays : array[1..10] of tanggal; <o:p></o:p></span></div> <div style="line-height: 150%;"> <span lang="EN-US" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">pernyataan ini akan membentuk suatu array dengan 10 elemen. Dimana tiap elemen adalah sebuah record tanggal, yaitu, terdiri atas bulan, hari, tahun dengan tipe data Integer.</span><span lang="SV" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">Digambarkan seperti berikut:</span><span lang="EN-US" style="font-family: "courier new"; font-size: 10pt; line-height: 150%;"><!--[if gte vml 1]><v:shapetype id="_x0000_t75" coordsize="21600,21600" spt="75" preferrelative="t" path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f"> <v:stroke joinstyle="miter"> <v:formulas> <v:f eqn="if lineDrawn pixelLineWidth 0"> <v:f eqn="sum @0 1 0"> <v:f eqn="sum 0 0 @1"> <v:f eqn="prod @2 1 2"> <v:f eqn="prod @3 21600 pixelWidth"> <v:f eqn="prod @3 21600 pixelHeight"> <v:f eqn="sum @0 0 1"> <v:f eqn="prod @6 1 2"> <v:f eqn="prod @7 21600 pixelWidth"> <v:f eqn="sum @8 21600 0"> <v:f eqn="prod @7 21600 pixelHeight"> <v:f eqn="sum @10 21600 0"> </v:formulas> <v:path extrusionok="f" gradientshapeok="t" connecttype="rect"> <o:lock ext="edit" aspectratio="t"> </v:shapetype><v:shape id="_x0000_i1025" type="#_x0000_t75" alt="" style="'width:260.25pt;"> <v:imagedata src="file:///C:\DOCUME~1\MASTER\LOCALS~1\Temp\msohtml1\07\clip_image001.jpg" href="http://ft.uns.ac.id/ts/kul_ol/pascal/gambar/bab9.jpg"> </v:shape><![endif]--><!--[if !vml]--><img height="240" shapes="_x0000_i1025" src="file:///C:/DOCUME%7E1/MASTER/LOCALS%7E1/Temp/msohtml1/07/clip_image001.jpg" width="347" /><!--[endif]--></span><span lang="SV" style="font-family: "courier new"; font-size: 10pt; line-height: 150%;"><br /></span><span lang="SV" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">Contoh Pemberian nilai awal dari masing-masing elemen birthdays: <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="EN-US" style="font-size: 10pt; line-height: 150%;">Birthdays[1].hari :=25;<br />Birthdays[1].bulan:=09;<br />Birthdays[1].tahun:=1983; <o:p></o:p></span></div> <div style="line-height: 150%;"> <b><span lang="EN-US" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">4. Record di dalam Record</span></b><span lang="EN-US" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">Record bisa berisi record lain sebagai field. Seperti contoh record tanggal dan jam dikombinasikan menjadi sebuah record saat ini, <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="EN-US" style="font-size: 10pt; line-height: 150%;">type tanggal = record<br />bulan, hari, tahun : integer;<br />end;<br />type waktu =record<br />jam, menit, detik : integer;<br />end;<br />type waktu_ini =record<br />tanggal_ini : tanggal;<br />waktu_ini : waktu<br />end; <o:p></o:p></span></div> <div style="line-height: 150%;"> <span lang="SV" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">Kemudian kita perlu membuat variabel kerja <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="SV" style="font-size: 10pt; line-height: 150%;">var saat_ini : waktu_ini; <o:p></o:p></span></div> <div style="line-height: 150%;"> <span lang="SV" style="font-family: "times new roman"; font-size: 12pt; line-height: 150%;">pemberian nilai akan terjadi seperti di bawah ini: <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="SV" style="font-size: 10pt; line-height: 150%;">saat_ini.tanggal.bulan:= 11;<br />saat_ini.tanggal.hari:= 2;<br />saat_ini.tanggal.tahun:= 1985;<br />saat_ini.waktu.jam:= 3;<br />saat_ini.waktu.menit:= 3;<br />saat_ini.waktu.detik:= 33; <o:p></o:p></span></div>

Record Dalam Pascal

RECORD (REKAMAN) Sebuah record rekaman disusun oleh beberapa field. Tiap field berisi data dari tipe dasar / bentukan tertentu. Record mempunyai kelebihan untuk menyimpan suatu sekumpulan elemen data yang berbeda-beda tipenya (di banding array). Con…

Read more »

Tipe Data dalam Pascal

<div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj175dtyPQO4w9MSElu6uKFi9_oDN21OSSvtboGMeZ4NUU5FKYMXPO05SFGV_dsMiRNc3Mln0jJSPzdo21N8UQquFsd0dpLHmtMbHWUj5tpgeCY5XxTks3Ac1AwOImcmvsTXw4KDlZbvUzd/s1600/tipe.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="317" data-original-width="591" height="171" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj175dtyPQO4w9MSElu6uKFi9_oDN21OSSvtboGMeZ4NUU5FKYMXPO05SFGV_dsMiRNc3Mln0jJSPzdo21N8UQquFsd0dpLHmtMbHWUj5tpgeCY5XxTks3Ac1AwOImcmvsTXw4KDlZbvUzd/s320/tipe.jpg" width="320" /></a></div> <h3 align="center" style="line-height: 150%; text-align: center;"> <span lang="EN-US" style="font-size: 14; line-height: 150%;">Tipe Data dalam Pascal<o:p></o:p></span></h3> <h3 style="line-height: 150%;"> <u><span lang="EN-US" style="font-size: 12; line-height: 150%;">Tipe Data <o:p></o:p></span></u></h3> <div style="line-height: 150%;"> <span lang="EN-US" style="font-size: 12; line-height: 150%;">Tipe data yang disediakan oleh PASCAL meliputi:<br /><b>1. </b></span><b><span lang="SV" style="font-size: 12; line-height: 150%;">Tipe Data Sederhana <o:p></o:p></span></b></div> <div style="line-height: 150%; text-align: justify;"> <span lang="SV" style="font-size: 12; line-height: 150%;">merupakan tipe data dasar yang sering dipakai oleh program, meliputi: integer (bilangan bulat), real (bilangan pecahan), char (alphanumerik dan tanda baca), dan boolean (logika). Untuk data integer dan real masing-masing terbagi menjadi beberapa kategori <o:p></o:p></span></div> <div style="line-height: 150%;"> <b><span lang="SV" style="font-size: 12; line-height: 150%;">a. Bilangan Integer</span></b><span lang="SV" style="font-size: 12; line-height: 150%;">merupakan tipe data berupa bilangan bulat, terbagi atas beberapa kategori seperti terlihat dalam tabel 1. tabel 1 menunjukkan jenis data, ukuran dalam memori dan rentang nilainya. <o:p></o:p></span></div> <div align="center" style="line-height: 150%; text-align: center;"> <span lang="SV" style="font-size: 12; line-height: 150%;">tabel 1. Tipe Data Bilangan Integer<o:p></o:p></span></div> <table border="1" cellpadding="0" cellspacing="0" class="MsoNormalTable" style="background: rgb(153 , 204 , 255) none repeat scroll 0% 50%; border-collapse: collapse; border: medium none; width: 100%px;"> <tbody> <tr> <td style="border: 1pt inset rgb(51, 153, 255); padding: 1.5pt; width: 33%;" width="33%"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;"> <b><span lang="EN-US">Tipe Data</span></b></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: inset inset inset none; border-width: 1pt 1pt 1pt medium; padding: 1.5pt; width: 33%;" width="33%"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;"> <b><span lang="EN-US">Ukuran Tempat</span></b></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: inset inset inset none; border-width: 1pt 1pt 1pt medium; padding: 1.5pt; width: 34%;" width="34%"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;"> <b><span lang="EN-US">Rentang Nilai </span></b></div> </td> </tr> <tr> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset; border-width: medium 1pt 1pt; padding: 1.5pt; width: 33%;" width="33%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US"> Byte</span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 33%;" width="33%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">1 byte</span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 34%;" width="34%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">0 s/d +255</span></div> </td> </tr> <tr> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset; border-width: medium 1pt 1pt; padding: 1.5pt; width: 33%;" width="33%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">Shortint </span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 33%;" width="33%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">1 byte</span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 34%;" width="34%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">-28 s/d +127</span></div> </td> </tr> <tr> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset; border-width: medium 1pt 1pt; padding: 1.5pt; width: 33%;" width="33%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US"> integer </span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 33%;" width="33%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">2 bytes </span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 34%;" width="34%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">-32768 s/d 32767</span></div> </td> </tr> <tr> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset; border-width: medium 1pt 1pt; padding: 1.5pt; width: 33%;" width="33%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">Word </span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 33%;" width="33%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">2 bytes</span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 34%;" width="34%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">0 s/d 65535 </span></div> </td> </tr> <tr> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset; border-width: medium 1pt 1pt; padding: 1.5pt; width: 33%;" width="33%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">Longint </span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 33%;" width="33%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">4 bytes</span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 34%;" width="34%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">2147483648 s/d 2147483647</span></div> </td> </tr> </tbody></table> <div style="line-height: 150%; text-align: justify;"> <span lang="EN-US" style="font-size: 12; line-height: 150%;">Contoh bilangan integer adalah: 34 6458 -90 0 1112 Penggolongan tipe data integer tersebut dimaksudkan untuk membatasi alokasi memori yang dibutuhkan misalkan untuk suatu perhitungan dari suatu variabel bilangan diperkirakan nilai maksimumnya 32767 kita cukup mendeklarasikan variabel bilangan sebagai integer (2 byte), daripada sebagai longint(4 byte). Di dalam kompilernya, Pascal menyediakan konstanta untuk bilangan Integer yaitu: MaxInt and MaxLongInt, pemrogram bisa menggunakannya di dalam programnya tanpa harus terlebih dahulu mendefinisikannya.<o:p></o:p></span></div> <div style="line-height: 150%;"> <span lang="EN-US" style="font-size: 12; line-height: 150%;">-MaxInt bernilai 32.767<br />-MaxLongint bernilai 2.147.483.647.<br />contoh: <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="EN-US" style="font-size: 10; line-height: 150%;">Program display_maxint;<br />uses wincrt;<br />begin <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="EN-US" style="font-size: 10; line-height: 150%;"> writeln (maxint)<br />end.</span><span lang="SV" style="font-size: 12; line-height: 150%;">Hasilnya: 32.767 <o:p></o:p></span></div> <div style="line-height: 150%;"> <b><span lang="SV" style="font-size: 12; line-height: 150%;">b. Bilangan Real</span></b><span lang="SV" style="font-size: 12; line-height: 150%;">Bilangan real atau nyata merupakan jenis bilangan pecahan, dapat dituliskan secara biasa atau model scientific . Contoh bilangan real: 34.265 -3.55 0.0 35.997E+11, dimana E merupakan simbol perpangkatan 10. Jadi 452.13 mempunyai nilai sama dengan 4.5213e2. Penggolongan tipe data bilangan real dapat dilihat pada tabel 2. Bilangan Real<o:p></o:p></span></div> <div align="center" style="line-height: 150%; text-align: center;"> <span lang="SV" style="font-size: 12; line-height: 150%;">Tabel 2. Tipe Data Bilangan Real<o:p></o:p></span></div> <table border="1" cellpadding="0" cellspacing="0" class="MsoNormalTable" style="background: rgb(153 , 204 , 255) none repeat scroll 0% 50%; border-collapse: collapse; border: medium none; width: 100%px;"> <tbody> <tr> <td style="border: 1pt inset rgb(51, 153, 255); padding: 1.5pt; width: 25.44%;" width="25%"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;"> <b><span lang="EN-US">Tipe Data</span></b></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: inset inset inset none; border-width: 1pt 1pt 1pt medium; padding: 1.5pt; width: 29.62%;" width="29%"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;"> <b><span lang="EN-US">Ukuran Tempat</span></b></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: inset inset inset none; border-width: 1pt 1pt 1pt medium; padding: 1.5pt; width: 44.96%;" width="44%"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;"> <b><span lang="EN-US">Rentang Nilai </span></b></div> </td> </tr> <tr> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset; border-width: medium 1pt 1pt; padding: 1.5pt; width: 25.44%;" width="25%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">real </span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 29.62%;" width="29%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">6 bytes </span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 44.96%;" width="44%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">2.9 x 10-39 s/d 1.7 x1038</span></div> </td> </tr> <tr> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset; border-width: medium 1pt 1pt; padding: 1.5pt; width: 25.44%;" width="25%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">single </span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 29.62%;" width="29%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">4 bytes</span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 44.96%;" width="44%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">1.5 x 1045 s/d 3.4 x 1038 </span></div> </td> </tr> <tr> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset; border-width: medium 1pt 1pt; padding: 1.5pt; width: 25.44%;" width="25%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">double </span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 29.62%;" width="29%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">8 bytes </span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 44.96%;" width="44%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">5.0 x 10-324 s/d 1.7 x 10308</span></div> </td> </tr> <tr> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset; border-width: medium 1pt 1pt; padding: 1.5pt; width: 25.44%;" width="25%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">extended </span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 29.62%;" width="29%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">10 bytes</span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 44.96%;" width="44%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">3.4 x 10-4932 s/d 1.1 x 104932</span></div> </td> </tr> <tr> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset; border-width: medium 1pt 1pt; padding: 1.5pt; width: 25.44%;" width="25%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">comp </span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 29.62%;" width="29%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">8 bytes</span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 44.96%;" width="44%"><div class="MsoNormal" style="line-height: 150%;"> <span lang="EN-US">-9.2x 1018 s/d 9.2x 1018</span></div> </td> </tr> </tbody></table> <div style="line-height: 150%;"> <b><span lang="EN-US" style="font-size: 12; line-height: 150%;">c. Char <o:p></o:p></span></b></div> <div style="line-height: 150%; text-align: justify;"> <span lang="EN-US" style="font-size: 12; line-height: 150%;">Tipe data ini menyimpan karakter yang diketikkan dari keyboard, memiliki 266 macam yang terdapat dalam tabel ASCII (American Standard Code for Information Interchange). </span><span lang="SV" style="font-size: 12; line-height: 150%;">Contoh: 'a' 'B' '+', dsb. Yang perlu diingat bahwa dalam menuliskannya harus dengan memakai tanda kutip tunggal. Jenis data ini memerlukan alokasi memori sebesar 1(satu) byte untuk masing-masing data. <o:p></o:p></span></div> <div style="line-height: 150%;"> <b><span lang="SV" style="font-size: 12; line-height: 150%;">d. Tipe Data Boolean<o:p></o:p></span></b></div> <div style="line-height: 150%; text-align: justify;"> <span lang="SV" style="font-size: 12; line-height: 150%;">merupakan tipe data logika, yang berisi dua kemungkinan nilai: TRUE (benar) atau FALSE (salah). </span><span lang="EN-US" style="font-size: 12; line-height: 150%;">Turbo Pascal for Windows memiliki tiga macam jenis ini yaitu: Boolean, WordBool, dan LongBool. Tipe boolean memakai memori paling kecil, sedangkan WordBool dan LongBool dipakai untuk menulis program yang sesuai dengan lingkungan Windows. <o:p></o:p></span></div> <div align="center" style="line-height: 150%; text-align: center;"> <span lang="EN-US" style="font-size: 12; line-height: 150%;">Tabel 3. Tipe Data Boolean<o:p></o:p></span></div> <table border="1" cellpadding="0" cellspacing="0" class="MsoNormalTable" style="background: rgb(153 , 204 , 255) none repeat scroll 0% 50%; border-collapse: collapse; border: medium none; margin-left: 135.95pt; width: 37%px;"> <tbody> <tr> <td style="border: 1pt inset rgb(51, 153, 255); padding: 1.5pt; width: 46.96%;" width="46%"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;"> <b><span lang="EN-US">Tipe Data</span></b></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: inset inset inset none; border-width: 1pt 1pt 1pt medium; padding: 1.5pt; width: 53.04%;" width="53%"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;"> <b><span lang="EN-US">Ukuran Tempat</span></b></div> </td> </tr> <tr> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset; border-width: medium 1pt 1pt; padding: 1.5pt; width: 46.96%;" width="46%"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;"> <span lang="EN-US">Boolean</span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 53.04%;" width="53%"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;"> <span lang="EN-US">1 byte</span></div> </td> </tr> <tr> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset; border-width: medium 1pt 1pt; padding: 1.5pt; width: 46.96%;" width="46%"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;"> <span lang="EN-US">WordBool</span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 53.04%;" width="53%"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;"> <span lang="EN-US">2 byte</span></div> </td> </tr> <tr> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset; border-width: medium 1pt 1pt; padding: 1.5pt; width: 46.96%;" width="46%"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;"> <span lang="EN-US">Longbool</span></div> </td> <td style="border-color: rgb(51 , 153 , 255) rgb(51 , 153 , 255); border-style: none inset inset none; border-width: medium 1pt 1pt medium; padding: 1.5pt; width: 53.04%;" width="53%"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;"> <span lang="EN-US">3 byte</span></div> </td> </tr> </tbody></table> <div style="line-height: 150%;"> <span lang="EN-US" style="font-size: 12; line-height: 150%;">Sebagai bilangan ordinal boolean true mempunyai nilai 1(satu), sedangkan false nilainya adalah 0(nol). <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="EN-US" style="font-size: 10; line-height: 150%;">Program hal_string;</span><span lang="EN-US" style="font-size: 10; line-height: 150%;">Contoh: Program display_bool</span><span lang="EN-US" style="font-size: 12; line-height: 150%;"> </span><span lang="EN-US" style="font-size: 10; line-height: 150%;">;<br />uses wincrt;<o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="EN-US" style="font-size: 10; line-height: 150%;">begin writeln(ord(true));<br /> writeln(ord(false));<span style="-moz-background-clip: -moz-initial; -moz-background-inline-policy: -moz-initial; -moz-background-origin: -moz-initial; background: rgb(255, 204, 153) none repeat scroll 0% 50%;"><br /></span>end.</span><span lang="EN-US" style="font-size: 12; line-height: 150%;"><o:p></o:p></span></div> <div style="line-height: 150%;"> <span lang="EN-US" style="font-size: 12; line-height: 150%;">Hasilnya: 1 0 3.2. <o:p></o:p></span></div> <div class="MsoNormal" style="line-height: 150%;"> <b><span lang="EN-US">Tipe Data Terstruktur <o:p></o:p></span></b></div> <div class="MsoNormal" style="line-height: 150%; text-align: justify;"> <span lang="EN-US">tipe ini terdiri atas : array, record, set, dan file. String adalah tipe data jenis array, tetapi karena string memiliki kekhasan tersendiri sebagai array dari karakter maka penulis perlu memberikan penjelasan tersendiri. </span><span lang="SV">Sedangkan untuk array, record, dan file perlu dijelaskan dalam bab yang lain karena agak banyak hal-hal yang perlu dibahas. <o:p></o:p></span></div> <div style="line-height: 150%; margin-left: 36pt; text-indent: -18pt;"> <!--[if !supportLists]--><span lang="EN-US" style="font-size: 12; line-height: 150%;">a.<span style="font-family: "; font-size: 7;"> </span></span><!--[endif]--><b><span lang="SV" style="font-size: 12; line-height: 150%;">Tipe Data String</span></b><span lang="SV" style="font-size: 12; line-height: 150%;">merupakan suatu data yang menyimpan array (larik), sebagai contoh 'ABCDEF' merupakan sebuah konstanta string yang berisikan 6 byte karakter. Ukuran Tempat untuk tipe data ini adalah 2 s/d 256 byte, dengan jumlah elemen 1 s/d 255. String dideklarasikan dengan string [ konstanta ] atau string. Bila ukuran string tidak didefinisikan maka akan banyak memakan ruang, karena ukuran string menyesuaikan dengan defaultnya. Misalkan<br />var kata: string [20]; atau var kata: string; karena string merupakan array dari karakter. Maka kata[1] merupakan karakter pertama dari string, kemudian kata[2], merupakan elemen kedua, dst.</span><span lang="EN-US" style="font-size: 12; line-height: 150%;">Contoh: <o:p></o:p></span></div> <div class="code" style="line-height: 150%;"> <span lang="EN-US" style="font-size: 10; line-height: 150%;">Program hal_string;<br />Uses wincrt;<br />var s : string;<br />begin s:='Hello';<br /> writeln(s);<br /> writeln('panjang dari string adalah: ',ord(s[0]));<br />end.</span><span lang="EN-US" style="font-size: 12; line-height: 150%;"> <o:p></o:p></span></div> <span lang="SV" style="font-family: "; font-size: 12;">Karakter nol merupakan karakter yang menyatakan panjang string. Sehingga ord(s[0]) menyatakan panjang dari string tersebut. Panjang string juga bisa dinyatakan sebagai length(s).<br /><!--[if !supportLineBreakNewLine]--><br /><!--[endif]--></span>

Tipe Data dalam Pascal

Tipe Data dalam Pascal Tipe Data Tipe data yang disediakan oleh PASCAL meliputi:1. Tipe Data Sederhana merupakan tipe data dasar yang sering dipakai oleh program, meliputi: integer (bilangan bulat), real (bilangan pecahan), char (alphanumerik dan …

Read more »

Operation Research -Pendahuluan

<div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhaeT2ejxfmm8HEzoRed7Gy9hO7-uPFVZSmtIRWXPakHcuwC2Apn_aLxwnZT5izJcbJLIPAquvn0uyBdedCQ0dD07JJTrG0XKog9_OkWur_9vxRAwMmmNu8tpW5WdILsLZj5w_OrzKvwOT0/s1600/or.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="1173" data-original-width="1300" height="288" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhaeT2ejxfmm8HEzoRed7Gy9hO7-uPFVZSmtIRWXPakHcuwC2Apn_aLxwnZT5izJcbJLIPAquvn0uyBdedCQ0dD07JJTrG0XKog9_OkWur_9vxRAwMmmNu8tpW5WdILsLZj5w_OrzKvwOT0/s320/or.jpg" width="320" /></a></div> <span style="font-weight: bold;">OPERATION RESEARCH (OR)<br />Perkembangan Operation research </span><br /> Digunakan tahun 1940 oleh Mc Closky dan Trefthen disuatu kota di Inggris<br /> digunakan oleh pemimpin militer Inggris untuk mencari cara-cara yang efisien untuk menggunakan alat yang baru ditemukan untuk menghadapi serangan udara<br /> Setelah perang, keberhasilan kelompok peneliti operasi-operasi dibidang militer menarik perhatian para industriawan yang mencari penyelesaian masalah-masalah yang rumit<br /> Akhirnya, pada tahun lima puluhan, di Inggris dan di Amerika,tehinik-tehnik program linier dan dinamik ditemukan dan diperluas<br /> Pada saat ini OR mulai mendapat pengakuan sebagai pelajaran yang bermanfaat di Perguruan Tinggi dan materi menjadi makin banyak dan penting bagi mahasiswa<br /> <br /> <span style="font-weight: bold;">Arti Operation Research</span><br /> Adalah memutuskan secara ilmiah bagaimana merancang dan menjalankan sistem manusia-mesin dengan yang terbaik, yang biasanya membutuhkan alokasi sumber daya yang langka<br /> <br /> <span style="font-weight: bold;">Model dalam OR</span><br /> Model adalah abstraksi atau penyederhanaan realistis sistem yang komplek dimana hanya komponen-komponen yang relevan atau factor-faktor yang dominan dari masalah yang dianalisa diikutsertakan<br /> <br /> Model dapat diklasifikasikan menurut jenisnya<br /> Iconic Model<br /> Analogue Model<br /> Mathematical Model<br /> <br /> <span style="font-weight: bold;">Tahap-tahap Dalam OR</span><br /> Merumuskan Masalah<br /> Pertama kali suatu difinisi persoalan yang tepat harus dirumuskan. Dalam perumusan masalah ini ada tiga pertanyaan penting yang harus dijawab<br /> Variabel Keputusan<br /> Tujuan (objective)<br /> Kendala (constraint)<br /> 2. Pembentukan model<br /> sesuai dengan difinisi persoalan, pengambil keputusan menentukan model yang paling cocok untuk mewakili sistem, karena jika model yang dihasilkan cocok dengan salah satu model matematik yang biasa maka solusinya dengan mudah diperoleh<br /> 3. Mencari penyelesaian masalah<br /> Pada tahap ini bermacam-macam tehnik dan metode solusi kuantitatif memasuki proses<br /> 4. Validasi Model<br /> 5. Penerapan hasil akhir<br /> <br /> <span style="font-weight: bold;">Ciri-ciri OR</span><br /> 1. OR merupakan pendekatan kelompok antar disiplin untuk mencari hasil yang optimum<br /> 2. OR menggunakan tehnik penelitian ilmiah untuk mendapatkan solusi optimum<br /> 3. OR hanya hanya memperbaiki kualitas solusi<br /> <br /> <span style="font-weight: bold;">Kelemahan OR</span><br /> 1. Perumusan masalah dalm suatu program OR adalah suatu tugas yang sulit<br /> 2. Jika organisasi mempunyai beberapa tujuan yang bertentangan maka organisasi tidak dapat mencapai yang terbaik secara serempak<br /> 3. Suatu hub yang non linier yang diubah menjadi linier dengan program linier dapat menggganggu solusi yang disaranka<br /> <br /> <span style="font-weight: bold;">LINIER PROGRAMMING</span><br /> Linier Programming merupakan suatu model yang dipergunakan untuk pemecahan masalah pengalokasian sumber-sumber yang terbatas secara optimal<br /> LP mencakup perencanaan kegiatan-kegiatan untuk mencapai suatu hasil yang optimal yaitu suatu hasil yang mencerminkan tercapainya sasaran tertentu paling baik diantara alaternatif-alternatif yang mungkin dengan mempergunakan funsi linier<br /> Di dalam model LP dikenal 2 macam fungsi yaitu<br /> 1. Fungsi tujuan (objectiv function) adalah fungsi yang menggambarkan tujuan permasalahan LP yang terkait dengan pengaturan secara optimal sumber daya-sumberdaya, untuk memperoleh keuntungan mak atau biaya yang minimal dinyatakan dengan Z<br /> 2. Fungsi batasan (constraint function) merupakan bentuk penyajian secara matematis batasan-batasan kapasitas yang tersedia yang dialokasikan secara optimal keberbagai kegiatan<br /> <br /> <span style="font-weight: bold;">Asumsi LP</span><br /> 1. Proportionality : naik turunnya nilai Z dan penggunaan sumber atau fasilitas yang tersedia akan berubah secara proporsional<br /> 2. Additivity : nilai tujuan tiap kegiatan tidak saling mempengaruhi atau setiap kenaikkan nilai Z yang diakibatkan oleh kenaikkan suatu kegiatan dapat ditambahkan tanpa mempengaruhi bagian nilai Z yang diperoleh dari kegiatan lain<br /> 3. Divisibility : Output yang dihasilakn oleh setiap kegiatan dapat berupa bilangan pecahan<br /> 4. Deterministic : semua parameter yang ada pada model LP dapat diperkirakan dengan pasti.<br /> <br /> <span style="font-weight: bold;">Contoh soal 1</span><br /> Perusahaan sepatu “Ideal” membuat dua macam sepatu. Macam pertama merek X1, dengan sol dari karet, dan macam kedua merek X2, dengan sol dari kulit. Untuk membuat sepatu-sepatu itu perusahaan memiliki 3 macam mesin. Mesin 1 khusus membuat sol dari karet, mesin 2 khusus membuat sol dari kulit, dan mesin 3 membuat bagian atas sepatu dan melakukan assembeling bagian atas dengan sol.<br /> Setiap lusin sepatu merek X1 mula-mula dikerjakan di mesin 1 selama 2 jam, kemudian tanpa melalui mesin 2 terus dikerjakan di mesin 3 selam 6 jam.<br /> Sedangkan untuk sepatu merek X2 tidak diproses di mesin 1, tetapi pertama kali dikerjakan di mesin 2 selama 3 jam kemudian di mesin 3 selam 5 jam<br /> Jam kerja maksimum setiap hari untuk mesin 1 = 8 jam, mesin 2 = 15 jam, dan mesin 3 = 30 jam. Sumbagan terhadap laba untuk setiap lusin sepatu merek X1 = Rp. 30.000,00 sedangkan merek X2 = Rp. 50.000,00.<br /> Masalahnya adalah menentukan berapa lusin sebaiknya sepatu merek X1 dan merek X2 dibuat agar bisa memaksimumkan laba.<br /> <br /> <span style="font-weight: bold;">Langkah-Langkah metode Grafik</span><br /> 1. Menentukan fungsi tujuan dan memformulasikannya dalam bentuk matematis<br /> 2. Mendifinisikan batasan-batasan yang berlaku dan memformulasikannya dalam bentuk matematis<br /> 3. Menggambarkan masing-masing fungsi batasan dalam satu sistem salib sumbu<br /> 3. Mencari titik yang paling menguntungkan dihubungkan dengan fungsi tujuan

Operation Research -Pendahuluan

OPERATION RESEARCH (OR)Perkembangan Operation research Digunakan tahun 1940 oleh Mc Closky dan Trefthen disuatu kota di Inggris digunakan oleh pemimpin militer Inggris untuk mencari cara-cara yang efisien untuk menggunakan alat yang baru ditemukan …

Read more »