[quote]

FALSE 的 ASCII码值为0，TRUE 的 ASCII码值为1.[/quote]

这个说法让我感到非常吃惊
有没有搞错？

就是真和假的判断，，，，，，即true or false
  

http://www.abab123.com/bbs/down.asp?html=1195394

http://www.abab123.com/bbs/down.asp?html=1195394

http://www.abab123.com/bbs/down.asp?html=1195394

var
s:boolean;
i:integer;
begin
  s:=true;
  read(i);
  if i>10 then s:=false;
  if s{s默认为true} then write(s);            
else write(i);
end.
随便编的哦
输入i
如果i>10 输出  true
不然输出  i

program HighPrecision4_Multiply2;
const
  fn_inp='hp4.inp';
  fn_out='hp4.out';
  maxlen=100;  { max length of the number }
type
  hp=record
       len:integer; { length of the number }
       s:array[1..maxlen] of integer
       { s[1]   is the lowest  position
         s[len] is the highest position }
     end;
var
  x:array[1..2] of hp;
  y:hp; { x:input ; y:output }

  procedure PrintHP(const p:hp);
  var i:integer;
  begin
    for i:=p.len downto 1 do write(p.s[i]);
  end;

  procedure init;
  var
    st:string;
    j,i:integer;
  begin
    assign(input,fn_inp);
    reset(input);
    for j:=1 to 2 do
    begin
      readln(st);
      x[j].len:=length(st);
      for i:=1 to x[j].len do { change string to HP }
        x[j].s[i]:=ord(st[x[j].len+1-i])-ord('0');
    end;
    close(input);
  end;

  procedure Multiply(a,b:hp;var c:hp); { c:=a+b }
  var i,j,len:integer;
  begin
    fillchar(c,sizeof(c),0);
    for i:=1 to a.len do
      for j:=1 to b.len do
      begin
        inc(c.s[i+j-1],a.s[i]*b.s[j]);
        inc(c.s[i+j],c.s[i+j-1] div 10);
        c.s[i+j-1]:=c.s[i+j-1] mod 10;
      end;
    len:=a.len+b.len+1;
    {
      the product of a number with i digits and a number with j digits
      can only have at most i+j+1 digits
    }
    while(len>1)and(c.s[len]=0) do dec(len);
    c.len:=len;
  end;

  procedure main;
  begin
    Multiply(x[1],x[2],y);
  end;

  procedure out;
  begin
    assign(output,fn_out);
    rewrite(output);
    PrintHP(y);
    writeln;
    close(output);
  end;

  begin
    init;
    main;
    out;
  end.

真：true   假：false
 A     B      A and B    A or B    not(A)
true  true     true       true      false   (当and两边等式成立时，执行下面的语句)
true  false    false      true      false   (当or两边其中一个等式成立，执行下面语句)
false true     false      true      true    (当not右边等式不成立，执行下面语句)
false false    false      false     true 
辛辛苦苦打的，多给点分！

对 True
错 False
就QB的-1和0

就是由布尔变量、布尔值(true/false)以及一些运算符(not,and,or,xor等)组成的表达式

有，是TRUE 和 FALSE