Question

pascal,如何判断小数点后有没有数？

也就是说判断这个实型的数是不是整数
题目是
描述 Gis不知怎么回事，脑子突然短路了，连二元一次方程组都不会解了。他便来找正在学编程的你（此题超水）。

输入格式 输入数据共两行，为二元一次方程组的增广矩阵，每行三个数（前两个数绝对值都小于10，第三个数绝对值小于15000）。

输出格式 输出数据共一行，分别为二元一次方程组的两个整数解（按增广矩阵的顺序输出，绝对值都小于1500）。如果没有整数解，则输出“NO INTEGER ROOT”。

输入文件 直接输入即可

输出文件 直接输出即可 注意,不要在最后输出空行或空格!

样例输入 1 1 35
2 4 94
样例输出 23 12

Answer 1

这个就是利用判别式来做咯。
判定一个数是不是整数，像楼上那样是不行的，因为浮点运算会有误差。所以，要用abs(tmp-trunc(tmp))<=1e10来判断，就是说一个数减去它的整数部分，如果剩下的小于或等于一个趋近0的数，那么就说它是整数。1e10就是10的-10次方。
下面的程序是我直接在这上面打的，所以有什么小错误，请楼主自己改一下。
var
a,b,c,data:longint;
tmp:double;
first:=boolean;
begin
while not eof do begin
readln(a,b,c);
data=sqr(b)-4*a*c;
first:=true;
if data<0 then writeln('NO INTEGER ROOT') else begin
tmp:=(-b+sqrt(data))/(2*a);
if abs(tmp-trunc(tmp))<=1e10 then begin
first:=false;
write(tmp);
end;
tmp:=(-b-sqrt(data)/(2*a);
if abs(tmp-trunc(tmp))<=1e10 then begin
if not first then write(' ');
first:=false;
write(tmp);
end;
if first then write('NO INTEGER ROOT');
writeln;
end;
end;
end.

Answer 2

if trunc(x)=x then是整数else不是