st语言写个圆形

以下是ST语言写的一个简单的圆形程序：

PROGRAM MAIN
VAR
    r : REAL := 10;   // 圆的半径
    x, y : REAL;      // 圆心坐标
    angle : REAL;     // 角度
    step : REAL := 0.1;  // 步长
BEGIN
    x := 0;
    y := 0;
    angle := 0;
    
    // 循环绘制圆形
    WHILE angle <= 2 * PI DO
        x := r * COS(angle);   // 计算x坐标
        y := r * SIN(angle);   // 计算y坐标
        // 绘制圆点
        Circle(x, y, 0.1);
        angle := angle + step;
    END_WHILE
END_PROGRAM

该程序使用了ST语言中的循环语句和数学函数，通过计算圆上每个点的坐标，并使用绘图函数绘制出来，从而实现了画一个圆形的效果