使用ST语言写一个红绿灯控制的程序

以下是一个简单的红绿灯控制程序，使用ST语言编写：

VAR
    state : INT := 0;    (* 初始状态为0，表示红灯亮 *)
    timer : INT := 0;    (* 计时器，单位为秒 *)
END_VAR

IF state = 0 THEN    (* 如果当前状态为红灯 *)
    IF timer >= 10 THEN    (* 如果计时器已经计时10秒 *)
        state := 1;    (* 切换到绿灯状态 *)
        timer := 0;    (* 重置计时器 *)
    ELSE
        timer := timer + 1;    (* 计时器加1秒 *)
    END_IF
ELSIF state = 1 THEN    (* 如果当前状态为绿灯 *)
    IF timer >= 5 THEN    (* 如果计时器已经计时5秒 *)
        state := 0;    (* 切换到红灯状态 *)
        timer := 0;    (* 重置计时器 *)
    ELSE
        timer := timer + 1;    (* 计时器加1秒 *)
    END_IF
END_IF

(* 根据当前状态控制输出 *)
IF state = 0 THEN    (* 红灯亮 *)
    OutputRedLight := TRUE;
    OutputYellowLight := FALSE;
    OutputGreenLight := FALSE;
ELSIF state = 1 THEN    (* 绿灯亮 *)
    OutputRedLight := FALSE;
    OutputYellowLight := FALSE;
    OutputGreenLight := TRUE;
END_IF

以上程序中，使用一个状态变量 `state` 来记录当前是红灯还是绿灯状态，使用一个计时器变量 `timer` 来记录当前状态已经持续的时间。程序每执行一次，就会检查当前状态和计时器的值，如果需要切换状态，则改变状态变量的值，并重置计时器。最后根据当前状态控制输出端口，使红灯或者绿灯亮起。