abcba@baLLjugglermoka
ϤȤƤפäǤͤΤڤǤ8cmʬ24⤷ϣ++Τɤ餫ʤΤǡȤ˹ͤФäȤ֤Ǥ
718ڡ 0:29:45 40721

ϡǤΤʡäƲ򤤤餢äƤޤ
36(323ʬ)Ĺ֤λ4̤
Ф29(233ʬ)Ĺ֤2̤ʤΤ
248̤
26(232)Ĺ36(323)˶ޤȤϡ
38(324)֤2̤
ޤ23Ʊ˷֤ʤ¤٤ˡ1̤
ä82111̤
ǤΤʡäޤ
718ڡ 0:52:47 HomePage:40722

Ϥʤ٤⤤Ǥ͡ΨʪäƤޤ

#40721ȹͤƤΤǤ9cm夫3,3,3(A)3,2,2,2(B)˿ʬƤޤ
AA 1̤
AB 2,3,2,2ȤƤ褤4̤
BA ü4ϱü֤ȤǤ뤫2̤
BB ǽ2,3,2,2ȤƤ褤4̤

碌11̤
718ڡ 0:58:57 40723
⡼ޥ
äȤ...^^;
оΤγ(Ⱥ)...ʲȤ߹碌櫓...
222
222
ξ...33 ΰ֤̤...2*3=6
22
22
ξ...
β...
32or23

Σ̤...2*2=4

٤Ƥ...
333
333
333
333
1̤...

6+4+1=11

Ǥäޤ ^^;v
718ڡ 1:12:19 40724

ģ¤٤ΤܷȤơѤƤѤʤ֥åͤ
֥åIJʣ̤ˡߥƲʣ̤ˡ̤
֥åģĹʣ̤ˡߥ򲣣Ȳʣ̤ˡ̤
֥åģĹʣ̤ˡߥģʣ̤ˡ̤
ǣܣܣܣᣱ̤Ȥʤޤ
Ρ֥åϤߥѥʥƥȥꥹΥޤߤʤΤĹˤϤΡˤǡҤ̤ꤦޤϤоηʬõؤ̤꤫Ϥˡ䤷ͷӤޤ򸫤ȤΤȤפФޤäǽΨŪˡˤĤƤϤߤʤΤΤ򸫤Ƥơ
718ڡ 1:19:24 40725
kurokori
#40719
򤤹ͤǤ͡
ڤƤߤΤǤΤyonghwiθȤ껻򤱤ޤ
Ϥޤˡ֤βǻ椬ܤϱդɲä뤳Ȥǡ ̤ǻ椬ܤˤʤפȤüǤ

ABǻ椬2:1Ǥꡢǻ椬2:1ο򤽤줾ä̤ǻ椬2:1ǤʤСפϾΨʤˡ
ABνŤ桢˲äνŤ桢ǽŪˤǤνŤޤưˤʤޤʴŪˤϤ狼ˤ⤷ޤ󤬡Τˤʤޤˡ

äơǽAνŤx+400Ȥʤ顢B2.5%ˤʤäνŤ4x/3ȤʤΤǡ
x+400:4x/3=9:4򤯤Ȥx=200ȤʤꡢȤʤƤ⻻ŨʲˡΩ뤳Ȥˤʤޤ͡

Ǥ黻Ϥʤ
718ڡ 1:24:43 40726
ߤ
ޤʤŤ餤Ǥ

ʤ˾壱󤬲ĸȲ碪̤
ʤ˲󤬲夬ĸȲ碪̤ġʤˤξ岼եС
ʤ˺夬ĸ硦椬硦ĸ硢¦ϲ碪äؤΤ⤢Τǣ̤
ʤ̤

פϣܣܣܣᣱ̤ꡣ

ʤˤȤƣ̤ǤϤͤ졢ǧڤǤ

718ڡ 10:26:33 40727
fumio
Ϥ褦ޤ
Ѥ餺ȯǤϤޤ󡣡ϤϤϡ
βƤ⸵Ǿڤޤ
ǤϤǤ
718ڡ 5:31:14 40728
ϥ饮㡼ƥ
ᤦޤǧڤǤñʤ褦Ǥä񤷤
718ڡ 5:36:17 HomePage:湩ؤ˥40729

üνĤ8A(2, 2, 2, 2), B(3, 3, 2), C(3, 2, 3)ξǹͤ
A:Ĥ8*6νĤ(3, 3, 2)ؤ3̤ꡣȿžƤƱʤΤ3*2=6̤ꡣ:ˤ6*5¤2̤ꡣ岼ȿžƤƱʤΤ2*2=4̤ꡣ
ޤ (2, 2, 2, 2)򲣤3¤٤Τ1̤ꡣ

B:Ĥν8*6¤Ͻ(3, 3, 2)ؤ3̤ꡢ򺸱ȿžƤ⤸ʤΤ3*2=6̤ꡣ
C:¤٤ʤ

äƹפ614=11̤()

Ȥʤޤ
ˡ⤤ä㤤ޤ͡
718ڡ 9:38:59 40730

üνĤ8A(2, 2, 2, 2), B(3, 3, 2), C(3, 2, 3)ξǹͤ
A:Ĥ8*6νĤ(3, 3, 2)ؤ3̤ꡣȿžƤƱʤΤ3*2=6̤ꡣ:ˤ6*5¤2̤ꡣ岼ȿžƤƱʤΤ2*2=4̤ꡣ
ޤ (2, 2, 2, 2)򲣤3¤٤Τ1̤ꡣ

B:Ĥν8*6¤Ͻ(3, 3, 2)ؤ3̤ꡢ򺸱ȿžƤ⤸ʤΤ3*2=6̤ꡣ
C:¤٤ʤ

äƹפ614=11̤()

Ȥʤޤ
ˡ⤤ä㤤ޤ͡
718ڡ 9:57:35 40735
uchinyan
Ϥˤϡơϡ
ϡ̲񤷤Ǥ˴ؤƤϡƻˤвȤʤޤ͡
ޤʤʬŤ餤Ȼפޤʴǡ

򡤲 3 cm ֤Τ 2 cm ֤Τ ġޣ 8 * 9 Ĺ򥤡ȸƤ֤Ȥˤޤ
ȡ9 cm ˤϡ 3 0 Ĥ 1 3 ġꤨޤ
ܤơ򲼤Ƥȡ

(1) 3 0
ʳ 1 ̤ꡣλĤϡ 6 cm ˤʤޤ
(1-1) 3 0
ʳ 1 ̤ꡣλĤϡ 4 cm ˤʤޤ
ǡ4 cm ֤ȻĤ 1 cm ˤʤ֤ʤΤǡ4 cm ֤ޤ
ȡ 3 0 ġ 3 0 ġ֤ޤ
ʳ 1 ̤ꡣ
ɡξϡ1 * 1 * 1 = 1 ̤ꡣ
(1-2) 1 3
ʳ 4 ̤ꡣλĤϡ ξ 4 cm ξ 3 cmˤʤޤ
ǡ3 cm ֤ȻĤ 1 cm ˤʤ֤ʤΤǡ3 cm ֤ޤ
ȡ4 cm ˤ 3 ĤŤ 3 cm ˤ 3 ġ֤ޤ
ʳ 1 ̤ꡣ
ɡξϡ1 * 4 * 1 = 4 ̤ꡣ
פơ1 + 4 = 5 ̤ꡣ

(2) 1 3 Τ
ʳ 2 ̤ꡣλĤϡ ξ夬 6 cm ξ夬 5 cmˤʤޤ
5 cm ˤϡ 6 cm ʤΤǡ 2 0 Ĥ 0 3 ġǽǤ
(2-1) 5 cm 2 0
ʳ 1 ̤ꡣ5 cm λĤϡ3 cm ˤʤޤ
ǡ3 cm ֤ȻĤ 1 cm ˤʤ֤ʤΤǡ3 cm ֤ޤ
ȡ3 cm 0 3 ġ֤6 cm ˤ 3 ĤŤͤ뤷ޤ
ʳ 1 ̤ꡣ
ɡξϡ2 * 1 * 1 = 2 ̤ꡣ
(2-2) 5 cm 0 3
ʳ 1 ̤ꡣ5 cm λĤϡ2 cm ˤʤޤ
ǡ2 cm ˤ ֤ޤ
ȡ2 cm 2 0 ġ֤6 cm ˤ 3 ĤŤͤ뤷ޤ
ʳ 1 ̤ꡣ
ɡξϡ2 * 1 * 1 = 2 ̤ꡣ
פơ2 + 2 = 4 ̤ꡣ

(3) 1 3 Τ
ʳ 2 ̤ꡣλĤϡ ξ夬 6 cm ξ夬 5 cmˤʤޤ
5 cm ˤϡ 4 cm 2 cm ʤΤǡ 0 3 ġǽǤ
(2-1) 5 cm 0 3
ʳ 1 ̤ꡣ5 cm λĤϡ2 cm ˤʤޤ
ǡ2 cm ˤ ֤ޤ
ȡ2 cm 2 0 ġ֤6 cm ˤ 3 ĤŤͤ뤷ޤ
ʳ 1 ̤ꡣ
ɡξϡ2 * 1 * 1 = 2 ̤ꡣ
פơ2 = 2 ̤ꡣ

ʾǤ٤ƤʤΤǡ5 + 4 + 2 = 11 ̤ꡤˤʤޤ
ͥνȡ 718ڡ 13:18:12 MAIL:uchi@sco.bekkoame.ne.jp 40736
uchinyan
ǼĤɤߤޤ
ȹפϤ褦Ǥɤϡƻ˿ϥå뤳Ȥˤʤ褦Ǥ

#40721#40730
8 = 3 + 3 + 2 = 2 + 2 + 2 + 2 ܤƤˡ

#40723#40727(̯Ǥ)#40736
9 = 3 + 3 + 3 = 3 + 2 + 2 + 2 겣ܤƤˡ

#40722
IJξܤƥåƤˡ

#40724
ȺĹǾʬˡ

#40725
ģ¤٤ΤܷȤؤƤѤʤ֥åͤȤˡ

#40729
ǧڤˤˡ (^^;
ͥνȡ 718ڡ 13:48:30 MAIL:uchi@sco.bekkoame.ne.jp 40737
uchinyan
轵Ǥ

#40719#40726
ʤۤɡ񤷤⤷ޤΤˤͤϤޤ͡
Ǥ뤫ɤ̯ʵ⤷ޤΤ餤ʤСʬ˻Ȼפޤ
ͥνȡ 718ڡ 13:55:07 MAIL:uchi@sco.bekkoame.ne.jp 40738

#40730

ABʸϤ˸(B˽񤯤٤ʸA˺(^^;))ޤˤϤ狼äƤȻפޤm(__)m
ȿžΤϡȡƱ٤ǤϤʤذ㤦Ρ٤Ǥ
餷ޤm(__)m
718ڡ 16:57:07 40739
???
Υޥ
Option Explicit
Dim a(12) As Integer, b(9, 8) As Integer
Sub Macro1()
Cells(1, 1).Value = 0
Call saiki(1)
End Sub
Sub saiki(ByVal n As Integer)
Dim x As Integer, y As Integer
Dim dame As Integer
Dim j As Integer, jj As Integer, jjj As Integer
a(n) = 1
While a(n) <= 2
For j = 1 To 9
For jj = 1 To 8
b(j, jj) = 0
Next jj
Next j
For j = 1 To n - 1
x = aki(1): y = aki(2)
If a(j) = 1 Then
For jj = x To x + 1
For jjj = y To y + 2
b(jj, jjj) = 1
Next jjj
Next jj
Else
For jj = x To x + 2
For jjj = y To y + 1
b(jj, jjj) = 1
Next jjj
Next jj
End If
Next j
x = aki(1): y = aki(2)
dame = 0
If a(n) = 1 Then
If x + 1 > 9 Or y + 2 > 8 Then
dame = 1
ElseIf b(x + 1, y) + b(x, y + 1) + b(x + 1, y + 1) + b(x, y + 2) + b(x + 1, y + 2) > 0 Then
dame = 1
End If
Else
If x + 2 > 9 Or y + 1 > 8 Then
dame = 1
ElseIf b(x + 1, y) + b(x + 2, y) + b(x, y + 1) + b(x + 1, y + 1) + b(x + 2, y + 1) > 0 Then
dame = 1
End If
End If
If dame = 0 Then
If n < 12 Then
Call saiki(n + 1)
Else
Call hyouji(1)
End If
End If
a(n) = a(n) + 1
Wend
End Sub
Sub hyouji(ByVal c As Integer)
Dim x As Integer, y As Integer
Dim gyou As Integer
Dim j As Integer, jj As Integer, jjj As Integer
Cells(1, 1).Value = Cells(1, 1).Value + 1
gyou = 9 * Cells(1, 1).Value - 8
For j = 1 To 9
For jj = 1 To 8
b(j, jj) = 0
Next jj
Next j
For j = 1 To 12
x = aki(1): y = aki(2)
If a(j) = 1 Then
For jj = 1 To 2
For jjj = 1 To 3
Cells(gyou + y + jjj - 2, x + jj).Value = j
b(x + jj - 1, y + jjj - 1) = 1
Next jjj
Next jj
Else
For jj = 1 To 3
For jjj = 1 To 2
Cells(gyou + y + jjj - 2, x + jj).Value = j
b(x + jj - 1, y + jjj - 1) = 1
Next jjj
Next jj
End If
Next j
End Sub
Private Function aki(ByVal j As Integer) As Integer
Dim x As Integer, y As Integer
Dim deta As Integer
deta = 0
x = 1: y = 1
While deta = 0
If b(x, y) = 0 Then
deta = 1
Else
x = x + 1
If x > 9 Then
x = 1: y = y + 1
End If
End If
Wend
If j = 1 Then
aki = x
Else
aki = y
End If
End Function
720ڡ 8:35:37 40740