下面补发MOP看到的其他语言写的代码，活活~


┌───蜗牛，蜗牛，跑.....(-_-)～～～～～～吼吼～！！！───┐
├───天河网-->>--www.skyhe.com--<<--
├───即使生活中没有红粉知己乱世佳人青梅竹马两小无猜高山流水西风瘦马平沙落雁......
└─我一样活的很快乐，因为有了你----我的同学，我的朋友^-^

第11篇

function Love(Vboy:Tboy;Vgril:Tgril):boolean ;
begin
with Vgril do
begin
if ((是处女)and(身高>165)and(体重<100)and(MIMI尺码>34D)and(年龄<25)and(影响市容=false)and(气质>80)and(学历>大专))
or(真心相爱=true) then
Result:=true
else
Result:=false;
end;
end;



┌───蜗牛，蜗牛，跑.....(-_-)～～～～～～吼吼～！！！───┐
├───天河网-->>--www.skyhe.com--<<--
├───即使生活中没有红粉知己乱世佳人青梅竹马两小无猜高山流水西风瘦马平沙落雁......
└─我一样活的很快乐，因为有了你----我的同学，我的朋友^-^

第12篇

Function Marry(Byval Boy as String,Byval Girl as String,Love as Integer) as Boolean

'Love为百分比
On Error Goto 天长日久
dim Count as Long

:Beginning

Select Case Love

Case is >90

if not 包含(Girl,"是处女") then
Marry = false
else
Marry = true
end if

Case is 50 to 90

do until Love >90
if Boy xor Girl ="ML" then Love=Love+0.1:Count=Count+1
......(想不出了....-_-)
(以上省略100行)
loop
goto Beginning

Case is <50

If 包含(Girl,"漂亮") and 包含(Girl,"是处女") and 包含(Girl,"MIMI>36") and 包含(Girl,"身高>170") and 包含(Girl,"体重<100") and 包含(Girl,"年龄<25") and 包含(Girl,"学历>大专") then
Marry=true
else
Marry=false
endif

End Select

Exit Function

:天长日久
msgbox("Game Over","靠!天长日久老也老死了!")

End Function



┌───蜗牛，蜗牛，跑.....(-_-)～～～～～～吼吼～！！！───┐
├───天河网-->>--www.skyhe.com--<<--
├───即使生活中没有红粉知己乱世佳人青梅竹马两小无猜高山流水西风瘦马平沙落雁......
└─我一样活的很快乐，因为有了你----我的同学，我的朋友^-^

第13篇

#include
#include
#include
void main()
{
int I,You;
meet(I,You);
final(I,You);
}
void meet(I,You)
{
if 不是天的安排 then 我不会在网络认识你
　else I cann‘t meet You ;
if 不是那个不经意的玩笑 then 你不会注意我
　else I cann‘t meet You ;
if 不是那个有着灿烂阳光的网络then 我不会爱上你
　else I cann‘t meet You ;
if 不是那次意外的事情then 我不会让你孤单
　else I cann‘t meet You ;
}
string final(I,you)
{
when I meet you do
writeln(" You will be in my heart");
}



┌───蜗牛，蜗牛，跑.....(-_-)～～～～～～吼吼～！！！───┐
├───天河网-->>--www.skyhe.com--<<--
├───即使生活中没有红粉知己乱世佳人青梅竹马两小无猜高山流水西风瘦马平沙落雁......
└─我一样活的很快乐，因为有了你----我的同学，我的朋友^-^

第14篇

int 做饭();
int 洗衣服();
void 向我要钱();
void 收拾屋子();
public:
void 辱骂我();
void 虐待我();
/*析构函数*/
~MyGirlFriend()
{
cout <<"给我陪葬吧!" << endl;
}

};

void MyGirlFriend::做饭(long &天)
{
int 做饭次数;
做饭次数 = 天 * 1;
}

int MyGirlFriend::洗衣服(long &天)
{
int 衣服数量;
int 次数;
金钱 = 次数 * 衣服数量 * 1000;
++次数;
return 衣服数量;
}

void MyGirlFriend::向我要钱(long &天) //从没还过我，所以无返回值
{
金钱 = 金钱 * 天;
}

void MyGirlFriend::收拾屋子(long &天)
{
long 收拾次数
收拾次数 = (10*天) + 1;
}

void 辱骂我(long 天) //骂就骂了，不还给我什么，所以无返回值
{
int 次数;
次数 = 天 * 10;
}

void 虐待我(long &天) //虐待就虐待了，不还我什么，所以无返回值
{
int 次数;
次数 = 天 * 10;
}



┌───蜗牛，蜗牛，跑.....(-_-)～～～～～～吼吼～！！！───┐
├───天河网-->>--www.skyhe.com--<<--
├───即使生活中没有红粉知己乱世佳人青梅竹马两小无猜高山流水西风瘦马平沙落雁......
└─我一样活的很快乐，因为有了你----我的同学，我的朋友^-^

第15篇

void love(void boy,void girl){
if(boy.每月赚钱<8000){
if( girl.有房()&&boy.有车()){
boy.get(房);
boy.get(车);
}
return boy.取(girl);
}
else(boy.每月赚钱>=8000){
if(girl.相貌>98&&girl.贤淑>98)//100是满分
for(int day=1;day<=365;day++){
girl.做家务();
}
return boy.取(girl);
年龄++;
　　 girl.容貌--;
if(girl.容貌<80)
return boy.get(another_girl);
}
}



┌───蜗牛，蜗牛，跑.....(-_-)～～～～～～吼吼～！！！───┐
├───天河网-->>--www.skyhe.com--<<--
├───即使生活中没有红粉知己乱世佳人青梅竹马两小无猜高山流水西风瘦马平沙落雁......
└─我一样活的很快乐，因为有了你----我的同学，我的朋友^-^

第16篇

(deftemplate 女人
(slot 善良 (无效 STRING) (default ?DERIVE))
(slot 勤劳 (无效 STRING) (default ?DERIVE))
(slot 孝敬 (无效 STRING) (default ?DERIVE))
)

(defrule get_女人_information
=>
(printout t "您选的女人漂亮吗？（回答“漂亮”或“不漂亮”）")
(bind ?善良 (read))
(printout t "您选的女人勤劳吗？（回答“是”或“否”）")
(bind ?勤劳 (read))
(printout t "您选的的女人孝敬吗？（回答“是”或“否”）")
(bind ?孝敬 (read))
(assert (女人 (善良 ?善良)
(勤劳 ?勤劳)
(孝敬 ?孝敬)))
)

(defrule check_error
(女人 (善良 ?善良)
(勤劳 ?勤劳)
(孝敬 ?孝敬)
)
(or (and (test (neq ?善良 不漂亮))
(test (neq ?善良 漂亮)))
(and (test (neq ?勤劳 是))
(test (neq ?勤劳 否)))
(and (test (neq ?孝敬 是))
(test (neq ?孝敬 否))))
=>
(printout t "输入错误。" crlf)
(assert (answer 是))
)

(defrule check_善良
(女人 (善良 ?善良)
(孝敬 ?孝敬)
(勤劳 ?勤劳)
)
(or (test (eq ?善良 漂亮))
(test (eq ?善良 不漂亮)))
=>
(assert (善良 ?善良))
(assert (孝敬 ?孝敬))
(assert (勤劳 ?勤劳))
)

(defrule check_否_勤劳_action_y
(女人 (善良 ?善良))
(孝敬 是)
(勤劳 否)
=>
(assert (savanna))
(assert (eat))
(assert (counter 1))
(printout t "应该将" ?善良 "的女人应该调教到勤劳为止。" crlf)
)

(defrule check_否_勤劳_action_n
(女人 (善良 ?善良))
(孝敬 否)
(勤劳 否)
=>
(assert (home))
(assert (sleep))
(assert (counter 1))
(printout t "应该将" ?善良 "的女人一脚踢开。" crlf)
)

(defrule check_漂亮_勤劳_action_y
(善良 漂亮)
(勤劳 是)
(孝敬 是)
=>
(assert (forest))
(assert (eat-at-canopy))
(assert (counter 1))
(printout t "这种漂亮的好姑娘应当好好待她。" crlf)
)

(defrule check_漂亮_勤劳_action_n
(善良 漂亮)
(勤劳 是)
(孝敬 否)
=>
(assert (home))
(assert (stay_still))
(assert (counter 1))
(printout t "这种8懂得孝敬的女人，即使再漂亮也8可以浪费时间在她身上。" crlf)
)

(defrule check_不漂亮_勤劳_action_y
(善良 不漂亮)
(勤劳 是)
(孝敬 是)
=>
(assert (cherry_tree))
(assert (paint_toenails_red))
(assert (counter 1))
(printout t "这种不漂亮的好姑娘，是值得你重新定夺你的审美观点。" crlf)
)

(defrule check_不漂亮_勤劳_action_n
(善良 不漂亮)
(勤劳 是)
(孝敬 否)
=>
(assert (lake))
(assert (hide_under_water))
(assert (counter 1))
(printout t "这种即不漂亮、又8孝敬的女人，要她何用？" crlf)
)

(defrule get_answer
(counter 1)
?counter <- (counter 1)
=>
(printout t "您是否想重新选一位姑娘？（回答“是”或“否”）")
(bind ?answer (read))
(assert (answer ?answer))
(retract ?counter)
)

(defrule check_answer
(answer ?answer)
(and (test (neq ?answer 是))
(test (neq ?answer 否)))
?answ <- (answer ?answer)
=>
(printout t "输入错误。" crlf)
(retract ?answ)
(assert (counter 1))
)

(defrule loop
(answer 是)
=>
(reset)
(run)
)



┌───蜗牛，蜗牛，跑.....(-_-)～～～～～～吼吼～！！！───┐
├───天河网-->>--www.skyhe.com--<<--
├───即使生活中没有红粉知己乱世佳人青梅竹马两小无猜高山流水西风瘦马平沙落雁......
└─我一样活的很快乐，因为有了你----我的同学，我的朋友^-^

第17篇