Operasi Logika
Operasi Logika
Operasi ini hanya dilakukan pada data yang
bertipe boolean, yaitu true dan false dengan hasilnya boolean.
Contoh :
Operator NOT Operator AND
Input
|
Output
|
1
|
0
|
0
|
1
|
Input
|
Output
|
|
0
|
0
|
0
|
1
|
0
|
0
|
0
|
1
|
0
|
1
|
1
|
1
|
Input
|
Output
|
|
0
|
0
|
0
|
1
|
0
|
1
|
0
|
1
|
1
|
1
|
1
|
0
|
Input
|
Output
|
|
0
|
0
|
0
|
1
|
0
|
1
|
0
|
1
|
1
|
1
|
1
|
0
|
Operator nilai NOT akan menghasilkan nilai
berlawanan dari nilai yang di inputkan. Jika x bernilai false, ketika
dioperasikan dengan operator NOT menjadi x := Not(x); maka nilai x menjadi
true.
v Contoh : menggunakan
operasi NOT
Program operator_NOT;
Uses crt;
Var
X : boolean;
Begin
Clrscr;
X:=false,
If
NOT(x) then
Begin
Wrieln
(‘nilai x sekarang menajadi :,’not(x));
End;
Readln;
End.
v Contoh : menggunakan operator
OR
Program operator_OR;
Uses crt;
Var
x,y
: integer;
begin
clrscr;
x :=9;
y :=10;
If (x<y) OR (x=y) then
Begin
Writeln (‘x lebih kecil sama dengan y’);
End
Else
Begin
Writeln (‘x lebih besar dari y’)
End;
Readln;
End.
v Contoh : menggunakan
operator AND
Program operator_AND;
Uses crt;
Var
x,y
: integer;
Begin
Clrscr;
X
:=9;
Y
:=10;
If
(x<y) AND (x=y) then
Begin
Writeln
(‘x lebih kecil sama dengan y’);
End
Else
Begin
Writeln
(‘x bernilai tidak lebih kecil dan sama dengan y’);
End;
Readln;
End.
v Contoh : menggunakn
operator XOR
Program operator_XOR;
Uses crt;
Var
x,y,z
: integer;
begin
clrscr;
x
:=9;
y
:=10;
z
:=1;
If
(x<y) XOR (x>z) then
Begin
Writeln
(‘x lebih kecil y dan lebih besar z');
End;
If
(x<y) XOR (y<z) then
Begin
Writeln
(‘x lebih besar y, y tidak lebih kecil z’)
End;
Readln;
End.