找回密码
 注册
美国原生IP服务器推荐-Yv.gs
【阿里云】2核2G云新老同享 99元/年,续费同价做网站就用糖果主机-sugarhosts.comJtti.com-新加坡服务器,美国服务器,香港服务器
查看: 469|回复: 4

一个女孩写的经典程序

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

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

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

×
  result love(boy, girl)
7 b0 y& A+ P( {( k  F4 c( V    { $ m- ^0 ^+ B: O1 p5 b
    if( boy.有房() and boy.有车() ) ' C9 s% p+ s( R; R& w
    {
- \+ @" h$ ?1 ~+ J+ O0 @    boy.set(nothing); % k* `" ]- O% t: Z  Q" l
     return girl.嫁给(boy); % J- c. X, \1 K" v: k% N& H$ [) }
      }
7 i& N* Y6 g5 I1 {& @# {    if( girl.愿意等() ) - A( ]' [  ?+ K" h
     { 0 K3 O; \. @- n* g$ Z' x
     while(!(boy.赚钱 > 100,000 and girl.感情 > 8 ) ) * M6 h) c) u3 |. x( S
     { + n6 G6 p/ u; b
     for( day=1; day <=365; day++) # r7 o! p! w, S! ^4 `8 [
     {
/ D# Y8 q% P/ Q6 A     if( day == 情人节 )
  {8 u2 l4 l- x9 B     if( boy.givegirl(玫瑰) ) + F$ Y! p/ I8 n" w
     girl.感情++;
( P- J, u' D3 F/ j7 `     else
+ ~0 E* Q8 r6 z. t& k     girl.感情--;
9 D+ r0 ~1 u9 A/ s1 V3 ?, F2 m   : Q! n& y: Y  U5 G  _, a
     if( day == girl.生日)
" g6 q0 T+ f* ]# Y0 W9 e' E5 \     if( boy.givegirl(玫瑰) )
" D5 i7 S& q1 P; i' `     girl.感情++;
( f5 r: W% O6 f6 n- C+ q/ ]! u     else 6 h& U( b6 A% o5 o! E/ ^
     girl.感情--;
/ G# n" l3 {$ p7 x     boy.拼命赚钱(); 9 A9 K9 w$ Q# [( ]0 l% P& ^
     }
! K- O4 r, i7 U3 a4 h' R     }
0 \* K  ~! ?* w& ?: @5 ^& B        if( boy.有房() and boy.有车() )
  v! Y2 N4 w9 _1 w7 g0 r; J" j        {
5 ~( A: J0 x! [2 O, _4 U     boy.set(nothing);
  p% A7 \! E& v8 u: |     return girl.嫁给(boy);
! c2 {  N( J8 U     }
1 r" Z# M; z, T# t! w     年龄++;
5 W, D% X! y) `, J8 X8 j* k$ G# Q     girl.感情--;
# S; w' Q- w( k, j- l" p; Y     } # k2 b/ p$ H1 e/ d3 m
     return girl.goto( another_boy); 3 V2 s3 W6 Q6 ^. P. v' t8 \2 b
     }
  V8 `5 j: l1 f8 n; k1 E1 ], y0 \3 `/ W7 d4 [9 ~" h

2 |- s4 y1 I" I3 Z8 _" D3 ]" i/ w$ o8 d1 w8 I8 _1 B) y: D
有网友问:运行后的结果是什么。。。。。。。。。
7 ~1 w9 G4 e+ l7 x4 l) ~1 M! A- i& q" M1 M  T

8 S7 s7 Z4 V, p! U# L9 s  S0 A
% ]  {/ u$ d/ t3 o8 V- \0 w' ]( O9 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发表的 :
7 K6 S. |- D7 l# h4 R有网友回:变成老处女。。。。。。
错了,有这些她一定会被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
回复

使用道具 举报

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

本版积分规则

美国原生IP服务器推荐|Archiver|手机版|小黑屋|金光论坛

GMT+8, 2025 年 1 月 21 日 05:58 , Processed in 0.028804 second(s), 21 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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