寒夜客来酒当茶——绿蚁新醅酒,红泥小火炉。火炉红时汤正沸,你说是酒还是茶? 落葭飞答夜瞳问

公告

最近一切安好,没有什么需要特别交待的。
2007/03/15

用autoit3做计算题

一直以为自己的数学不错,这当然和读书时期N多试卷成绩有关。

一直也以为自己统计也不错的,虽然不是专修。

但事实上,一道很简单的数学题一样无解。

题目:

6位数中由无重复数字组成的数字有哪些?

第一反应:少于100万。

第二反应:10*9*8*7*6*5

第三反应:不对啊比如说012345这样的数字其实不是6位数……* *||

那你认为一共有多少?

答案是:136080。

计算过程如下:

$file = FileOpen("test.txt", 1)

$A=1

$B=0

$C=0

$D=0

$E=0

$F=0

while $A<10

$B=0

while $B<10

IF $B=$A then

$B=$B+1

ContinueLoop

ENDIF

$C=0

while $C<10

IF $C=$A or $C=$B then

$C=$C+1

ContinueLoop

ENDIF

$D=0

while $D<10

IF $D=$A or $D=$B or $D=$C then

$D=$D+1

ContinueLoop

ENDIF

$E=0

while $E<10

IF $E=$A or $E=$B or $E=$C or $E=$D then

$E=$E+1

ContinueLoop

ENDIF

$F=0

while $F<10

IF $F<>$A and $F<>$B and $F<>$C and $F<>$D and $F<>$E then

$X=100000*$A+10000*$B+1000*$C+100*$D+10*$E+$F

FileWrite($file,$X & " ")

ENDIF

$F=$F+1

WEnd

$E=$E+1

WEnd

$D=$D+1

WEnd

$C=$C+1

WEnd

$B=$B+1

WEnd

$A=$A+1

WEnd

FileClose($file)

以上是autoit3的脚本。但计算完成了吗?不,还没有。

最后要做的是打开test.txt文件,数数一共有多少行?

= =||

决定今年要学会一种语言,当然不是autoit3。目标1能看懂程序,二能用它处理简单的事情。虽然autoit3似乎也够用了……

评论:

刘老实 说...

……据说有些程序员的怪癖是,就算他可以很轻易算出来某道题,也一定要写个程序跑一边。
偶像加油,你已经接近了。
---
10*9*8*7*6*5-9*8*7*6*5是不是正确答案?

发表评论