1 某女生编的C语言程序
Dear all:
result love(boy, girl)
{-
if ( boy.有房() and boy.有车() )
[color=blue][/color] {-
boy.set(nothing);
return girl.嫁给(boy);
}
if ( girl.愿意等() )
{-
while( ! (boy.赚钱 ＞ 100,000 and girl.感情 ＞ 8 )
{-
for ( day=1; day ＜=365; day++)
{-
if ( day == 情人节 )
if ( boy.givegirl(玫瑰) )
girl.感情++;
else
girl.感情--;
if( day == girl.生日)
if ( boy.givegirl(玫瑰) )
girl.感情++;
else
girl.感情--;
boy.拼命赚钱();
}
}
if ( boy.有房() and boy.有车() )
{-
boy.set(nothing);
return girl.嫁给(boy);
}
年龄++;
girl.感情--;
}
return girl.goto( another_boy);
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;
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
