【ABB】圣诞节来了，如何用示教器“画”棵圣诞树？

1. 圣诞节快到了，ABB机器人示教器写屏可以画个“圣诞树”，增加点节日氛围。

2. 示教器一屏可以最多显示11行，一行最多40个字符。

3. 要实现如上功能，要实现输入一个字符，能居中显示；输入一个数字，能对应打印相同位数的字符。

4. 创建tp_xmas程序，输入数字，在该行居中显示对应位数的*，代码如下：

PROC tp_xmas(num a1)

        VAR string s100;

        VAR string s1;

        VAR num count;

        FOR i FROM 1 TO a1 DO

            s100:=s100+"*";

        ENDFOR

        !创建a1位数的*字符

        count:=StrLen(s100);

        FOR i FROM 1 TO round((40-count)/2) DO

            s1:=s1+" ";

        ENDFOR

        ! 在字符串前增加（40-count）/2位数的空格

        s1:=s1+s100;

        TPWrite s1;

    ENDPROC

    PROC test_xmas()

        TPErase;

        FOR i FROM 1 TO 17 step 2 DO

          ! 循环，令i=1,3,5,7。。。一直到17

            tp_xmas i;

        ENDFOR

        tp_xmas 4;

        tp_xmas 4;

        ! 画树根

    ENDPROC