Selasa, September 06, 2011

Tipe data boolean pada turbo pascal

Tipe data boolean mempunyai dua buah nilai, yaitu True dan False. Kita dapat mendeklarasikan suatu variabel dan mengisi variabel tersebut dengan nilai data boolean True atau False.

Contoh programnya adalah sebagai berikut:
var 
a:boolean;
begin
a:=true;
writeln(a);
writeln(not a);
readln
end.


Jika program ini dijalankan maka hasilnya adalah sebagai berkut:
TRUE
FALSE

Contoh lain dari program yang menggunakan tipe data boolean ini adalah sebagai berikut:
var 
a:boolean; b:string; c:integer;
begin
write('ketik "showten" untuk menampilkan 10 bilangan bulat positif pertama! ');
readln(b);
if b='showten' then a:=true;
if a=true then
begin
for c:=1 to 10 do
writeln(c);
end;
readln
end.


Jika program ini dijalankan maka hasilnya adalah sebagai berkut:
ketik "showten" untuk menampilkan 10 bilangan bulat positif pertama! showten
1
2
3
4
5
6
7
8
9
10

Tetapi jika yang kita ketikkan bukan showten, maka tidak akan mencul 10 bilangan bulat pertama tersebut.

Kemudian jika suatu variabel boolean tidak didefinisikan apakah nilai dari variabel boolean tersebut True atau False, maka program akan menganggap atau mendefinisikan bahwa nilai dari variabel boolean tersebut adalah False, contoh:
var 
a:boolean; b:integer;
begin
if a then b:=7 else b:=4;
writeln(b);
readln
end.


Jika program ini dijalankan maka hasilnya adalah sebagai berkut:
4

Karena program menganggap atau mendefinisikan bahwa nilai variabel a adalah False, sehingga ketika program dijalankan yang muncul adalah 4. TETAPI jika program di atas kita jadikan suatu prosedur dan ketika kita memanggil prosedur tersebut, nilai dari variabel boolean adalah True, contoh:
procedure ab; 
var 
a:boolean; b:integer;
begin
if a then b:=7 else b:=4;
writeln(b);
readln
end.


Jika program ini dijalankan maka hasilnya adalah sebagai berkut:
7

Tetapi jika program tersebut ditambah dengan pendefinisian a sebagai True, sehingga sintaksnya menjadi sebagai berikut,
var 
a:boolean; b:integer;
begin
a:=true;
if a then b:=7 else b:=4;
writeln(b);
readln
end.


Maka hasil program jika dijalankan adalah:
7

Mungkin itu sedikit gambaran yang bisa sahabat informasikan mengenai data tipe boolean dalam pada turbo pascal, jika ada teman-teman yang kurang mengerti tentang pembahasan ini atau yang ingin menambahkan tentang pembahasan tipe data boolean pada turbo pascal, sahabat dengan senang hati menerima masukannya, bagi yang ingin mendownload softcopy dari pembahasan ini dapat didownload di sini

Assalamu ‘alaikum...

ingin dapat update dari artikel turbo pascal lainnya? silakan Join group facebook sahabat-informasi.blogspot.com dan Like Fanpage sahabat informasi dengan dengan account facebook kamu,

Baca juga:

0 komentar: