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.

(*

        Alrisda Satria Atmaja

*)



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.

(*

        Alrisda Satria Atmaja

*)



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.

(*

        Alrisda Satria Atmaja

*)



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.

Keyword: record pascal, merekam pascal