滤波程序可以根据不同的应用场景和需求来编写。以下是一个简单的1200滤波程序示例，采用中值滤波法，适用于西门子S7-1200 PLC：
```pascal
PROGRAM FilterProgram
VAR
// 输入值
InputValue: INT；
// 滤波后的输出值
OutputValue: INT；
// 滤波器数组
FilterArray: ARRAY [0..9] OF INT；
// 滤波器数组大小
ArraySize: INT := 10；
END_VAR
// 中值滤波法
FUNCTION MedianFilter（IN Value: INT） RETURNS INT
BEGIN
SET FilterArray[ArraySize - 1] := Value； // 将新值放入数组末尾
FOR i := ArraySize - 2 DOWNTO 0 DO
IF FilterArray[i] > FilterArray[i + 1] THEN
FilterArray[i + 1] := FilterArray[i]； // 如果当前值大于下一个值，则交换
END_IF；
END_FOR；
// 返回中值
RETURN FilterArray[ArraySize DIV 2]；
END_FUNCTION
// 主程序
BEGIN
// 初始化
InputValue := 0；
OutputValue := 0；
FOR i := 0 TO ArraySize - 1 DO
FilterArray[i] := 0；
END_FOR；
// 循环采集数据并进行滤波
WHILE TRUE DO
InputValue := ReadInput（）； // 读取输入值
OutputValue := MedianFilter（InputValue）； // 应用中值滤波
WriteOutput（OutputValue）； // 输出滤波后的值
Sleep（100）； // 延时100ms
END_WHILE；
END_PROGRAM
```
解释
变量声明
`InputValue`：存储输入的原始数据。
`OutputValue`：存储滤波后的输出数据。
`FilterArray`：用于存储最近的10个数据。
`ArraySize`：滤波器数组的大小，这里设置为10。
中值滤波法
`MedianFilter`函数：接受一个整数作为输入，返回中值。
将新值放入数组的末尾。
从数组末尾开始向前遍历，如果当前值大于下一个值，则交换它们的位置。
最后返回数组的中间值。
主程序
初始化输入值、输出值和滤波器数组。
进入一个无限循环，不断读取输入值，应用中值滤波，并输出滤波后的值。
每100ms延时一次，以控制采集频率。
注意事项
根据实际需求调整滤波器数组的大小和延时时间。
如果需要更复杂的滤波算法，可以参考其他滤波方法，如算术平均值滤波、加权平均值滤波等。
这个示例程序是一个简单的实现，适用于基本的滤波需求。如果需要更高效的滤波算法或针对特定应用场景的优化，可以进一步改进和扩展。