, (.. ) , (true), (false). .
(). x y. , . . - .
:
: x < y
: x > y
: x = y
: x <> y
: x <= y
: x >= y
() . (boolean) (true false). : false < true. , , . ord, succ, pred, inc dec.
boolean 1 .
. , , .
boolean Pascal bytebool ( 1 ), wordbool ( 2 ) longbool ( 4 ).
false 0, true . , , - . , FreePascal ( ).
Var
b: boolean;
wb:wordbool;
Begin
b:= false;
b:= pred(b);
writeln(b,' ',ord(b)); // TRUE 255
writeln(b= true); // TRUE
wb:= false;
wb:= pred(wb);
writeln(wb,' ',ord(wb)); // TRUE -1
b:= true;
b:= succ(b);
writeln(b,' ',ord(b)); // TRUE 2
wb:= true;
wb:= succ(wb);
writeln(wb,' ',ord(wb)); // FALSE 0
end.
. .
Pascal :
( , ) - and. a and b true , a b true. a and b false.
true and true = true
true and false = false
|
|
|
false and true = false
false and false = false
( , ) or. a or b false , a b false. true.
true or true = true
true or false = true
false or true = true
false or false = false
() not. not a , a.
not true = false
not false = true
xor. a xor b true , true.
true xor true = false
true xor false = true
false xor true = true
false xor false = false
: not, and, or.
(and, or, xor, not), (>, >=, <, <=, <>, =), .
, . , {B+}.
odd(x) = true, x (x );
eoln(x) = true, x;
eof(x) = true, x.
false.
case
, ,
, 11/04/2012 - 09:25
?
while m - f >< e and m - f <100000000 and m-n > -100000000 do
:
nhteujkmybrb.pas(28,28) Error: Incompatible types: got "Boolean" expected "LongInt"
n - > 100000000, e=0, f=1.
, 02/23/2013 - 21:44
F <100000000
f <100000000
___________
integer. , longint.
, 11/04/2012 - 13:46 tech
: " boolean,
: " boolean, longint"
:
