用PASCAL语言解决的问题

来源：百度知道 编辑：UC知道 时间：2024/09/21 22:11:34
如何判断一个实数类型的数是否为整数，并改为整数类型。
比如a:real;b:integer;给出代码

program asdsdsd;
var a:real;b:integer;
begin
readln(a);
b:=trunc(a);
if a>b then writeln(a,'bushizhengshu')
else
begin
writeln(a,'shizhengshu');
writeln('jiang',a,'quzhengwei',b);
end;
readln;
end.

var
a:real;b:integer;
begin
readln(a);
b:=trunc(a);
if a<>b then writeln(a,'Not Integer') else
begin
write(a,'It Is Integer ',a,'->',b);
writeln;
end;
end.