deu
񤷤ͤޤS N ξΨϴطʤäǤ͡
524ڡ 0:05:50 39366

񤭤ξΨη׻ӤäȰ㤦ޤ

Ψ䡦䡦äΤǡӤξä餱
ͤơȤŬƤϤޤ
ӤξΨ䤫顡20-1225-15 ˷ơ
ԤǤޤޤ
裲롼ס 524ڡ 0:09:59 HomePage:39367
ޥĥ
󡢽ޤơޤϤפ֤Ǥ
ǯ֤ꤰ餤褷ޤ(ФƤäޤ͡)
줫ޤ礯礯äƤޤΤǡꤤޤ
524ڡ 0:10:15 39368

Τäˣ
äӤˣԤȤ롣

ܣܣܣܣܣܣܣᣴ
ʣܣˡʣܣˡ᣶
ʣܣˡʣܣˡᣵ
ʣܣˡʣܣˡᣴ
ʾΣ켡ϢΩ򤭡ܣ롣
524ڡ 0:22:46 39369
fumio
䤹ߤʤ
524ڡ 0:36:14 39370
⡼ޥ
#39369
뤵ƱǤ...^^
ɽ...2(a+b)+c+d=35
(a+b)/(a+b+c+d)=40/100
...
(7/2)(a+b)=35
a+b=10
ŪˤǤޤ...^^; Orz...
524ڡ 0:37:44 39371
ӣˣ
УΤλ礬ףǤ뤳Ȥ顢
äϣӡΤ˷ףݣᣳԤäȤ狼롣
ޤʬβϡݣäξԿܣǡ
줬äξԿΣʤФ褤Ȥ顢
äξԿפ򭥤ȹͤ
ݭ᭢Ȥʤ롣
᭢ܭ

顢ᣵäƣäξǤ뭢ᣵߣᣱ硣
ˤޤ
524ڡ 0:49:05 39372

ߤʤȤۤƱǤCSФƣᾡԣʬФƣ価ԣʬȤܣΤǣܣȤƣܣܣܣܣᣳˣܣܣܣܣᣲܣᣳƣᣳȤ褦˽ФޤʤΤäΤǤӣˣᤵΤ褦˹ͤDz򤱤ΤǤ͡
524ڡ 5:42:34 39373
ͣ.ǥ
餷򤳤ȤơǽŪˤϲΤ褦ˤʤޤ

ä򡡡Ȥޤ
ʰʬˣäλ47ݡ8+4ˡݡʰʬˡ35ݡ
äξΨꡢ35ݡˡ52
򤤤ơ10
524ڡ 9:29:09 39374
???
Option Explicit
Sub Macro1()
Sheets("Sheet1").Select
Cells(1, 1).Value = 0
Dim x1 As Integer, y1 As Integer, z1 As Integer 'SCФ뾡ʬ
Dim x2 As Integer, y2 As Integer, z2 As Integer 'NCФ뾡ʬ
Dim z1z2 As Integer 'z1+z2
Dim gyou As Integer
'SξΨ
'(8+x1)/((8+x1)+(4+y1))=6/10=3/5
' 40+5*x1=36+3*x1+3*y1 y1=(4+2*x1)/3
'NξΨ
'(4+x2)/((4+x2)+(8+y2))=5/10=1/2
' 8+2*x2=12+x2+y2 y2=x2-4
'CξΨ
'(y1+y2)/((y1+y2)+(x1+x2))=4/10=2/5
' 5*(y1+y2)=2*(x1+x2)+2*(y1+y2) 2*(x1+x2)=3*(y1+y2)
'
'((8+x1)+(4+y1)+(2+z1))+((4+x2)+(8+y2)+(2+z2))+((y1+y2)+(x1+x2)+(z1+z2))=47*2
' z1+z2=33-(x1+x2)-(y1+y2)
'Cξ=ʬ
'(2+z1)+(2+z2)+(z1+z1)=2*(y1+y2)
' z1+z2=y1+y2-2
For x1 = 0 To 47 - (8 + 4 + 2)
y1 = Int((4 + 2 * x1) / 3)
If 3 * y1 = 4 + 2 * x1 Then
For x2 = 4 To 47 - (8 + 4 + 2) - (x1 + y1)
y2 = x2 - 4
z1z2 = 33 - (x1 + x2) - (y1 + y2)
If z1z2 = y1 + y2 - 2 Then
For z1 = 0 To z1z2
z2 = z1z2 - z1
Cells(1, 1).Value = Cells(1, 1).Value + 1
gyou = 4 * Cells(1, 1).Value - 3
Cells(gyou, 2).Value = "S"
Cells(gyou, 3).Value = 8 + x1
Cells(gyou, 4).Value = 4 + y1
Cells(gyou, 5).Value = 2 + z1
Cells(gyou + 1, 2).Value = "N"
Cells(gyou + 1, 3).Value = 4 + x2
Cells(gyou + 1, 4).Value = 8 + y2
Cells(gyou + 1, 5).Value = 2 + z2
Cells(gyou + 2, 2).Value = "C"
Cells(gyou + 2, 3).Value = y1 + y2
Cells(gyou + 2, 4).Value = x1 + x2
Cells(gyou + 2, 5).Value = z1 + z2
Range("C" & (gyou + 2)).Select
Next z1
End If
Next x2
End If
Next x1
End Sub
524ڡ 10:23:21 39375
???
ξΨη׻ϣǤ͡
524ڡ 10:26:40 39376

Ψ黻Фޤ
S3/5
N1/2
C2/5
Ǥ뤳Ȥ顢2ܿʡ
äǧڤǹԤȤޤ
ɤƤϤơ򤭤ޤ
S1510
N1212
C1015
37ä10ʬ줬Cξ
10
524ڡ 10:53:12 HomePage:39377

ǾɽĤäƲ򤭤ޤ
524ڡ 11:14:50 39378
uchinyan
Ϥˤϡơϡ
ǽ򸫤Ȥϡݤʤ괺ǹͤ뤫פȻפƬΩƽФ顤
ΤȤϤʤӤȥΤξΨ򤯤Τ˴طʤǤ͡
Ǥ⤢٤äݤ򤯤ʤǤ줰餤ɤʬޤDzȤʤ褦Ǥ
ǤʬޤDz򤤤ƤߤޤäȤޤϤޤʤΤɤˤʤäƤޤޤ

ӤȥΤλ 8 + 4 + 2 = 14 ʤΤǡäλ 47 - 14 = 33 Ǥ
ޤΨȥäξΨ䤫顤äξä餱 = 46 = 23 Ǥ
ǡäξ餱ʬñ̤ĹäΰʬʬĹȤơ
ä 33 ϡ
äξ = ä餱 = äΰʬ =
= 33
ˡʬäξΤȡӤȥΤΰʬ 2 ʤΤǡ
äΰʬ + 2 = + 2 = ʬ = = 2 ФʬĹ
ǡ
= 33 + 2
= 35
= 5
ǡäξ = = 5 * 2 = 10 硤ˤʤޤ

ޤäξΨäξˤʤΤ餫ʤΤǡǧڤƤ礷ȤϤʤǤ (^^;
ͥνȡ 524ڡ 12:01:08 MAIL:uchi@sco.bekkoame.ne.jp 39379
uchinyan
ǼĤɤߤޤ
¿ΥХꥨϤޤ

#39367#39377#39378#39381#39383
˹礦ԤɽƤϤõȤˡ󡤻ˡǤǤϤñǤ͡

#39369#39371#39373
ʸȤäˤˡؤȤϻפޤɤȤޤ꺹ϽФʤ褦Ǥ

#39372#39374#39379
ʬޤȤäɤλˡ

#39375
ץˤˡ

ʤѤäǤξʳʾϡޤƬ⤫֤ΤϼȻפޤ
षʾʸȤäѤƲ򤱤ʤȤ顤꤫Τޤ
äȤ⡤ҲιȤޤ줭äƤޤäͤä顤˺ƤޤäƤΤʤ (^^;
ͥνȡ 524ڡ 17:50:27 39380
BMơ
#39367
㤨С֣ԣʬפΥϡʣܣˡߣᣳפȤȤˤʤޤ͡

7Ǥͣ

(47)-SvsN(14)=Cλ(33)
CξΨ4礦ɤʤΤCξԿ5ܿ
Կ51015202530
Ψ4=24681012
Cΰʬᾡ02468
Կ+ʬ33ˤʤΤ25108ȹ礻
ФΤ
ȹ礻ˤʤSNCξɽ褦Ȥͼ٤ʳǺ(;)
&븫ơ졦ǤƤ뤸(;)
524ڡ 12:55:12 39381
ޥ
㤨Сפδְ㤤ηä꽤ޤm(__)m
Mac mini 524ڡ 13:51:23 HomePage:Men@Work39382
hide
#39381Ȳ⡢θήƱǤ
äƤġ
ȡࡡ 524ڡ 17:45:03 39383
ϥ饮㡼ƥ
٤ʤޤǧڤǤߤޤ
524ڡ 20:38:21 HomePage:湩ؤ˥39384
t
Dz򤭤ޤ
524ڡ 21:37:00 39385
ϻ
Cξx餱yʬȤȡ
4784xy2z
2zʬCξ
4712xyx

ޤCξΨCΨCξC餱4䡧623
ǡCξ(x)򭢡C餱(y)򭣤ˤȡ
4712ܭܭܭ
4712᭢ܭܭ
35᭧
5᭡
᤿Τϭ(Cξ)ʤΤ
5210

,10
526ڡ 20:51:06 39387
֥
47-14(snλ)=33(λ)
2(snΰʬ)+x(cΰʬ)(33-x)*0.4(cξ=ʬ)
1.4=11.2 x=8 8+2=10 10
526ڡ 21:33:05 39388
֥
ʸĤڤʡ
526ڡ 21:40:07 39389