找回密码
 注册
【阿里云】2核2G云新老同享 99元/年,续费同价华为云精选云产品特惠做网站就用糖果主机Jtti,新加坡服务器,美国服务器,香港服务器
查看: 468|回复: 4

一个女孩写的经典程序

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

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

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

×
  result love(boy, girl)
1 b% G5 W. u) {    {
" n' R7 M; u0 u. G    if( boy.有房() and boy.有车() ) . }9 C* `) d1 Y- u7 l
    {
% P# n" Z  _4 |3 _    boy.set(nothing); : l6 s% g: z  Y
     return girl.嫁给(boy);   a8 m6 R. G8 D; Z3 y
      } ! l: d. H& a) A& l* r
    if( girl.愿意等() )
& i. l5 U+ y" B. N, p* r1 W     { , M3 p0 c) G8 F4 T+ d
     while(!(boy.赚钱 > 100,000 and girl.感情 > 8 ) )
( A3 Y6 |2 G2 z8 k) K5 @     { 4 k: |3 I* o6 U4 k& n
     for( day=1; day <=365; day++)
  `5 |3 C5 f% A9 f( q/ ]% a2 Z     { 9 u- z5 u. k2 A* y; Z
     if( day == 情人节 ) ; c& f* |3 B" Q4 I. D( f; L! g% M6 s
     if( boy.givegirl(玫瑰) )
- W% f, K, p# @     girl.感情++; + v' Y$ T3 x+ b9 b; `7 ?8 u, U
     else ' T9 p; L1 r4 {* h) Y; k1 Y
     girl.感情--;
3 K2 L8 {2 o9 F# v& F& S  Z1 O$ J   ) n6 h( f5 O9 ~7 P4 T4 L
     if( day == girl.生日) % n: A! `! z; s
     if( boy.givegirl(玫瑰) ) + k! S" ?. H; n! c! g
     girl.感情++;
* R1 A" _9 _, f( ^! @9 D     else ) W  c5 L3 l2 ]: W
     girl.感情--;
  \# h. N. n: e. V) D     boy.拼命赚钱();
" s5 Q) Y( {/ k* f2 K$ p+ F     }
( [! V3 n+ M, ?8 h( K2 W     }
9 M! n$ J( K  C" H& @8 j0 Y$ ^6 ]        if( boy.有房() and boy.有车() )
5 P% s7 x% F7 }' t5 l3 d7 i$ \# f        {
* D2 Q1 s7 |7 w  }1 M     boy.set(nothing);
5 V/ w( X) N; y6 G  F     return girl.嫁给(boy);
9 y9 g, Q, k- |8 C* D$ l) s. T! U' ~     }
# B5 C% q- ]/ q4 Y! z, C     年龄++; 0 I9 X; V! R  k2 u, N) b
     girl.感情--; 0 V! ~; V. w* d5 v# |( i2 `  L' |
     } % Y3 g' Y4 M9 T. m4 `$ `) j
     return girl.goto( another_boy); 8 F* D" y/ w1 j; F/ v3 Z+ B8 S' W
     }2 u  C; C8 R7 D

9 d( \- Z( }$ D! @+ d  I# i" `: o4 n/ F7 P8 i

. q1 w( u, y: S$ P有网友问:运行后的结果是什么。。。。。。。。。
6 y# l, e, i( z5 `; B) s* d# `" `
4 P7 d, W% z" X& [: P
: {  ~5 m% J4 Q, C/ M
有网友回:变成老处女。。。。。。
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发表的 :) t- C7 S$ c0 Y! o  H8 ^
有网友回:变成老处女。。。。。。
错了,有这些她一定会被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, 2024 年 11 月 17 日 07:39 , Processed in 0.020024 second(s), 22 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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