Powered By Blogger Submit Your Site To The Web's Top 50 Search Engines for Free! Online Marketing

Subscribe Now

Sunday, April 5

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


0 Comments:

Post a Comment

Popular Posts This Months

Related Posts Plugin for WordPress, Blogger...