Senin, 16 Januari 2017

Operasi Logika

| Senin, 16 Januari 2017
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. 




Related Posts