Record atau Struct Pengantar Struct terdapat pada bahasa
Record atau Struct
Pengantar � Struct terdapat pada bahasa C/C++, sedangkan Record pada bahasa Pascal. � Sebuah Struct/Record merupakan koleksi satuan data yang heterogen, yakni terdiri dari berbagai type: int, float, char etc. � Struct/Record adalah sekumpulan elemen data yang memiliki tipe dan panjang data yang berbeda tapi memiliki nama yang sama.
Syntax untuk membentuk record: Type nama_record = record identifier 1: tipe_data 1; identifier 2: tipe_data 2; : : identifier_n: tipe_data_n; end; var nama_var: nama_record;
Contoh Program Record : type TSiswa = record nim : string[8]; nama : string[25]; agama : string[10]; ktp : string[25]; end; var s : TSiswa; umur : integer; ts : integer; tl : integer; begin clrscr; write (’Masukkan tahun sekarang: ‘); readln (ts); writeln (’Isikan data anda dalam Form ini’); write (’NIM : ‘); readln (s. nim);
write (’NAMA : ‘); readln (s. nama); write (’TAHUN LAHIR : ‘); readln (tl); umur : = (ts-tl); write (’AGAMA : ‘); readln (s. agama); write (’NO. KTP : ‘); readln (s. ktp); writeln (’Berikut ini informasi yang anda berikan: ‘); writeln (’NIM : ‘, s. nim); writeln (’NAMA : ‘, s. nama); writeln (’Umur : ‘, umur); writeln (’AGAMA : ‘, s. agama); writeln (’NO. KTP : ‘, s. ktp); READLN; end.
Contoh Array dari Record Type TMhs=record nim: Integer; nama: String[50]; end; var dtmhs: array[1. . 2]of TMhs; i: Integer; begin for i: =1 to 2 do begin Write('Masukkan NIM : '); Readln(dtmhs[i]. nim); Write('Masukkan Nama : '); Readln(dtmhs[i]. nama); end; for i: =1 to 2 do begin Writeln('NIM : ', dtmhs[i]. nim); Writeln('Nama : ', dtmhs[i]. nama); end; Readln;
- Slides: 6