细胞自动机-控制台程序-极语言教程

小程序 初始启动
整数 上爻,中爻,下爻,卦数,卦,数;
文本 卦象[8],卦义[100],卦辞[100];
标记 重算
清零;
写文字("请输入卦数:");
读格式("%d",@卦数);
循环(卦数>0)
{
卦象(数)=卦数 % 2;
数++;
卦数=卦数>>1;
}
卦义(49)=1;
卦义(50)=1;
循环(50)
{上爻=卦义(99);
中爻=卦义(0);
下爻=卦义(1);
循环于(数=0;数<100;数++)
{
如果(中爻>0){写字符(\*);}
否则{写字符(32);}
卦=0;
如果(上爻=1){卦|4;}
如果(中爻=1){卦|2;}
如果(下爻=1){卦|1;}
上爻=中爻;
中爻=下爻;
下爻=如果是(数<98)卦义(数+2),卦义(0)
卦辞(数)=卦象(卦)}
内存复制(卦义,卦辞,100)
写字符(10);
}
命令行("pause")
命令行("cls")
跳到 重算
结束;