16 garrison road:请详细解释一下pascal编程中的强制类型转换和下面这题的输出结果(最好有解释).谢谢

来源:百度文库 编辑:神马品牌网 时间:2024/04/25 22:04:08
var i:integer;b:boolean;s:string;
c:char;r:real;
begin
c:='A';writeln('c=',c);
i:=integer(c);writeln('i=',i);
b:=boolean(i);writeln('b=',b);
s:=string(b^);writeln('s=',s);
readln;
end.

var i:integer;b:boolean;s:string;
c:char;r:real;
begin
c:='A';writeln('c=',c);
i:=integer(c);writeln('i=',i); % i="A"的ASCLL值
b:=boolean(i);writeln('b=',b); % 非零值就是TRUE
s:=string(b^);writeln('s=',s); % TRUE 就是ASCLL值1
readln;
end.