Setelah kita mempelajari tipe data standar seperti Tipe data integer, Tipe data real, Tipe data Char dan Tipe data string maka pada materi selanjutnya kita akan mempelajari Tipe data subjangkauan dan Tipe data terbilang. Untuk materi kali ini kita akan belajar Tipe data subjangkauan terlebih dahulu.
PENGERTIAN TIPE DATA SUBJANGKAUAN DI PASCAL
Tipe data ini adalah tipe data yang dapat didefinisikan sendiri oleh pemakai, yang merupakan tipe data bentukan yang berasal dari bagian tipe data lain yang berada dalam jangkauan. Nilai data pada tipe ini mempunyai jangkauan tertentu. Misalkan nilai ujian mempunyai harga 0 sampai 100, maka nilai ujian dapat didefinisikan sbb :
TYPE
nilai = 0..100;
CARA MENGGUNAKAN TIPE DATA SUBJANGKAUAN DALAM PASCAL
Untuk membuat tipe data subjangkauan, sebenarnya cukup mudah tapi jika anda tidak mengerti cara kerjanya mungkin menjadi cukup rumit. Untuk lebih jelasnya anda dapat mempelajari contoh program yang telah saya buat di bawah ini
program tipe_subjangkauan;
uses crt;
type
nilai = 1..100;
var
andi,heri, udi: nilai;
begin
clrscr;
andi:= 60;
writeln('Nilai andi : ',andi);
heri:= 30;
writeln('nilai heri : ',heri);
udi:= 90;
writeln('nilai udi : ',udi);
readln;
end.
PEMBAHASAN PROGRAM
Pada program di atas saya mendefinisikan sebuah tipe data subjangkauan dengan nama nilai dengan angka 1 sampai 100, perlu anda ketahui tanda titik dua (..) di gunakan untuk membatasi seberapa jauh jangkauan untuk satuan ini
Kemudian saya membuat 3 variabel yaitu andi, heri dan udi dengan tipe data yang telah saya buat yaitu nilai, selanjutnya pada inti program saya memanggil clrscr untuk membersihkan layar terlebih dahulu.
Pada baris selanjutnya variabel andi saya isi nilai 60, kemudian saya tampilkan ke layar menggunakan statemen writeln. Dengan memeanggil lagi variabel andi. pada variabel heri dan udi juga sama alurnya, untuk melihat hasil dari program di atas anda dapat melihat outpute programnnya di bawah ini.
OUTPUTE PROGRAM
Itulah materi saya kali ini mengenai Tipe data Subjangkauan, semoga bermanfaat dan menambah wawasan pengetahuan anda semua, salam hangat dan Terima kasih.
