ߤ
ĤΤ飳֢ãᣱ̤
ľ¤֤ΡʣˡʣˤƤ

ʣ˿˰ľãߣᣴ̤
ʣ˷򡡡ݣľ墪ߣᣴ̤
ʣ˷򡡡ݣľ墪ߣܣãߣᣲ̤
ʣ˽Ĥ˰ľãߣᣲ̤

ʾ꣱ݡʣܣܣܣˡᣱ̤ꡣ
81ڡ 0:18:36 40765
Mr.ǥ
ִñפȡǵޤޤϳ졣
ľȤʤ룳Ȥ
ġ43*520
53*440
Фʷ1ˡ1+4+4+1*220
Фʷ1/2ˡ2*24
äơ203ˡݡ2040204ˡ1056ȵޤ
ɵۤߤ󤵤ȡƱǤ͡ʺޤǤʤȻĤƤޤ
81ڡ 0:56:41 40766

Ϥưΰ֤ˤ룴ĤȤƤޤorz

#40759
Ǥܿˣʤ褦Ǥ
ʣԽҤλζʽˤϤλݤεҤäȻפҤޤ
裲롼ס 81ڡ 0:31:02 40767

20C3̤ΤľˤƽȤ褯ˡǤ

路orz
81ڡ 0:33:30 40768

פ֤ˤäȤǤޤ˽񤫤줿ƱǤ
ꤳߤʤ󤬤μ꤬äȤ褦ʵФƤΤǤ礦?ФƤۤʤ
81ڡ 0:35:30 40769

ֻͳѷϲĤǤΤǤ礦פˤȡĤʤꤽǤ͡
ʵ뵤ʤŬʤȤäƤޤ󡣥ޥ뤵ʤ餳դ⸡Ƥƻѷ夫줿ΤǤϤʤʤɤȡȤʤפäƤޤޤ
81ڡ 0:44:50 40770
ߤ
Mr.ǥ#40766
ʸΤߤǽ񤭹Թǡ֣áפַפʤɤȽ񤭤ޤäƤ뤳Ȥ
ϰǤ

޷ʤлϰϤˤȤʤФˡФꤹΤǤ
οʬǡֶŪ˲̤ꤢ뤫פȤǤϥХꥨ󤬽Фˤ
ޤ͡
ꤵäݤ򤯡פΤȰ㤦ȤǤ礦
81ڡ 2:12:18 40772

#40765, #40766Ʊ
81ڡ 2:17:31 HomePage:40773

20C3ʳϼޤǤޤ
81ڡ 2:19:24 HomePage:40774
̤ꤹ
ץ㤬ʤΤǡ
BASICǤäƤߤʰۤʤ3ľ¤ФʤΤ򥫥Ȥδñʥץˡ

DIM Pts(1 TO 20,1 TO 2)
FOR x = 1 TO 5
FOR y = 1 TO 4
LET n = n+1
LET Pts(n,1) = x
LET Pts(n,2) = y
NEXT Y
NEXT X
FOR i = 1 TO 20
FOR j = i + 1 TO 20
FOR k = j + 1 TO 20
IF (Pts(j,1)-Pts(i,1))*(Pts(k,2)-Pts(i,2))-(Pts(j,2)-Pts(i,2))*(Pts(k,1)-Pts(i,1)) <> 0 THEN LET Count = Count + 1
NEXT K
NEXT J
NEXT I
PRINT Count
END
81ڡ 8:41:20 40775
???
Υޥ
ǽ顢ѷȽ򡢻ãݣáܣǤäΤǤǤ
դĹݤˡΤڤΤƷ׻äƤޤäΤǤ͡
Option Explicit
'16(0,3) 17(1,3) 18(2,3) 19(3,3) 20(4,3)
'11(0,2) 12(1,2) 13(2,2) 14(3,2) 15(4,2)
'06(0,1) 07(1,1) 08(2,1) 09(3,1) 10(4,1)
'01(0,0) 02(1,0) 03(2,0) 04(3,0) 05(4,0)
Sub Macro1()
Cells(1, 1).Value = 0
Dim n1 As Integer, n2 As Integer, n3 As Integer
Dim n1x As Integer, n1y As Integer
Dim n2x As Integer, n2y As Integer
Dim n3x As Integer, n3y As Integer
For n1 = 1 To 20 - 2
n1x = xy(n1, 1): n1y = xy(n1, 2)
For n2 = n1 + 1 To 20 - 1
n2x = xy(n2, 1): n2y = xy(n2, 2)
For n3 = n2 + 1 To 20
n3x = xy(n3, 1): n3y = xy(n3, 2)
If (n2y - n1y) * (n3x - n2x) <> (n3y - n2y) * (n2x - n1x) Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
Cells(Cells(1, 1).Value, 2).Value = Str(n1) + "(" + Str(n1x) + "," + Str(n1y) + ")"
Cells(Cells(1, 1).Value, 3).Value = Str(n2) + "(" + Str(n2x) + "," + Str(n2y) + ")"
Cells(Cells(1, 1).Value, 4).Value = Str(n3) + "(" + Str(n3x) + "," + Str(n3y) + ")"
End If
Next n3
Next n2
Next n1
End Sub
Private Function xy(ByVal n As Integer, ByVal j As Integer) As Integer
If j = 1 Then
xy = (n - 1) Mod 5
Else
xy = (n - 1) \ 5
End If
End Function
81ڡ 10:45:53 40776
abcba@baLLjugglermoka
׻ְ㤤ưäƤޤޤ
ѷʤѥϡ(5c3)4+(4C3)5+102+4=84

(20C3)84=1056
81ڡ 10:57:36 40777
uchinyan
Ϥˤϡơϡ
ϡŪ褯򸫤Ǥ͡ʴǡ

20 Ĥ 3 Ĥ֤Τ 20C3 = (20 * 19 * 18)/(3 * 2 * 1) = 1140 ̤ꡣ
Τǰľ¤֤ΤϽޤϡ
0 ΤΤϡ5C3 * 4 = 10 * 4 = 40 ̤ꡤ
1/2 ΤΤϡ1 * 2 * 2 = 4 ̤ꡤ
1 ΤΤϡ(1 + 4C3 + 4C3 + 1) * 2 = (1 + 4 + 4 + 1) * 2 = 20 ̤ꡤ
ޡ ΤΤϡ4C3 * 5 = 4 * 5 = 20 ̤ꡤ
ǡ 40 + 4 + 20 + 20 = 84 ̤ꡣ
ǡѷ 1140 - 84 = 1056 ̤ 뤳Ȥޤ

ʤ󡤻Ǥϡ ϻȤޤ󤬡
ޤȤäƤΤưפʤΤǡǤϴñΤ˻Ȥޤ
ͥνȡ 81ڡ 11:34:51 MAIL:uchi@sco.bekkoame.ne.jp 40778
uchinyan
ǼĤɤߤޤ
ϡ
20 Ĥ 3 Ĥ־ο顤3 ľˤ
ȤˡΤ褦Ǥ
ͥνȡ 81ڡ 11:53:20 40779
̤ꤹ
#40776
> ãݣáܣǤäΤǤ
ΥΣĤǤäơѷǤϤʤȡ
81ڡ 11:57:52 40780
ޥ
ꡢ¤....£ǯʤʤ󼡡ˤäꤷޤꤽ¾٤ƱǤ
ҡ 81ڡ 12:05:56 HomePage:40781

CǤưפ˷׻Ǥޤ

르ꥺȤƤ
&#9312;i120ޤǡji+120ޤǡkj+120ޤư
&#9313;ijΤ줾ͤɸѴ
&#9314;٥ȥʬѤS=|ad-bc|/2ˤäƻѷѤ׻0ǤʤΤ򥫥Ȥ
&#9315;Ȥͤɽ
Ǥä1056ɽޤ
81ڡ 13:19:25 40782
Ȥ
οѤƤǤ褦
ѷ3(a,b),(c,d),(e,f)
,Ĥο򤽤줾n1,n2Ȥ
basic

INPUT n1,n2
let s=0
FOR a=0 TO n1-1
FOR b=0 TO n2-1
FOR c=0 TO n1-1
FOR d=0 TO n2-1
if a=c and b=d then goto 30
FOR e=0 TO n1-1
FOR f=0 TO n2-1
if e=a and f=b then goto 10
if e=c and f=d then goto 10
IF ABS((c-a)*(f-b)-(e-a)*(d-b))/2=0 THEN GOTO 10
let s=s+1
10 next f
20 next e
30 next d
40 next c
50 next b
60 next a
print s/6
END

f9n1,n24,5Ȥok򥯥å
? 4,5
1056()

ȤΥץ¾ΥȤμʬΥ򾯤editʤǤϰľΤΤǼǷ׻Ƥ⤹äΤϼǤޤ
˭ԡ 81ڡ 18:08:36 40783
̴
Ϥ䡢äȣӡѷꡢθĿϣˤʤ餺ʤΤϤᡢɤ뤦ˡ⤷ñˣӡľȤʤȤƤΤʤȡŪȽǤƤޤäϼøˤƤޤ
ٻΤ桡 82ʶ 8:08:22 40784
???
ãݣáܣ

䣰ģ䣰ģ䣰ģܣ㤫ģܣᤫģܣ
ƱͤǤ
82ʶ 9:23:43 40785