Kamu dapat juga mendefinisikan sekelompok bilangan untuk data sederhana. Sebagai contoh angka 1 hingga 10. Pendefinisian "type set" ini sebagai berikut :
Type
Str1 = set of char;
Bil1 = set of byte;
Bil2 = set of 1..10;
Cha1 = set of 'a'..'z';
Str1 = set of char;
Bil1 = set of byte;
Bil2 = set of 1..10;
Cha1 = set of 'a'..'z';
Dalam keadaan awalnya, suatu variabel yang didefinisikan dengan tipe yang memanfaatkan "set" belum terisi. Variabel tersebut merupakan suatu variabel kosong. Untuk mengisinya kamu harus menggunakan tanda "[ ]". Ini adalah contoh program dengan pemanfaatan "set".
Program Set1;
Uses Crt;
Type
Str1 = set of char;
Var
A : Str1;
Begin
A := ['a'..'z'];
End.
Uses Crt;
Type
Str1 = set of char;
Var
A : Str1;
Begin
A := ['a'..'z'];
End.
Program ini hanya terdiri satu baris yaitu "A := ['a'..'z'];". Program tersebut berguna untuk mengisi variabel "A" dengan karakter antara 'a' hingga 'z'.
0 komentar:
Posting Komentar