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

一个女孩写的经典程序

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

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

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

×
  result love(boy, girl)
' r1 j2 A7 ?% d    {
0 W$ j2 }' }* L8 N1 Z1 |    if( boy.有房() and boy.有车() ) 1 I0 Q7 {7 Z4 s+ f+ W
    { ' ]3 T- e- U5 r( W4 p$ O1 w
    boy.set(nothing);   x0 f; H6 w* R! q1 |1 E
     return girl.嫁给(boy);
& y$ f0 e$ i6 Q7 ]9 E      } ( Z) P' _2 C7 |2 k3 s; X. R
    if( girl.愿意等() )
6 z! y& ]5 @2 D' N" ~' T' I     {
$ K8 ~% O& l9 c! w. b     while(!(boy.赚钱 > 100,000 and girl.感情 > 8 ) )
) C2 H; y2 q1 l, C* F) ~3 x     { 7 i4 C9 g$ I1 @2 F/ s0 Z
     for( day=1; day <=365; day++)
! x; Y1 v& n  j. N     {
4 Y3 B+ O. c" k4 Z, v     if( day == 情人节 )
* M& Z/ Q3 q/ k* c) R     if( boy.givegirl(玫瑰) ) " r9 D# r7 p$ ^6 h, T( M# m
     girl.感情++; - w7 m  s( J3 q' x/ S8 \
     else - s7 L* r1 l& h$ }
     girl.感情--; . z8 N) m, T. r* I( a$ d0 s" V
   7 r) i! X! _- a: z0 H
     if( day == girl.生日)
' t$ u9 c; {4 [; h     if( boy.givegirl(玫瑰) ) % z# |& v: F; h9 R0 P, e- I4 w
     girl.感情++; ) W$ D7 ~+ p: H! I; O$ C
     else 5 x7 O  \; x3 Y5 U. e: d! U) f
     girl.感情--; $ e, K) L* G4 I4 H6 b- k4 e) n
     boy.拼命赚钱();
' b9 ]9 [* Q! B0 F6 F9 |4 }     }
9 a: m2 u& {. y) V3 P     } " g* y3 q+ y0 j* m2 k% f
        if( boy.有房() and boy.有车() )
8 Y  v; T& z3 |- n7 s2 v) }        { / y  d. C- G; S: S
     boy.set(nothing); : }: c/ y* d6 K6 _
     return girl.嫁给(boy); 5 e  k6 E! L$ u7 S* |( w2 r( D" R
     }
; m" _3 y/ l5 H2 J3 e* F) f: S     年龄++;
5 v7 S& i# x7 N; W) X     girl.感情--; 5 ^1 P# \# e9 w6 @! Y
     } ( t0 W3 `' @% a
     return girl.goto( another_boy); 6 c* z, L, w7 g/ F. b5 b
     }
* g2 K! s, V' [. X, o0 B/ r% K5 s- |( y9 y% a4 O. _3 e9 }
; v9 [' W$ \; L# T: x' y

0 s' O7 V- ^  {- A2 t有网友问:运行后的结果是什么。。。。。。。。。+ h% j0 a0 p9 o6 |  Y. t0 g! ]

* @& S% Q5 n8 |  ~
. \3 S/ ?4 }3 z: N8 C1 j4 K, d$ z2 B  V/ V5 e0 t. ^' l: z* K
有网友回:变成老处女。。。。。。
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发表的 :: Q! w$ `5 J6 m
有网友回:变成老处女。。。。。。
错了,有这些她一定会被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 月 4 日 15:47 , Processed in 0.149005 second(s), 21 queries .

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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