申请终生成就勋章

imath

我们用反证法:

假设阿拉不能申请到勋章
则舍我其谁?
我不申请到谁能申请到?
显然应该有人申请到.
于是得出矛盾.
所以阿拉可以申请到.

chsi

本勋章手工发放，暂不开放申请

imath

手工发放给我吧

chsi

也不接受索要

疯不狂

权威，这个勋章是要公认的。
你不服气可以投票观察

imath

好!那就投票.

imath

现在发不起投票贴...

Ulysses

按照你的反证法，那我改名叫“阿拉”好了j_0012.gif

imath

阿拉又不是名字,而是代词

chsi

现在不许随意投票。要投票的可以向我申请。

hcz

Procedure Authority;
Var i:integer;
Begin
  Try
    If not get(handle,find('终身成就','勋章')) then For i:=0 to length(People)-1 do People[i].勋章.Destory;
  Except
    Showmessage('');
  End;
End;

>Run
[Error] Unit1.pas(5):Can not destory

yzhang37

1. 
   
2. Option Explicit
   
3. Public Declare Function GetAuthority(Byval Name As Code)As Long
   
4. Public Const ZSA=&H0ea3df&
   
5. Public Const IGot=&H010101&
   
6. Public Const
   
7. Private Sub Form1_Load()
   
8. Produce Authority
   
9. Dim i As ZSAuthority
   
10. A:
    
11. i=GetAuthority(ZSA)
    
12. If i=IGot Then
    
13. Msgbox "我真是太高兴了！太高兴了？太高兴了/ 太高兴了◎太高兴了＃",vbInformation,"声请终生成就勋章"
    
14. Exit Sub
    
15. Else
    
16. j=Msgbox("你还要继续吗？",vbExclamation+vbYesNo,"确认")
    
17. If j=vbYes Then Goto A
    
18. End if
    
19. End Sub
    

复制代码

Cyvre

Procedure Authority;
Var i:integer;
Begin
  Try
    If not get(handle,find('终身成就','勋章')) then For i:=0 to length(People)-1 do People.勋章.Destory;
  Except
    Showmessage('');
  End;
En ...
hcz 发表于 2010-10-17 20:31

这是啥语言？

chsi

这是啥语言？
Cyvre 发表于 2010-10-17 21:37

Pascal

diameter

Option Explicit
Public Declare Function GetAuthority(Byval Name As Code)As Long
Public Const ZSA=&H0ea3df&
Public Const IGot=&H010101&
Public Const
Private Sub Form1_Load()
Produce Authority
...
yzhang37 发表于 2010-10-17 21:35

可怕的Visual Basic，意大利面逻辑……
（我看见了GoTo……）

l5h5t7

你的证明有问题，条件不足。

diameter

写代码的事当初饕怎么没有凑热闹？
补上一段
#include <stdio.h>
#define FOREVER for(;;)
int main(void)
{
        char * c = "jnbui!jt!uif!cjhhftu!tc\"";
        char * l;
        FOREVER
        {
                for(l = c;*l!=NULL;l++)
                {
                        putchar(*l-1);
                }
                putchar('\n');
        }
        return 0;
}