申请终生成就勋章
我们用反证法:假设阿拉不能申请到勋章
则舍我其谁?
我不申请到谁能申请到?
显然应该有人申请到.
于是得出矛盾.
所以阿拉可以申请到. 本勋章手工发放,暂不开放申请 手工发放给我吧 也不接受索要 权威,这个勋章是要公认的。
你不服气可以投票观察 好!那就投票. 现在发不起投票贴... 按照你的反证法,那我改名叫“阿拉”好了j_0012.gif 阿拉又不是名字,而是代词 现在不许随意投票。要投票的可以向我申请。 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;
End;
>Run
Unit1.pas(5):Can not destory
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
Dim i As ZSAuthority
A:
i=GetAuthority(ZSA)
If i=IGot Then
Msgbox "我真是太高兴了!太高兴了?太高兴了/ 太高兴了◎太高兴了#",vbInformation,"声请终生成就勋章"
Exit Sub
Else
j=Msgbox("你还要继续吗?",vbExclamation+vbYesNo,"确认")
If j=vbYes Then Goto A
End if
End Sub
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 http://www.cncalc.org/images/common/back.gif这是啥语言? 这是啥语言?
Cyvre 发表于 2010-10-17 21:37 http://www.cncalc.org/images/common/back.gif
Pascal
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 http://www.cncalc.org/images/common/back.gif
可怕的Visual Basic,意大利面逻辑……
(我看见了GoTo……) 你的证明有问题,条件不足。 本帖最后由 diameter 于 2011-1-2 16:28 编辑
写代码的事当初饕怎么没有凑热闹?
补上一段
#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;
}
页:
[1]