我的汉编作品

/*
 * 拷贝右 (西) 二零零八 逸仙之狼工作室
 * 所有权限被保留
 * 文件名 : 汉语编程演示程序示例.源文件
 * 编写日期:二零零八年三月二十八日
 * 修订版本:一点五
 * 作者:艾文尼 在 逸仙时空
 * 版权所有，翻版必究
 */

# 包含 "人.头文件"
# 包含 "男人.头文件"

/**
 * 类 : 女人
 * 描述 : 继承父类人,实现女人某些基本功能
 */
公共 类 女人:公共 人
{

    公共:
      女人(字符串 姓名,整数 年龄,三元组 她的三围,布尔 她的发长):
      人(姓名,年龄),三围(她的三围),发长(她的发长){}

      ~女人(){}

     /**
      * 方法 : 亲吻
      * 效果 : 亲吻一个人
      * 参数 : 指向一个人对象的指针
      * 返回 : 真 如果 成功 假 如果 失败
      */
      布尔 亲吻(对象 指针 某人):抛出 反抗异常
     {
           尝试
           {
               这个.拥抱(某人);
               这个.咬嘴唇(某人;
               这个.舔舌头(某人);
           }
           抓住(反抗异常 异常)
           {
                返回 假;
            }
           返回 真;
     }
     私有:
          三元组 三围;
          布尔  发长;
}

字符串 姓名数组 [][]={"萝莉","御姐"};

整数  主要()
{
        // 创建一个女人对象
        女人 指针 美女;
        // 创建男人,我
        男人  我;

        整数 索引;
        整数  年龄;
        布尔  长发 赋值 真;
        三元组  三围;
        当(真)
       {// 在死循环内歪歪
              索引 赋值 随机() 取模 二;
              如果 (  索引 等于 零 )
             {
                     年龄 赋值 十五;
                     三围.设置(三十,十八,二十);
             }
              否则
             {
                     年龄 赋值  二十五;
                     三围.设置(三十五,二十,二十五);
              }
              美女 = 新 女人(姓名数组[索引],年龄,三围,长发 取反);
              美女->亲吻(我);
              删除 美女;
        }
       返回 零;
}