Program Record pada Pascal

Tampilan jendela coding :

Tampilan Output Program:

Code Program Record pada Pascal:

USES CRT; TYPE RECPEGAWAI=RECORD KODE, ALAMAT, NAMA, GAJI: STRING; END; VAR PEGAWAI: RECPEGAWAI; BEGIN WITH PEGAWAI DO BEGIN CLRSCR; KODE:='XXX/MVI/209'; NAMA:='STANFORD GATES BARLEY'; ALAMAT:='STANBURG VALLEY, CALIFORNIA, US'; GAJI:='10000000'; WRITELN ('KODE PEGAWAI  = ',PEGAWAI.KODE); WRITELN ('NAMA PEGAWAI  = ',PEGAWAI.NAMA); WRITELN ('ALAMAT PEGAWAI= ',PEGAWAI.ALAMAT); WRITELN ('GAJI PEGAWAI  = ',PEGAWAI.GAJI); READLN; END; END.

CARA KERJA PROGRAM

USES CRT

Digunakan untuk mendefinisikan jenis monitor yang kita gunakan.

TYPE RECPEGAWAI = RECORD KODE, ALAMAT, NAMA, GAJI: STRING; END;

Digunakan untuk mendeklarasikan tipe record, disini saya mendeklarasikan type record RECPEGAWAI sebagai RECORD, di dalam RECPEGAWAI terdapat KODE, ALAMAT, NAMA, GAJI sebagai bagian dari recordnya.

VAR PEGAWAI: RECPEGAWAI;

Digunakan untuk mendefinisikan PEGAWAI sebagai RECPEGAWAI, dimana RECPEGAWAI adalah RECORD, maka PEGAWAI adalah RECORD juga.

BEGIN WITH PEGAWAI DO

Digunakan untuk mempersingkat penulisan RECORD.

BEGIN

Digunakan untuk memulai suatu proses

CLRSCR;

Digunakan untuk membersihkan layar

KODE:='XXX/MVI/209';

Memberi nilai pada PEGAWAI.KODE dengan “XXX/MVI/209”

NAMA:='STANFORD GATES BARLEY';

Memberi nilai pada PEGAWAI.NAMA dengan “STANFORD GATES BARLEY”

ALAMAT:='STANBURG VALLEY, CALIFORNIA, US';

Memberi nilai pada PEGAWAI.ALAMAT dengan “STANGURG VALLEY, CALIFORNIA, US”

GAJI:='10000000';

Memberi nilai pada PEGAWAI.GAJI dengan “10000000”

READLN;

Membaca input yang kita masukkan, maksudnya digunakan untuk mempause program kita.

END; dan END.

Digunakan untuk menyudahi kode atau deklarasi, atau proses dan sebagainya…

Related Posts