【转】某女生编的c语言程序

最新推荐文章于 2024-07-26 23:56:13 发布

volkswageos

最新推荐文章于 2024-07-26 23:56:13 发布

阅读量1.1k

点赞数

文章标签：语言 c function integer string

本文链接：https://blog.csdn.net/volkswageos/article/details/6501385

版权

Dear all: result love(boy, girl) {
　if ( boy.有房() and boy.有车() )
　　　{
　　　　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