找回密码
 注册
广告投放 虚位以待【阿里云】2核2G云新老同享 99元/年,续费同价做网站就用糖果主机-sugarhosts.comJtti.com-新加坡服务器,美国服务器,香港服务器
查看: 472|回复: 4

一个女孩写的经典程序

[复制链接]
发表于 2004 年 10 月 16 日 13:48:22 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册

×
  result love(boy, girl)
' a& n" b3 k7 w    { - e$ n% d& w1 t
    if( boy.有房() and boy.有车() ) ! l" P) U1 F* j$ m8 Q
    {
: `' `- s, k! b. Z9 E    boy.set(nothing); % E2 G  `. G6 _9 W/ s& x- r8 I/ @
     return girl.嫁给(boy); : y/ S5 X+ O  {/ t( N0 ~- @. m
      }
: N6 p9 F4 `- E% Q    if( girl.愿意等() ) 3 J1 l2 X' V# N, t
     {
' n1 X4 \7 k% W2 _     while(!(boy.赚钱 > 100,000 and girl.感情 > 8 ) )
8 a: G+ C7 ~) [& z9 F     {
( k$ U3 f# L% F+ B# |( H! H     for( day=1; day <=365; day++) ) C; o" `4 F3 \) Z3 j+ A9 U4 u3 k
     { 1 z2 \- l. l8 \  H# r
     if( day == 情人节 ) - o9 a" q) n% y% A" H1 [. Q
     if( boy.givegirl(玫瑰) ) . Z) z' a; J4 i& s2 Z
     girl.感情++; : L( Z. X! M& }8 K- Q5 k
     else
) X5 W# B3 S* }1 W( |     girl.感情--; - L( |7 E; j* ^! @
  
$ z, O: s( Z9 d1 M1 M     if( day == girl.生日) # t: ~# ?! ~# {6 I& M. R
     if( boy.givegirl(玫瑰) )
* e/ h% s) R/ ]3 Z8 q; O" n     girl.感情++; 5 K: e2 K0 S/ H+ R6 [
     else 9 t, R! J( H- ^+ A% @
     girl.感情--;
% e& }( a  a9 E+ V  t! Y4 k$ J9 `     boy.拼命赚钱();
9 L3 p; @# t4 j' }2 @& K' o& _8 }     } + I" M3 S5 W, f$ b8 C( N) x. H
     }
$ o3 f$ I: {1 P$ s- n( `        if( boy.有房() and boy.有车() )
! b, C, i. |2 f. m: f/ H        { $ n! A- t. |0 ?8 Y
     boy.set(nothing);
: K5 O( s+ F2 c- B( \3 A     return girl.嫁给(boy);
; [3 o$ `- x% F  B2 e     }
9 R! d. T9 d5 `$ n' X0 @     年龄++; / h& h) V" `. c2 p; {6 l
     girl.感情--;
7 ^, V; q  K* E# B, M$ e/ N$ C     } 9 q$ C4 R, V, X
     return girl.goto( another_boy);
8 u5 k- U7 {6 R" l     }, o: [, q# _% L# t# r! k# \8 ]* B- {

$ p: p" \6 Y. c) ~( n) I' _3 r/ c1 {& ]8 J6 K

5 _# f& `9 X( k2 v8 y有网友问:运行后的结果是什么。。。。。。。。。
0 V/ K( z0 L: g# X$ o0 ^
) t# V, C- e$ _5 i: I* ^
$ l  Y) n5 c( W
) A/ L0 U! I/ N& M5 G: H+ z' n( |9 L/ ~有网友回:变成老处女。。。。。。
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
发表于 2004 年 10 月 16 日 15:36:19 | 显示全部楼层
【腾讯云】2核2G云服务器新老同享 99元/年,续费同价
有网友回:变成老处女。。。。。。
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

发表于 2004 年 10 月 16 日 16:14:01 | 显示全部楼层
老东西 但是不知道 能不能运行
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

发表于 2004 年 10 月 16 日 16:28:13 | 显示全部楼层
下面是引用bbs2006于2004-10-16 3:36 PM发表的 :' }1 O, t- J  e/ H
有网友回:变成老处女。。。。。。
错了,有这些她一定会被XX
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

发表于 2004 年 10 月 16 日 16:29:12 | 显示全部楼层
看不懂。。。。。。
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|金光论坛

GMT+8, 2025 年 3 月 12 日 20:17 , Processed in 0.018652 second(s), 21 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表