Record & Pointer Dalam Pascal

Hallo Sabahat Viyovi...

Kembali bersama kami dengan pembagi ilmu untuk kamu yang ingin belajar di dunia IT. Disini kami akan memberikan penjelasan tentang Program lagi nih, yaitu RECORD & POINTER. Mari baca penjelasan dari kami yaaa

a. Record

Record adalah jenis tipe data terstruktur yang berisi beberapa data, yang masing-masing dapat berlainan tipe. Suatu tipe Record dideklarasikan dengan bentuk sebagai berikut :

Type Identifier = Record

Nama_field1 : tipe1;

Nama_field2 : tipe2;

Nama_field3 : tipe3;

...

Nama_fieldn : tipe4;

end;

Masing-masing data field dapat berupa satu atau beberapa nama pengenal dan masing-masing dinamakan field.

Contoh Penggunaan Record dalam Pascal :

uses crt;
type recbio = record
     nama : string[25];
     alamat : string[35];
     nohp : string[12];
end;
var
   bio1,bio2 : recbio;
begin
     clrscr;
     with bio1 do
     begin
     nama :='Namaku';
     alamat :='Alamatku';
     nohp:='No Hpku';
     end;

     bio2:=bio1;

     with bio2 do
     begin
     writeln('Nama   :',nama);
     writeln('Alamat :',alamat);
     writeln('No Hp :',nohp);
     end;
readkey;
end.

program recordn;
uses crt;
type biodata = record
     nama : string[25];
     nim : string[10];
     umur : integer;
end;
var
   data : array[1..10] of biodata;
   n,i : integer;
begin
     clrscr;
     write('Masukkan Banyak Data :');
     readln(n);
     clrscr;
     for i:= 1 to n do
     begin
          writeln('Masukkan Data ke ',i);
          with data[i] do
          begin
               write('Masukkan Nama Anda :');
               readln(nama);
               write('Masukkan NIM Anda :');
               readln(nim);
               write('Masukkan Umur Anda :');
               readln(umur);
          end;
     end;

     clrscr;
     for i:= 1 to n do
     begin
          writeln('Data ke ',i);
          with data[i] do
          begin
               writeln('Nama Anda :',nama);
               writeln('NIM Anda :',NIM);
               writeln('Umur Anda :',umur);
          end;
          writeln;
     end;
readkey;
end.

b. Record Dalam Record (Nested Record)

Record di dalam record adalah record yang mempunyai tipe record lain.

Contoh Penulisan :

program recordinrecord;
uses crt;

type alamat = record
     jalan : string;
     no : integer;
     kota : string[25];
end;
    identitas = record
    nama : string[25];
    nim : string[10];
    alamatku : alamat;
end;

var
   data : identitas;

begin
     clrscr;
     with data do
     begin
          write('Masukkan Nama Anda    :');
          readln(nama);
          write('Masukkan NIM Anda     :');
          readln(nim);
          writeln('Masukkan Alamat Anda:');
          with alamatku do
          begin
               write('          Jalan :');
               readln(jalan);
               write('          Nomor :');
               readln(no);
               write('          Kota :');
               readln(kota);
          end;
     end;
     clrscr;
     writeln('Data Yang Anda Masukkan');
     with data do
     begin
          writeln('Nama   :',nama);
          writeln('NIM    :',nim);
          writeln('Alamat :');
          with alamatku do
          begin
               writeln('        Jalan :',jalan);
               writeln('        No    :',no);
               writeln('        Kota ;',kota);
          end;
     end;
readkey;
end.

c. Pointer

Tipe Data Pointer adalah tipe data yang berisi alamat memori dari sebuah variabel. Pointer merupakan jenis perintah yang disediakan oleh bahasa pemrograman untuk melakukan operasi terhadap suatu alamat memori seperti penunjukan alamat, pengaksesan alamat dan sebagainya. Tipe data pointer bersifat dinamis, variabel akan dialokasikan hanya pada saat dibutuhkan dan sesudah tidak dibutuhkan lagi dapat dialokasikan kembali.Pendeklarasian variabel pointer tidak berbeda jauh dengan pendeklarasian variabel biasa, hanya perlu menambahkan simbol "^" sebelum tipe datanya.

Bentuk umum deklarasi pointer :

Nama_var : ^tipe_data;

Contoh Penulisan Pointer :

program tipe_pointer;
uses crt;
var
   kata : string;
   ptr : ^string;
begin
     clrscr;
     kata:='Mimi';
     writeln('Variabel Kata Berisi          :',kata);

     ptr:=@kata;
     writeln('Variabel ptr merujuk ke nilai :',ptr^);
readkey;
end.

program tipe_pointer;
uses crt;
var
   angka : integer;
   pointer_angka : ^integer;
begin
     clrscr;
     angka:=99;
     writeln('Variabel Angka Berisi :',angka);

     pointer_angka:=@angka;
     writeln('Variabel pointer merujuk ke nilai :',pointer_angka^);

     angka:=74;
     writeln('Variabel pointer merujuk ke nilai :',pointer_angka^);

readkey;
end.

Sekian artikel yang dapat kami sampaikan mengenai Record & Pointer. Semoga bermanfaat untuk kita semua. Sering baca-baca artikel dari kami yaaa...

See you....

Baca Juga : Asah Kemampuanmu Dengan Pascal

Unknown

Record & Pointer Dalam Pascal

4/ 5

Oleh Unknown

Unknown Komentar