百钱买百鸡

/*
公元前五世纪，我国古代数学家张丘建在《算经》一书中提出了“百鸡问题”：
鸡翁一值钱五，鸡母一值钱三，鸡雏三值钱一。
百钱买百鸡，问鸡翁、鸡母、鸡雏各几何？

以下为 易用脚本实现的算法源码...
*/
sub main()
{
    int cocks, hens, chicks;
    char r;
    cocks = 0;
    while (cocks <= 100/5)
        hens = 0;
        while (hens <= 100/3)
            chicks = 100 - cocks - hens;
            if ((5*cocks + 3*hens + chicks/3 = 100) && (chicks%3 = 0))
                r&="翁鸡:" & cocks&" 母鸡:" & hens &" 小鸡:"& chicks&#crlf;
            end if;
            hens++;
        loop;
        cocks++;
    loop;
    msgbox(r);
 一些钱买一些东西(100,5,3,3/1);
}
函数 一些钱买一些东西(浮点型 总钱数,浮点型 东西1价格,浮点型 东西2价格,浮点型 东西3价格)
{
 长整型 东西1,东西2,东西3;
 字符型 结果;
 东西1=0;

 判断循环(东西1<=总钱数/东西1价格)
  东西2=0;
  判断循环(东西2<=总钱数/东西2价格)
   东西3=总钱数-东西1-东西2;
   如果((东西1价格*东西1+东西2价格*东西2+东西3/东西3价格=100)&&(东西3%3=0))
    结果&="东西1:"&东西1&" 东西2:"&东西2&" 东西3:"&东西3&#换行符;
   如果结束;
   东西2++;
  判断环尾;
  东西1++;
 判断环尾;
 信息框(结果);
}