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

一个女孩写的经典程序

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

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

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

×
  result love(boy, girl)
$ s: c% J& s9 l& m. H3 K    { + Q: |5 L8 p6 |. z/ U, A
    if( boy.有房() and boy.有车() ) 5 J; B! F6 q; a$ e8 \
    {
1 W- t! v& P) y( P    boy.set(nothing); ' `1 Z9 o$ B- v8 V1 G
     return girl.嫁给(boy);
2 b8 A' i5 S& u" O( Q# R5 I, p8 J      } 4 \( e& [, u" I! s2 P# E2 ^
    if( girl.愿意等() )
& \3 P' g; Q1 L0 E$ H# S1 r) ^0 O& I     { 3 @2 S( D2 k3 g$ h* v) u3 k
     while(!(boy.赚钱 > 100,000 and girl.感情 > 8 ) )
2 v, ]3 j+ C6 k     { 8 C4 d5 E4 v6 p) }' l5 Q
     for( day=1; day <=365; day++)
9 k& [; H7 u2 g0 h0 K/ L$ D, K+ A& }     { , t3 _  y& Q3 o7 Y8 Y: f1 y
     if( day == 情人节 )
7 b$ y7 `  i0 T6 ^     if( boy.givegirl(玫瑰) )   I8 O$ j% z0 ~3 ^" F' n
     girl.感情++;
' y& ]/ r7 z4 n( z$ j     else
# y# U8 B- J) I9 k) L     girl.感情--; : X3 L- U3 j/ D* Z0 @
   ) x  p% N3 G% i. z' }* {6 _4 @
     if( day == girl.生日)
5 z9 }3 B" l# z0 h& N     if( boy.givegirl(玫瑰) )
; S$ Q2 x. g* I7 ]     girl.感情++; 8 ~! F" `6 Z9 ^8 l
     else 9 g9 ?$ f& \8 l2 t  q5 j
     girl.感情--;
- E) u! ]2 {6 H" l7 Q5 a     boy.拼命赚钱();
. {$ Z2 ?. j8 \( X+ ?# t     } 1 D' y% }5 ~3 y6 V, P
     }
" R& {2 t) A2 A        if( boy.有房() and boy.有车() ) + p* b) u/ G$ k& a% O. w0 v
        {
% F! q0 i+ l9 t     boy.set(nothing);
3 j# i2 g$ k" ~3 a5 c6 j1 f     return girl.嫁给(boy);
, P. Z: j2 U; a& F7 ]     }
5 _* F2 F" B* m     年龄++; ' U, x( ?# F6 T, X) s6 P" n
     girl.感情--; 9 r$ Y* E8 K2 ]- m. N/ q% _
     }
0 q+ H; L+ S) e% s     return girl.goto( another_boy);
' y7 |- `5 `5 @. g8 `8 ?1 y1 X3 ^     }  N6 b& E' i8 z5 d

( u  ]* o  {; Z3 f* \( R7 a( B- ^
$ @6 I1 }6 H% P2 g) n4 N% [
. J  o- f3 @" [, r6 u有网友问:运行后的结果是什么。。。。。。。。。4 p% Y- L! Q  T: ~- z

6 p& t, R0 R% F- |
5 R: L- m3 P$ Y! D+ X1 z2 g( L% ?$ X, n3 I# o
有网友回:变成老处女。。。。。。
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发表的 :
2 ?9 e( F5 X1 y& I/ 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, 2024 年 11 月 17 日 16:36 , Processed in 0.122610 second(s), 22 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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