PEMROGRAMAN PASCAL BAB VII TIPE DATA TERSTRUKTUR OLEH

PEMROGRAMAN PASCAL BAB. VII TIPE DATA TERSTRUKTUR OLEH : MESRAN, S. KOM 1

BAB. VII TYPE DATA TERSTRUKTUR PASCAL Memiliki beberapa jenis Type data yang terstruktur, diantaranya : q ARRAY q RECORD q SET q FILE v TYPE DATA ARRAY Dikenal juga type data LARIK yaitu suatu deretan data yang memiliki type data yang sejenis. Tiap larik bisa dioperasikan menggunakan pemilih elemen larik yang disebut INDEX atau Subskrib. Dan Index ini diletakkan dalam tanda ‘[ ]’, sesudah nama larik Ex: NAMA[ I ] : = “Susilawati” or NAMA[4]: =“Susilawati” 2

BAB. VII TYPE DATA TERSTRUKTUR Pendeklarasian ARRAY Didalam mendefinisikan type larik, kita juga harus : - Menentukan type dari larik & - Manyaknya index. Pendeklarasian larik di letakkan pada bagian VAR (pendefinisian variabel) Syntax : VAR nm. Var. Array : ARRAY [awalindex. . akhirindex] OF type. Data ; Keterangan : nm. Var. Array awalindex, akhirindex type. Data : Nama larik yang dideklarasikan : Batasan/Jumlah Index (cacah elemen) : Tipe data dari Larik dapat bertipe data sederhana byte, word, integer, real, boolean, char atau string dan tipe data skalar atau subrange 3

BAB. VII TYPE DATA TERSTRUKTUR Contoh VAR BEGIN Nama I : ARRAY [1. . 10] of String[20] ; : Byte ; Clrscr { Bagian Input Data } FOR I : = 1 TO 10 DO BEGIN Writeln(‘Inputkan Nama Ke ’, I , ‘: ’) ; Readln( Nama[I] ) ; END; { Bagian Menampilkan Data yang telah diinputkan } FOR I : = 1 TO 10 DO Writeln(‘Nama Ke ’, I , ‘: ’, Nama[I] ) ; END. Readln; 4

BAB. VII TYPE DATA TERSTRUKTUR v TYPE DATA RECORD (Rekaman) Seperti halnya array(larik), record juga punya elemen, disebut "Field". Tiap elemen bisa punya type data yang berbeda. Banyaknya field dapat bervariasi atau bisa juga tetap Deklarasi type data Record dapat ditetapkan di bagian deklarasi Type & Var. Syntax : TYPE nm. Pengenal = RECORD Field 1 : type 1; Field 2 : type 2; : fieldn : type. N; END; VAR nm. Rec : nm. Pengenal ; 5

BAB. VII TYPE DATA TERSTRUKTUR Keterangan : nm. Pengenal : Nama Dari Record ; Field 1, Field 2, Fieldn: Nama dari Variabel/Field yang terdapat dalam Record Type 1, Type 2, Type. N : Type Dari tiap-tiap Field yang dideklarasikan nm. Rec : Nama Dari Record yang di deklarasikan Contoh : TYPE Mahasiswa = RECORD NIM : String[8] Nama : String[20] Alamat : String[30] Sex : Char Umur : Byte END; VAR Rec. Mhs : Mahasiswa ; ; ; ; 6

BAB. VII TYPE DATA TERSTRUKTUR Membaca & Menulis ke FIELD Dapat digunakan pada seluruh record atau sebagian record. Syntax : nm. Rec. Field 1 ; Tanda titik harus ditulis Notasi ini disebut Penandaan field (‘field designator’). Berbeda dengan statement pemberian (assigment), maka untuk membaca dan menulis record selalu dilakukan menurut Field yang ada, tidak dilakukan secara keseluruhan record. Contoh : Membaca Readln(Rec. Mhs. NIM ); Readln(Rec. Mhs. Nama ); Menulis Writeln(Rec. Mhs. NIM ); Writeln(Rec. Mhs. Nama ); 7

BAB. VII TYPE DATA TERSTRUKTUR Contoh TYPE Var Begin End. Mahasiswa = RECORD NIM : String[8] Nama : String[20] Umur : Byte END; Rec. Mhs : Mahasiswa ; ; ; ; Clrscr {Bagian Input Data} Writeln(‘NIM Anda : ’); readln( Rec. Mhs. NIM ) ; Writeln(‘Nama : ’); readln( Rec. Mhs. Nama ) ; Writeln(‘Umur : ’); readln( Rec. Mhs. Umur ) ; {Bagian Menampilkan Data yang telah diinputkan } Writeln(‘NIM Anda : ’ , Rec. Mhs. NIM ) ; Writeln(‘Nama : ’ , Rec. Mhs. Nama ) ; Writeln(‘Umur : ’ , Rec. Mhs. Umur ) ; Readln; 8

BAB. VII TYPE DATA TERSTRUKTUR STATEMEN WITH Digunakan untuk mengurangi penulisan yang berulang-ulang untuk nama recordnya. Maka dengan menggunakan statement WITH hanya cukup sekali saja menyebutkan nama recordnya. Syntax : WITH nm. Record DO {langsung dimasukkan/dicetak fieldnya} Contoh TYPE Mahasiswa = RECORD NIM : String[8] ; Nama : String[20] ; Umur : Byte ; END; VAR Rec. Mhs : Mahasiswa ; 9

BAB. VII TYPE DATA TERSTRUKTUR BEGIN Clrscr With Rec. Mhs Do Begin {Bagian Input Data} Writeln(‘NIM Anda : ’); readln(NIM ) ; Writeln(‘Nama : ’); readln(Nama ) ; Writeln(‘Umur : ’); readln(Umur ) ; End; Readln; END. {Bagian Menampilkan Data} Writeln(‘NIM Anda : ’ , NIM ) ; Writeln(‘Nama : ’ , Nama ) ; Writeln(‘Umur : ’ , Umur ) ; 10