帮我用西门子SCL语言写一个Real去除小数公式

西门子SCL（Structured Control Language）是西门子PLC编程中用于高级编程的技术，它类似于Pascal或C语言。在SCL中，要实现实数去除小数部分的功能，可以使用类型转换或者数学函数来达到目的。下面是一个简单的例子，使用SCL语言编写一个函数，该函数接受一个实数（Real）作为输入，并返回一个整数（Integer），其中小数部分被去除。

FUNCTION TruncateReal : INT
VAR_INPUT
    InputReal : REAL; // 输入的实数
END_VAR
BEGIN
    // 使用类型转换将Real转换为Integer，自动去除小数部分
    TruncateReal := INT(InputReal);
END_FUNCTION

在这个例子中，我们定义了一个名为`TruncateReal`的函数，它有一个类型为`REAL`的输入参数`InputReal`。函数体内部，我们使用`INT`函数将实数`InputReal`转换为整数，这个转换过程会自动去除实数的小数部分。

请注意，这种截断方法不会进行四舍五入，而是直接丢弃小数部分。如果需要四舍五入到最接近的整数，可以使用`ROUND`函数而不是`INT`函数。