「今月の問題」　第６７回　（平成１７年４月）

　よしお君の家のコピー機は、1.0倍から2.0倍まで、0.1倍きざみの倍率で拡大できます。
　よしお君は、このコピー機を使って、原稿を2.01倍から3.00倍まで拡大する方法を考えました。
　ただし、コピーは２回だけ使うことにします。例えば1回目に1.3倍、２回めに1.9倍すると2.47倍に拡大できます。

　0.01きざみで考えると、2.01から3.00倍まで100個の拡大率が考えられます。（2.01、2.02、2.03、2.04、・・・・・2.08、2.09、3.00）
　ここで問題です。上の１００個の倍率のうち、２回の操作で出来るのは何個でしょうか。

＜正解者一覧表＞　 　　　　　　　　
正解者順位 　　　　ｎａｍｅ　　　 　　メール到着日時　　 　　備　考　　
　１藤本悟　さん2005/4/1　0:14大阪府・スーパー新社会人・23才　
　２ 呑　さん2005/4/1　0:17ほろ酔い呑ちゃんはお馬鹿なの
　３小林　祥久　さん2005/4/1　0:20　
　４なにわ　さん2005/4/1　0:22西宮市　
　５Michael　さん2005/4/1　0:32　
　６nobu　さん2005/4/1　1:15　
　７信三　さん2005/4/1　1:53シリコンバレーの住人　
　８経友会の進作　さん2005/4/1　7:19京都府木津町・６６歳　
　９巷の夢　さん2005/4/1　7:42宮城県出身　
１０akira　さん2005/4/1　8:13　
１１新中１!!!鉄道アニマル　さん2005/4/1　9:19東京都　
１２ あつきパパ　さん2005/4/1　9:40愛知県、２児の父
１３カエ　さん2005/4/1　9:41千葉県　
１４kasama　さん2005/4/1　9:53和歌山県プログラマ　
１５ ろろ　さん2005/4/1　16:41神奈川県
１６oguchan1　さん2005/4/1　20:03岡山県　
１７ nakka　さん2005/4/1　22:53個別指導塾講師
１８奥入瀬　さん2005/4/2　0:38東京都　
１９robin７５９　さん2005/4/2　8:56京都市の走る同業者
２０いちもく　さん2005/4/2　18:33東京・立川市　
２１teki　さん2005/4/2　19:31大阪府　
２２Plutonian　さん2005/4/2　20:19冥界より　
２３N.Nishi　さん2005/4/2　23:48大阪府：中学教諭　
２４ゴンとも　さん2005/4/3　0:09豊川市　
２５寺脇犬　さん2005/4/3　1:33　
２６モルモット増殖中　さん2005/4/4　15:25モルモット共和国　
２７フジ２７時間　さん2005/4/5　22:12香川県　
２８浜田明巳　さん2005/4/6　10:41　
２９masa　さん2005/4/7　21:41山口県　
３０寝る坊主　さん2005/4/10　1:28　
３１ マナブ　さん2005/4/11　13:17　
３２たじり　さん2005/4/26　16:55テニス好き　
３３幸　さん2005/4/26　18:58　
３４ 高田一輝　さん2005/4/27　2:20最近中３に昇格しました。
３５すてっぷす　さん2005/4/30　21:05　
３６ mhayashi　さん2005/4/30　23:44天下の台所　

答えは、２６通りでした。

経友会の進作さんの解答です。

（１）：2回の操作の組み合わせは、1.0×1.0〜2.0、1.1×1.1〜2.0、1.2×1.2〜2.0、
　　　1.3×1.3〜2.0、1.4×1.4〜2.0、1.5×1.5〜2.0、1.6×1.6〜2.0、1.7×1.7〜2.0、
　　　1.8×1.8〜2.0、1.9×1.9〜2.0、2.0×2.0である。
（２）：それらから得た数字を100個の各倍率から出る数字とチェックする。
（３）：（1）から出る場合の数は27個である。
（４）：しかし100個の各倍率から出る数字2.40は、2回の操作の組み合わせの
　　　1.2×2と1.5×1.6の2通りあるので1通りを減ずる。
（５）：27-1=26で、求める答えは26通りです。

浜田明巳さんはエクセルのマクロのプログラムを示していただきました。
Option Explicit
Sub Macro1()
    Sheets("Sheet1").Select
    Call shokika
    Cells(1, 1).Value = 0
    Range("A1").Select
    Dim a(100, 10, 2) As Integer
    Dim j1 As Integer
    Dim j2 As Integer
    Dim seki As Integer
    Dim k As Integer
    For j1 = 0 To 100
      a(j1, 0, 0) = 0
    Next j1
    For j1 = 10 To 20
      For j2 = j1 To 20
        seki = j1 * j2
        If 201 <= seki And seki <= 300 Then
          k = seki - 200
          a(k, 0, 0) = a(k, 0, 0) + 1
          a(k, a(k, 0, 0), 1) = j1
          a(k, a(k, 0, 0), 2) = j2
        End If
      Next j2
    Next j1
    For j1 = 1 To 100
      If a(j1, 0, 0) > 0 Then
        Cells(1, 1).Value = Cells(1, 1).Value + 1
        Cells(Cells(1, 1).Value, 2).Value = (j1 + 200) * 0.01
        For j2 = 1 To a(j1, 0, 0)
          Cells(Cells(1, 1).Value, j2 + 2).Value = Str(a(j1, j2, 1) * 0.1) + "*" + Str(a(j1, j2, 2) * 0.1)
        Next j2
      End If
    Next j1
End Sub
Sub shokika()
    Cells.Select
    Selection.ClearContents
    Columns("B:B").Select
    Selection.NumberFormatLocal = "0.00_ "
End Sub