怎样返回一个实数的整数部分(不要奸笑)?

Question

j:real;
i:integer;j := 100 * 1.05;
i := int(j);
错在那里?

Answer 1

I := Trunc(J);————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————