5-12 简易排序、控制台画图

小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
判断(消息)为 窗口关闭{停止(0)}
为 单击左键 测试排序
否则{处理窗口(窗口,消息,参数,数据)}
结束;整数 测试(10)={40,10,100,90,20,25,88,56,33,12};
小程序 窗体启动
桌面.左=窗体
读取消息
结束;
小程序 测试排序

整数 缓存=申请内存(128)
整数 指针=缓存,值,内容=@测试
排序(内容,10,4,@比较)

循环数组(值<内容(10)&)
指针+格式化(指针,"%d ",值)
改窗口字(标签2,缓存)
释放内存(缓存)
结束;
小程序 比较
指令[8B45088B4D0C8B002B01]
结束;
//1 end

引入 "lib\user32.lib","lib\gdi32.lib";
整数 窗体,设备,图像,图层,画刷,白笔,红笔,绿笔,蓝笔,弧=10;
小数 圆=3.14159265;文本 路径[64]
小程序 初始启动
模块名称(0,路径,64)
窗体=查找窗口(0,路径)
移动窗口(窗体,0,0,850,800,假)
图层=取设备(窗体)
设备=创建设备(图层)
图像=创建图像(图层,850,800)
选择对象(设备,图像)
画刷=创建画刷($FFFFFF)
白笔=创建画笔(0,1,$FFFFFF)
红笔=创建画笔(0,2,$9FF)
绿笔=创建画笔(0,2,$FF30)
蓝笔=创建画笔(0,2,$FF0000)
选择对象(设备,画刷)
循环{延时(10)绘图程序}
结束;
小程序 绘图程序

整数 数=0,左,上;小数 值,勾,股,弦;浮点 角,度
选择对象(设备,白笔)
画方块(设备,0,0,850,800)
循环(数<3000)
{
    角=圆/1500.0 * 数 - 圆
    勾=余弦(角)
    股=正弦(角)
    角+弧/100;
    度=角*7;弦=余弦(度)
    值=弦 + 1;
    度=角*3;弦=正弦(度)
    度=弦*1.5;弦=度*度
    值=(弦 + 值) *90;
    左=勾*值;
    上=股*值;
    判断(数)为 <1000选择对象(设备,红笔)
    为 <2000选择对象(设备,绿笔)
    否则    选择对象(设备,蓝笔)
    移到(设备,450,400,0)
    画线(设备,左+450,400-上)
    数++
}弧++如果(弧>999)弧=0;

位图传输(图层,0,0,850,800, 设备,0,0,原图复制)
结束;