Materi Kuliah

Bubble Sort & inserting sort dg C++

Bubble Sort & inserting sort dg C++

beberapa fungsi-fungsi sorting void bubblesort(float a[],int n) { for(int p=0;p { for(int i=0;i { if(a[i]>a[i+1]) { float ...

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 antara lain adalah: 1. Bubble Sort (sederhana tetapi lambat) 2. Quick Sort (cepat tetapi rumit) 3. Shell Sort (agak cepat dan tidak terlalu rumit) 1. Bubble Sort 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. SYNTAX for i:=1 to Jumlah_data-1 do for j:=i+1 to Jumlah_data do if Data[i]>Data[j] then begin t:=Data[i]; Data[i]:=Data[j]; Data[j]:=t; end; Contoh. Misal kita punya data : 5 3 8 4 1 7 6 2 , dalam program program mengurutkandata; uses WinCrt; type urutkan=array [1..8] of integer; var i,j,t:integer; anu:urutkan; begin anu[1]:=5; anu[2]:= 3; anu[3]:= 8; anu[4]:= 4; anu[5]:= 1; anu[6]:= 7 ; anu[7]:=6 ; anu[8]:=2 ; for i:=1 to 7 to begin for j:=i+1 to 8 to begin if anu[i]>anu[j] then begin t:=anu[i]; anu[i]:=anu[j]; anu[j]:=t; end; end; end; for i:=1 to 8 do write (anu[i], ‘ ‘) end. 2. Shell sort Prinsipnya hampir sama dengan bubble sort tetapi dioptmisisasi sehingga lebih cepat. Ditemukan oleh Donald Shell. prinsipnya adalah membandingkan data dengan jarak tertentu dalam array. SYNTAX for jarak:= (Jumlah_data div 2) down to 1 do for i:=1 to Jumlah_data-jarak do if Data[i]>Data[i+jarak] then begin t:=Data[i]; Data[i]:=Data[i+jarak]; Data[i+jarak]:=t; end; Misalkan kita punya 8 data. Langkah pertama adalah membandingkan data pertama dengan ke lima, dsb. Jarak antara data adalah (8 div 2 :=4). Langkah iterasi: pertama, jarak adalah 4. 5 3 8 4 1 7 6 2 ke-1 perbandingan : ^ ^ (salah urutan, tukar) 1 3 8 4 5 7 6 2 ke-2 perbandingan : ^ ^ ( urutan benar, no tukar) ke-3 perbandingan : ^ ^ (salah urutan, tukar) 1 3 6 4 5 7 8 2 ke-4 perbandingan : ^ ^ (salah urutan, tukar) 1 3 6 2 5 7 8 4 —-> Jarak 3. ke-5 perbandingan : ^ ^ ( urutan benar, no tukar) ke-6 perbandingan : ^ ^ ( urutan benar, no tukar) ke-7 perbandingan : ^ ^ ( urutan benar, no tukar) ke-8 perbandingan : ^ ^ ( urutan benar, no tukar) ke-9 perbandingan : ^ ^ (salah urutan, tukar) 1 3 6 2 4 7 8 5 —-> Jarak 2. ke-10 perbandingan :^ ^ ( urutan benar, no tukar) ke-11 perbandingan : ^ ^ (salah urutan, tukar) 1 2 6 3 4 7 8 5 ke-12 perbandingan : ^ ^ (salah urutan, tukar) 1 2 4 3 6 7 8 5 ke-13 perbandingan : ^ ^ ( urutan benar, no tukar) ke-14 perbandingan : ^ ^ ( urutan benar, no tukar) ke-15 perbandingan : ^ ^ (salah urutan, tukar) 1 2 4 3 6 5 8 7 —-> Jarak 1. ke-16 perbandingan :^ ^ ( urutan benar, no tukar) ke-17 perbandingan : ^ ^ ( urutan benar, no tukar) ke-18 perbandingan : ^ ^ (salah urutan, tukar) 1 2 3 4 6 5 8 7 ke-19 perbandingan : ^ ^ ( urutan benar, no tukar) ke-20 perbandingan : ^ ^ (salah urutan, tukar) 1 2 3 4 5 6 8 7 ke-21 perbandingan : ^ ^ ( urutan benar, no tukar) ke-22 perbandingan : ^ ^ (salah urutan, tukar) 1 2 3 4 5 6 7 8 3. quick sort 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. procedure qsort(bawah, atas : integer) var kiri, kanan, pivot : integer; begin pivot:=Data[(bawah+atas) div 2]; kiri:=bawah; kanan:=atas; while kiri<=kanan do begin while Data[kiri] < pivot do kiri:=kiri+1; { memisahkan ke kiri } while Data[kanan]>pivot do kanan:=kanan-1;{Memisahkan ke kanan} if kiri<=kanan then { chek perubahan } begin swap Data[kiri] with Data[kanan]; kiri:=kiri+1; kanan:=kanan-1; end; end; if kanan>bawah then qsort(bawah,kanan);{ urutkan bagian KIRI } if atas>kiri then qsort(kiri ,atas);{ urutkan bagian KANAN} end; Pemangilan dalam program utama : qsort(1,NumberOfData);alamat aslinya coding nih (http://k4n9m4s.wordpress.com/2007/09/25/pemrograman-pascal-07/)sorry ya brow gue copy paste

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 . te...

Pengertian Type

TYPE Type adalah pola representasi suatu data dalam komputer. Gunanya untuk mendefinisikan objek yang akan dipogram. Ada type dasar dan type...

Konsep Inti Pemasaran (MP)

Konsep Inti Pemasaran<o:p></o:p> Pemasaran lama VS Pemasaran Baru<o:p></o:p> 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 dan nilai dengan pihak lainnya.<o:p></o:p> <o:p> </o:p>Pasarà kebutuhan , keinginan dan permintaan àproduk dan jasa à Nilai, kepuasan dan kualitas à pertukaran transaksi dan hubungan<o:p></o:p> <o:p> </o:p>Kebutuhan (Needs) Suatu pernyataan dari perasaan kekurangan : kebutuhan fisik dasar dan kebutuhan individu<o:p></o:p> <o:p> </o:p> Keinginan (Wants)<o:p></o:p> Kebutuhan manusia yang dibentuk oleh budaya dan kepribadian seseorang.<o:p></o:p> Keinginan tak terbatas à memberi nilai kepuasan terbesar<o:p></o:p> Sumber daya terbatas à memberi nilai kepuasan terbesar<o:p></o:p> <o:p> </o:p> Permintaan (Demands)<o:p></o:p> Keinginan manusia yang didukung oleh daya beli <o:p></o:p> <o:p> </o:p> Produk<o:p></o:p> 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> <o:p> </o:p> Jasa<o:p></o:p> 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> <o:p> </o:p> Nilai Pelanggan<o:p></o:p> Selisih anatara nilai yang diperoleh pelanggan dengan memiliki dan menggunakan suatu produk dengan biaya yang dikeluarkan untuk memperolehnya.<o:p></o:p> <o:p> </o:p> Kepuasan pelanggan<o:p></o:p> Suatu tindakan dimana perkiraan kinerja produk sesuai dengan harapan pembeli<o:p></o:p> <o:p> </o:p> Pertukaran (Exchange)<o:p></o:p> Tindakan untuk memperoleh objek yang diharapkan dari seseorang dengan menawarkan sesuatu sebagai pengganti<o:p></o:p> <o:p> </o:p> Transaksi <o:p></o:p> 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> <o:p> </o:p> Hubungan Pemasaran<o:p></o:p> Proses menciptakan, memelihara dan menigkatkan hubungan timbal balik dengan pelanggan dan pihak lain yang berkepentingan.<o:p></o:p>

Konsep Inti Pemasaran (MP)

Konsep Inti Pemasaran Pemasaran lama VS Pemasaran Baru Pemasaran yaitu sebuah proses sosial dan mangerial yang mana dengan proses i...

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 menentukan enis data yang relevan untuk diproses menjadi informasi.<o:p></o: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"> No<o:p></o: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"> Aktifitas Bisnis<o:p></o: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"> Jenis Keputusan <o:p></o: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"> Informasi <o:p></o: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"> 1<o:p></o: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"> Kebutuhan Modal<o:p></o: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"> -Berapa banyak modal sendiri atau utang jangka pendek<o:p></o:p> -Bagaimana syarat pinjaman dll<o:p></o: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"> 1.Rugi laba<o:p></o:p> 2.Neraca<o:p></o:p> 3.Cash Flow / Arus Kas, Amortisasi pinjaman , Amortisasi Utang<o:p></o: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"> 2<o:p></o: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"> Memperoleh gedung dan peralatan<o:p></o: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"> Ukuran gedung, nilai peralatan sewa atau beli, lokasi, nilai, dan sistem penyusutan nilai sisa/nilai residu atau scrapt value<o:p></o: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"> Kapasitas yang diperlukan , harga, riset pasar, tarif, peraturan , pajak , dll<o:p></o: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 ya...

Alasan mempelajari SIA

SIA (Sistem Informasi Akuntansi) Alasan mempelajari SIA 1. Semua informasi dibidang akntansi dipakai untuk mengambil keputusan<o:p></o:p> 2. 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> a. Mengaksese dan menganilisi suatu perusahaan melalui laporan keuangan<o:p></o:p> b. Memebantu merancang dan menyusun SIA secara efektif dan efisien<o:p></o:p> c. Menagakses database unutk keperluan standar audit /pemeriksaan<o:p></o:p> d. Melakukan komunikasi dengan menggunakan teknologi informasi terkini<o:p></o:p> 3. SIA Merupakan komponene kunci dalam setiap proses mengembangkan usaha melalui pembuatan laporan dengan melakukan penilaian kinerja usaha corporate revaluation<o:p></o:p> 4. 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> 5. Dengan adanya revolusi teknologi informasi menyebabkan SIA sangat berperanan didalam melakukan efisiensi dan efektifitas pengelolaan usaha.<o:p></o:p> <o:p> </o:p>

Alasan mempelajari SIA

SIA (Sistem Informasi Akuntansi) Alasan mempelajari SIA 1. Semua informasi dibidang akntansi dipakai untuk mengambil keputusan 2. ...

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>
RECORD (REKAMAN)<o:p></o:p></div>
<div style="line-height: 150%;">
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). Contoh , sebuah record dengan empat buah field. <o:p></o:p></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%;">
 <o:p></o:p></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%;">
 <o:p></o:p></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%;">
 <o:p></o:p></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%;">
 <o:p></o:p></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;">
Field 1<o:p></o:p></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;">
Field 2 </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;">
Field 3 </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;">
Field 4 </div>
</td> </tr>
</tbody></table>
<div style="line-height: 150%;">
Cara pendeklarasian dari record adalah sbb: • Mendefinisikan tipe dari record (jumlah field, jenis tipe data yang dipakai), • Mendefinisikan variabel untuk dilakukan operasi. <o:p></o:p></div>
<div style="line-height: 150%;">
SYNTAX <o:p></o:p></div>
<div class="code" style="line-height: 150%;">
type <o:p></o:p></div>
<div class="code" style="line-height: 150%;">
nama_record = record identifier_1 : tipe_data_1; : : identifier_n : tipe_data_n; end; var variabel : nama_record; <o:p></o:p></div>
<div style="line-height: 150%;">
<o:p> </o:p></div>
<div style="line-height: 150%;">
<o:p> </o:p></div>
<div style="line-height: 150%;">
<o:p> </o:p></div>
<div style="line-height: 150%;">
Contoh. <o:p></o:p></div>
<div class="code" style="line-height: 150%;">
type <o:p></o:p></div>
<div class="code" style="line-height: 150%;">
Data_mahasiswa = record Nama : string; Usia : integer; Kota : String; Kodepos : integer; end; Var x: Data_mahasiswa; <o:p></o:p></div>
<div style="line-height: 150%;">
1. Pengaksesan Elemen RecordNama variable disertai nama field. <o:p></o:p></div>
<div class="code" style="line-height: 150%;">
x.Nama x.Usia x.Kota x.Kodepos <o:p></o:p></div>
<div style="line-height: 150%;">
Contoh. <o:p></o:p></div>
<div class="code" style="line-height: 150%;">
program RECORD_INTRO; type tanggal = record bulan, hari, tahun : integer; end; var waktu : tanggal; begin waktu.hari :=25; waktu.bulan:=09; waktu.tahun:= 1983; writeln('hari ini adalah ',waktu.hari,':',waktu.bulan,':', waktu.tahun) end. <o:p></o:p></div>
<div style="line-height: 150%;">
2. Pengunaan With … doPernyataan with untuk lebih menyederhanakan pengaksesan field-field pada record. Pemrograman dapat mengakses field cukup dengan menyebutkan nama field-nya saja. Misalkan pernyataan : <o:p></o:p></div>
<div class="code" style="line-height: 150%;">
x.Nama x.Usia x.Kota x.Kodepos <o:p></o:p></div>
<div style="line-height: 150%;">
menjadi <o:p></o:p></div>
<div class="code" style="line-height: 150%;">
with x do Begin Nama Usia Kota Kodepos end <o:p></o:p></div>
<div style="line-height: 150%;">
Contoh. <o:p></o:p></div>
<div class="code" style="line-height: 150%;">
program RECORD_INTRO; type tanggal = record bulan, hari, tahun : integer; end; var waktu : tanggal; begin {program utama} with waktu do {mulai with} begin hari :=25; bulan:=09; tahun:=1983; writeln('hari ini adalah ',hari,':',bulan,':', tahun) end {akhir with} end. <o:p></o:p></div>
<div style="line-height: 150%;">
3. Array dari RecordSuatu array dapat juga berisi record contoh suatu deklarasi record tanggal. <o:p></o:p></div>
<div class="code" style="line-height: 150%;">
type tanggal = record bulan, hari, tahun : integer; end; var waktu : tanggal; <o:p></o:p></div>
<div style="line-height: 150%;">
kemudian kita membentuk suatu array dari record ini, namakan birthdays. <o:p></o:p></div>
<div class="code" style="line-height: 150%;">
var birthdays : array[1..10] of tanggal; <o:p></o:p></div>
<div style="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.Digambarkan seperti berikut:<img height="240" shapes="_x0000_i1025" src="file:///C:/DOCUME%7E1/MASTER/LOCALS%7E1/Temp/msohtml1/07/clip_image001.jpg" width="347" /> Contoh Pemberian nilai awal dari masing-masing elemen birthdays: <o:p></o:p></div>
<div class="code" style="line-height: 150%;">
Birthdays[1].hari :=25; Birthdays[1].bulan:=09; Birthdays[1].tahun:=1983; <o:p></o:p></div>
<div style="line-height: 150%;">
4. Record di dalam RecordRecord bisa berisi record lain sebagai field. Seperti contoh record tanggal dan jam dikombinasikan menjadi sebuah record saat ini, <o:p></o:p></div>
<div class="code" style="line-height: 150%;">
type tanggal = record bulan, hari, tahun : integer; end; type waktu =record jam, menit, detik : integer; end; type waktu_ini =record tanggal_ini : tanggal; waktu_ini : waktu end; <o:p></o:p></div>
<div style="line-height: 150%;">
Kemudian kita perlu membuat variabel kerja <o:p></o:p></div>
<div class="code" style="line-height: 150%;">
var saat_ini : waktu_ini; <o:p></o:p></div>
<div style="line-height: 150%;">
pemberian nilai akan terjadi seperti di bawah ini: <o:p></o:p></div>
<div class="code" style="line-height: 150%;">
saat_ini.tanggal.bulan:= 11; saat_ini.tanggal.hari:= 2; saat_ini.tanggal.tahun:= 1985; saat_ini.waktu.jam:= 3; saat_ini.waktu.menit:= 3; saat_ini.waktu.detik:= 33; <o:p></o:p></div>

Record Dalam Pascal

RECORD (REKAMAN) Sebuah record rekaman disusun oleh beberapa field. Tiap field berisi data dari tipe dasar / bentukan tertentu. Recor...