1 / 9

RECORD

RECORD. Record dapat dikatakan sebagai suatu kumpulan data item yang masing-masing mempunyai jenis data berbeda. Data item yang merupakan elemen record biasanya disebut dengan FIELD. CARA MENDEKLARASIKAN RECORD Bentuk umum deklarasi suatu variabel berjenis record adalah sbb :

lucky
Download Presentation

RECORD

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript


  1. RECORD Record dapat dikatakan sebagai suatu kumpulan data item yang masing-masing mempunyai jenis data berbeda. Data item yang merupakan elemen record biasanya disebut dengan FIELD. CARA MENDEKLARASIKAN RECORD Bentuk umum deklarasi suatu variabel berjenis record adalah sbb : TYPE identifier = RECORD Nama_field_1 : jenis; Nama_field_2 : jenis; …………………….. …………………….. nama_field_n : jenis; END;

  2. MEMPROSES VARIABEL BERJENIS RECORD Perhatikandeklarasivariabelberikut : TYPE nilai : RECORD Nilai1 : real; Nilai2 : real; END; VAR x,y : nilai; Untukmemprosesvariabel x dan / atau y dilakukandengancaramenyebutkan field designatornya, ygterdiridariatas : Nama_record.nama_field Padadeklarasidiatas yang dimaksuddengan field designator-nyaadalah : x.nilai1 x.nilai2 y.nilai1 y.nilai2

  3. Jadijikainginmembacavariabel x atau y ataukeduanya, makabentuk statement-nyaadalah : READ (x.nilai1, x.nilai2, y.nilai1, y.nilai2); STATEMENT “WITH” Selaincara yang telahdisebutkandiatas, untukmemprosessuatu record dapatdigunakan statement WITH. Dengan statement inipenulisannyaakanlebihsederhana. BentukUmumpenulisan statement WITH iniadalah : WITH nama_recordDO statement Perhatikandeklarasidibawahini : TYPE x = RECORD

  4. No : integer; Kode : char; Juml : integer; Harga : real; END; VAR p,q : x; Untukmembacavariabel p dan q diatasdenganmemanfaatkan statement WITH bentuknyamenjadi : WITHp,q DO read (no, kode, juml, harga); Bandingkanjikadigunakancarasebelumnya : Read(p.no,p.kode, p.juml,p.harga,q.no,q.kode,q.juml,q.harga);

  5. CONTOH : Pernyataan seperti : Data.npm :=‘22297566’ Data.Nama:=‘Abdul Kadir’ Data.Fakultas:=‘Teknik’ Dapat diganti dengan : WITH Data Do Begin npm :=‘22297566’ Nama:=‘Abdul Kadir’ Fakultas:=‘Teknik’ end; Apabila di dalam pernyataan WITH terdapat lebih dari satu record, haruslah pada kedua record tersebut tidak ada field dengan nama yang sama. Sebagai contoh : Type BarangX=RECORD Batu:integer;

  6. Kayu:real; END; BarangY=RECORD Batu:string[10]; Kayu:char; END; Var brg_X:barangX; brg_Y:barangY; Karenakeduavariabel record brg_Xdanbrg_Ymemilikinama field yang sama, Jikamisalnyakemudiandikenakanpernyataan : WITH brg_X, brg_Y Do Begin writeln(batu); writeln(kayu); End; dapatmenyebabkanhasiltidakseperti yang diharapkan.

  7. Array tipe record type barang=RECORD namabrg:string[20]; jmlbrg:byte; hargabrg:real; total:real; end; varjual:array [1..10] of barang i,j:integer; tot1:real; Begin I:=1; write(‘Namabarang :’);readln(jual[i].nmbrg); Repeat write(‘Jumlahbarang :’);readln(jual[i].jmlbrg); write(‘Hargabarang :’);readln(jual[i].hrgbrg); jual[i].total:=jual[i].jmlbrg* jual[i]. jual[i].hrg.brg; inc (I); write(‘Namabarang :’);readln(jual[i].nmbrg); until (jual[i].nmbrg=‘0’) or (I=11); dec(i); clrscr; writeln (‘------------------------------------------------------------’); writeln (‘No namabarangjumlahharga total’); writeln (‘------------------------------------------------------------’);

  8. for j:=1 to I do begin gotoxy(1,j+3);write (j); gotoxy(5,j+3);write(jual[i].nmbrg); gotoxy(26,j+3);write(jual[i].jmlbrg:10); gotoxy(37,j+3);write(jual[i].hrgbrg:10:2); gotoxy(48,j+3);write(jual[i].total:10:2); tot1:=tot1 + jual[j].total ; end; writeln (‘------------------------------------------------------------’); writeln(‘ Total :’,tot1:10:2’); writeln (‘------------------------------------------------------------’); end. Array dalam record Type barang= RECORD nmbrg:string[20]; jmlbrg:array[1..3]of byte;

  9. hrgbrg:real; total:real; end; varjual:barang; tbarang, i:integer; Begin clrscr; write(‘NamaBarang :’);readln(jual.nmbrg); for i:=1to 3 do begin write(‘Jumlahbarang ’,I,’ : ’);readln(jual.jmlbrg[i]); tbarang:=tbarang+jual.jmlbrg[i]; end; write(‘Hargabarang :’);readln(jual.hrgbrg); jual.total:=tbarang*jual.hrgbrg; writeln(‘Total HargaBarang = ‘, jual.total:10:2); end. Cobalihatsendiriperbedaanantara array tipe record dan array dalam record dariduacontoh program diatas !

More Related