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

一个女孩写的经典程序

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

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

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

×
  result love(boy, girl)
& X& G0 I5 f& m1 C4 \, B: o. Y    {
7 h( e, V+ H" x& X4 o# u    if( boy.有房() and boy.有车() ) 9 U" C$ M/ q+ k+ f
    { * v+ {& s+ }, Z
    boy.set(nothing);
4 j2 K  u: j6 M8 W5 |     return girl.嫁给(boy);
( K' C. k! f9 Z$ {" ?1 }      } ( R' u- K$ m% S/ l$ U$ z
    if( girl.愿意等() ) : m+ J; L# C$ |
     {
: P/ D" |1 I+ _! s, w: ^     while(!(boy.赚钱 > 100,000 and girl.感情 > 8 ) ) : o, h$ c8 ]" E$ _9 `
     {
5 s: N6 A$ Z/ e6 C/ B: ~: ]) o2 p     for( day=1; day <=365; day++) , F" Y; s) D7 }3 n. u
     {
7 h, i! g5 W6 f' X) J! I. a& |2 F     if( day == 情人节 )
3 F0 H2 c. Y' y     if( boy.givegirl(玫瑰) )
# B/ K% I  w  {! t     girl.感情++;
, O' q' P% F7 m4 y( z2 ], \     else
  I6 S: `9 T" o8 P2 ~     girl.感情--; , m3 Q! |, x& D2 A! M
  
" ?# S, r/ Q2 q7 p: S4 H     if( day == girl.生日) " z" M4 v% A9 E2 p" q
     if( boy.givegirl(玫瑰) ) 8 o! W5 Z. v1 u2 M# H
     girl.感情++;
) J7 `' `. S4 g% `0 R     else 1 c4 e% f; Z3 z1 r3 C% g7 Q; U4 U7 o
     girl.感情--;
4 t; R7 G; I0 K. L# j     boy.拼命赚钱(); : X5 `/ A& ?! i+ g. E
     }
- z: ~# Z4 R$ x1 x) K     }   b; d) O$ \8 d- V+ w
        if( boy.有房() and boy.有车() ) . E( C  @' b, y0 n! k; _' `; ]
        { % z6 q7 N" ^% o$ K
     boy.set(nothing);
/ E, n  `2 l- X& ?# |  ?% z; z     return girl.嫁给(boy); 8 z5 h; x+ x" L. n$ Y# g7 s
     }
( V) P  }: O4 C; O     年龄++; % J2 b, p! V8 T9 ?3 E
     girl.感情--; 9 b$ }2 ^& J8 ~2 e( I$ O3 R* I
     }
, H# b7 Z9 K" Z* d4 @' h+ ~     return girl.goto( another_boy);
6 ]$ X; h. [( ]2 E) p     }
* V- e; o& k* @& |7 @
/ g  z4 Q1 `' b
3 |% V3 S7 N6 Z9 v! j( p' D3 Q/ m/ W% k1 S) K
有网友问:运行后的结果是什么。。。。。。。。。7 n4 W- \6 a! q; M8 ]" m3 t
9 G9 G0 e' j. ^/ O

2 q" @1 b% g$ J4 `; f
/ f/ }; w: J4 n有网友回:变成老处女。。。。。。
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发表的 :0 W2 i% k0 c% n9 O9 O, [
有网友回:变成老处女。。。。。。
错了,有这些她一定会被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 年 5 月 15 日 13:01 , Processed in 0.018116 second(s), 19 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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