论坛风格切换切换到宽版
  • 3144阅读
  • 6回复

源程序 [复制链接]

上一主题 下一主题
离线BG3AIE
 
发帖
9608
只看楼主 倒序阅读 0楼 发表于: 2006-07-16
result love(boy, girl)
    {
    if( boy.有房() and boy.有车() )
    {
    boy.set(nothing);
     return girl.嫁给(boy);
      }
    if( girl.愿意等() )
     {
     while(!(boy.赚钱 > 100,000 and girl.感情 > 8 ) )
     {
     for( day=1; day <=365; day++)
     {
     if( day == 情人节 )
     if( boy.givegirl(玫瑰) )
     girl.感情++;
     else
     girl.感情--;
  
     if( day == girl.生日)
     if( boy.givegirl(玫瑰) )
     girl.感情++;
     else
     girl.感情--;
     boy.拼命赚钱();
     }
     }
        if( boy.有房() and boy.有车() )
        {
     boy.set(nothing);
     return girl.嫁给(boy);
     }
     年龄++;
     girl.感情--;
     }
     return girl.goto( another_boy);
     }
离线汤圆
发帖
1157
只看该作者 1楼 发表于: 2006-07-16
^_^^_^^_^^_^^_^
离线bg4iww
发帖
8700
只看该作者 2楼 发表于: 2006-07-17
楼主改成汇编语言的吧,执行效率还高
离线BG4XCR
发帖
33381
只看该作者 3楼 发表于: 2006-07-17
我帮他改!!
org 0000h
ajmp   start
org 000bh
ajmp   time0  
org 30h
start:
  mov p1,#0ffh
  mov 30h,#00h
  mov tmod,#00000001b
  mov th0,#3ch
  mov tl0,#0b0h
  setb   ea
  setb   et0
setb   tr0    
loop:   ajmp   loop  
time0:      
  push   acc
push   psw
  inc 30h
  mov a,30h
  cjne   a,#20,t_ret
t_l1:   cpl p1.0  
  mov 30h,#0        
t_ret:
  mov th0,#15h
  mov tl0,#9fh
  pop psw
  pop acc
  reti
end
离线elecele
发帖
894
只看该作者 4楼 发表于: 2006-07-17
拜托你加上注释。
发帖
1284
只看该作者 5楼 发表于: 2006-08-01
类c语言,现在都.net了.
离线ljchip
发帖
459
只看该作者 6楼 发表于: 2006-08-03
这个程序可以用在什么咚咚上面啊?