Di dalam pascal, ada beberapa keistimewaan yang tidak di miliki oleh bahasa pemrograman lainnya. Salah satunya ialah Record. Apa itu Record di pascal? Record ialah kumpulan beberapa variable yang berbeda tipe data ataupun sama yang di simpan dalam satu kesatuan yang disebut dengan Record. “Apakah...

Record di Pascal

Di dalam pascal, ada beberapa keistimewaan yang tidak di miliki oleh bahasa pemrograman lainnya. Salah satunya ialah Record. Apa itu Record di pascal? Record ialah kumpulan beberapa variable yang berbeda tipe data ataupun sama yang di simpan dalam satu kesatuan yang disebut dengan Record. “Apakah itu hampir sama seperti Array?” Tidak. Kalau Array itu hanya menggunakan 1 variable dan jumlah penyimpanannya banyak namun, kalau Record itu bisa menyimpan banyak tipe data variable dalam satu kesatuan. “Bagaimana sih contoh deklarasinya di Pascal?” Berikut ialah syntax untuk record.

 

Type nama_record = record

nama_variable :tipe_data

….

….

end

 

Di Pascal, Record sangat berguna sekali dalam penyimpanan Data yang banyak. “Cara pemanggilan variable yang di dalam record gimana sih?” Anda bisa menggunakan 2 cara untuk pemanggilan variable di dalam record yakni bisa menggunakan keyword with ataupun dengan cara nama_record.nama_variable_di_dalam_record. Berikut contoh sederhananya tanpa keyword with. Oya, pada tutorial ini saya anggap Anda sudah paham dasar – dasar di Pascal seperti Pendeklarasian Variable dan bentuk - bentuk umum di Pascal.

 

 

(*
        Yudi Setiawan
*)

program tesRecord;
uses crt;

type recMahasiswa = record
        nim     :string;
        nama    :string;
end;

var
        mahasiswa :recMahasiswa;
        x         :integer;

begin
        clrscr;

        (*Input NIM dan Nama Mahasiswa*)
        write('Masukkan NIM Mahasiswa  : ');    readln(mahasiswa.nim);
        write('Masukkan Nama Mahasiswa : ');    readln(mahasiswa.nama);

        (*Cetak NIM dan Nama Mahasiswa*)
        writeln;
        writeln('NIM  : ', mahasiswa.nim);
        writeln('NAMA : ', mahasiswa.nama);

        readln;
end.

 

 

 

Gampangkan cara pemakaiannya? Pada contoh diatas, Anda harus memasukkan NIM dan Nama Mahasiswa dan kemudian, program akan mencetak hasil inputan Anda. Sekali lagi perhatikan cara penulisan dari Record dan pemanggilan Record. Ok, saya lanjutkan yang pakai keyword with.

 

 

(*
        Yudi Setiawan
*)

program tesRecord;
uses crt;

type recMahasiswa = record
        nim     :string;
        nama    :string;
end;

var
        mahasiswa :recMahasiswa;
        x         :integer;

begin
        clrscr;

        (*Input NIM dan Nama Mahasiswa*)
        with mahasiswa do
        begin
                write('Masukkan NIM Mahasiswa  : ');    readln(nim);
                write('Masukkan Nama Mahasiswa : ');    readln(nama);
        end;          

        (*Cetak NIM dan Nama Mahasiswa*)
        writeln;
        with mahasiswa do
        begin
                write('NIM  : ', nim);
                write('Nama : ', nama);
        end;

        readln;
end.

 

 

 

Pada contoh diatas, with digunakan untuk mempermudah pemanggilan variable di dalam Record sehingga Anda tidak perlu menuliskan hal yang cukup repot seperti pada contoh tanpa with. Gimana, masih gampang kan??? Sekali lagi, harap perhatikan penulisan Record dan contoh With di atas. Sekarang saya lanjut lagi gimana kalau Record digabungkan dengan Array di Pascal. Berikut contoh kasusnya.

 

(*
        Yudi Setiawan
*)

program tesRecord;
uses crt;

type recMahasiswa = record
        nim     :string;
        nama    :string;
end;

var
        mahasiswa :array[1..10] of recMahasiswa;
        x         :integer;

begin
        clrscr;

        (*Input NIM dan Nama Mahasiswa*)
        for x := 1 to 3 do
        begin
                with mahasiswa[x] do
                begin
                        writeln('Data ke-', x);
                        write('Input NIM  : ');  readln(nim);
                        write('Input Nama : ');  readln(nama);
                end;
                writeln;
        end;

        (*Cetak NIM dan Nama Mahasiswa*)
        writeln;
        for x := 1 to 3 do
        begin
                with mahasiswa[x] do
                begin
                        writeln('Data ke-', x);
                        writeln('NIM  : ', nim);
                        writeln('Nama : ', nama);
                end;
                writeln;
        end;

        readln;
end.

 


About Author

Yudi Setiawan

Saat ini aktif sebagai Mahasiswa di salah satu Universitas di kota Medan dengan mengambil bidang Fakultas Teknik dan Ilmu Komputer. Sangat senang dengan bahasa pemrograman Java dan Android.


Comment & Discussions

  • Anisa Salsa
    mau nnyk, gmana cara kalo misal buat biodata dimna biodatanya setiap mahasiswa mempunyai 3 alamat dan di alamatnya itu ada jalan, nomor, dan kecamatan. Mohon bantuannya ya. Trima kasih

    • Yudi Setiawan

      dibagian record nya berarti, dibuat 3 field nya.

      type recAlamat: record
      jalan :string;
      nomor :string;
      kecamatan :string;
      end;


  • Adi Yoga
    kak bagaimana cara delete record pada array pascal,
    misalnya ada 3 record terus aku mau delete record array no 2,
    mohon bantuan nya kak

    terimakasih,

  • Please LOGIN before if you want to give the comment.