200 likes | 346 Views
STRUKTUR DATA. PERTEMUAN 3. vandawaa@yahoo.com. RECORD. ARRAY (LARIK). Sebuah record rekaman disusun oleh beberapa field. Tiap field berisi data dari tipe dasar / bentukan tertentu.
E N D
STRUKTUR DATA PERTEMUAN 3 vandawaa@yahoo.com
RECORD ARRAY (LARIK) • 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 DataMhs dengan empat buah field (Nama, Tgl_lhr, JK, Jurusan)
RECORD ARRAY (LARIK) Cara Pendefinisian : • Cara pendeklarasian dari record adalah sbb: • Mendefinisikan tipe dari record (jumlah field, jenis tipe data yang dipakai), • Mendefinisikan variabel untuk dilakukan operasi.
RECORD ARRAY (LARIK) Sintax type nama_record = record identifier_1 : tipe_data_1; : : identifier_n : tipe_data_n; end; var variabel : nama_record;
RECORD ARRAY (LARIK) type Data_mahasiswa = record Nama : string[35]; Usia : integer; Kota : String[20]; Kodepos : integer; end; Var x: Data_mahasiswa; Pengaksesan Elemen Record x.Nama := ‘Odah’; x.Usia := 80; x.Kota := ‘Jember’; x.Kodepos := 1010;
RECORD ARRAY (LARIK)
RECORD ARRAY (LARIK) • Pengunaan With … do • Pernyataan with untuklebihmenyederhanakanpengaksesan field-field pada record. • Pemrograman dapat mengakses field cukup dengan menyebutkan nama field-nya saja.
RECORD ARRAY (LARIK) x.Nama := ‘Ableh’; x.Usia := 99; x.Kota := ‘Malang’; x.Kodepos := 8067; With x do Begin Nama := ‘Ableh’; Usia := 99; Kota := ‘Malang’; Kodepos := 8067; End;
RECORD ARRAY (LARIK)
Array dari Record ARRAY (LARIK)
Array dari Record ARRAY (LARIK) typetanggal = record hari, bulan, tahun : integer; end; var Date : array[1..3] oftanggal; hari hari hari bulan bulan bulan tahun tahun tahun
Array dari Record ARRAY (LARIK) Pemberian nilai elemen birthday Date[1].hari :=25; Date[1].bulan:=9; Date[1].tahun:=1983; Date[2].hari :=17; Date[2].bulan:=8; Date[2].tahun:=1945; hari hari hari Date[3].hari :=10; Date[3].bulan:=3; Date[3].tahun:=1938; bulan bulan bulan tahun tahun tahun
Array dari Record ARRAY (LARIK) With .... do Fori:=1 to10do Begin WithDate[i]do Begin Hari:=25; bulan:=9; tahun:=1983; End; End; Date[1].hari :=25; Date[1].bulan:=9; Date[1].tahun:=1983; Date[2].hari :=17; Date[2].bulan:=8; Date[2].tahun:=1945; Date[3].hari :=10; Date[3].bulan:=3; Date[3].tahun:=1938;
Record dalam Record ARRAY (LARIK) Record di dalam Record typetanggal = record bulan, hari, tahun : integer; end; typewaktu =record jam, menit, detik : integer; end; typesaat_ini =record Date : tanggal; Time : waktu end; var Now : saat_ini;
Tugas 2 1. Buatlah program dalam bahasa pemrograman Pascal untuk nilai Mahasiswa. • Nama • Nilai UTS • Nilai UAS • Nilai TUGAS Hitunglah nilai total setiap Mahasiswa seluruhnya dgn ketentuan : Nilai Total = (20% Tugas) + (30%UTS) + (50% UAS) **Input banyak Mahasiswa diisi saat program running **Gunakan tipe data yang tepat **Gunakan metode Array dari Record.
THE END OF THIS DAY • KANGGOANG NAAAHHH,,,,!!!!