人気マンガがだれでも無料♪電子コミック読み放題!!

6人でテニスのダブルスをしています。
組み合わせは総当り戦をしています。
組み合わせは何パターンありますか?

A 回答 (3件)

6C2 = 15 パターンです。

    • good
    • 3

すみません。


ダブルスでしたね。

AからFの6人いるとします。
Aとペアを組む人の決め方が 5C1 = 5通り。
Aとペアを組む人を決めた後、
残る4人のペアの組み方が3通りあるので、
ダブルスのチームの分け方が 15通り。

ペアが決定した後3つのペアで総当たり戦をやると、
3試合おこなうことになるので、
結局、全部で 15×3 = 45パターンです。
    • good
    • 2

こんにちは。

maruru01です。

ダブルスのチームをA、B、Cとすると、
6人からAチームに2人選択する組み合わせは、
6C2
残りの4人からBチームに2人選択する組み合わせは、
4C2
従って、ABC3チームに分ける組み合わせは、
6C2×4C2=90
ところで、ABCの3つのチームの区別はないので、3つの順列
3P3
で割って、
90÷3P3=15

ダブルスのチーム分けの組み合わせは15通りです。
総当たり戦の対戦の組み合わせは、チーム分けの各組み合わせに対して3つなので、
15×3=45
となります。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qテニスの組合せ表の作り方を教えて下さい。

仲間とテニスの試合を楽しんでいるのですが、ダブルスの組合せ表の作り方および組合せ表があればご提供いただけますでしょうか。

4名から10名でダブルスを楽しむ組合せ表があると嬉しいのですが宜しくお願いいたします。

同じ人が連続しないような組合せ表を知りたいのです。宜しくお願いいたします。

Aベストアンサー

その表は、乱数表 と呼びます。
テニス 乱数表
で検索するとヒットすると思います。

Qテニス大会ダブルスの乱数表の作成をお願いしたい

テニス大会開催のため、プレーヤーの組み合わせに乱数表を使うことになり、過去の質問・回答を検索しテニス乱数表の作成法を2件見つけたのですが、1件は同じプレーヤーの組み合わせ(ペア)が複数組できてしまい、もう1件は一人当たりのゲーム数が同数にならない(一定の試合数で、ある人は2ゲーム、ある人は5ゲームなどバラつきが出る)ことがわかりました。
そこで以下の条件で乱数表の作成をお願いしたいのですが。

1.1日で完了するダブルスのテニス大会
2.参加者(プレーヤー)は、10-30人程度
3.コートは2面を並行使用の予定なので、一人が同時に2面に入らない
4.全員が一人あたり4ゲーム行う
5.全員が4ゲームともそれぞれ別の人とペアを組む(同じペアを複数回作らない)
6.対戦相手はそれ以前のゲームと同じ人でも構わない(5.があるので同じペアとの再戦はない)

よろしくお願いします。

Aベストアンサー

No.2です。

一応、VBAで作ってみましたけど、かなり長くなってしまいました。
ここに投稿しようとすると、5回ぐらい連投しないといけなくなりそうですので
別の方法でお伝えさせていただきます。
もしかしたら規約違反かもしれませんので、その場合はあしからず。

まず、添付画像のような表を作成してください。
シート名は「Sheet1」としてください。
以下シートの内容です。
G列に選手名を列挙する(タイトル行なし、1行目から)
H列、I列は、1~人数までの乱数を発生させるために使用
J列以降は、ペアを組んだ人の名前を順に記録するために使用
(試合がなかった人は空白)
A~F列に、抽選結果(試合の組み合わせ)を出力する

次にSheet1を右クリックして「コードの表示」でVisual Basic Editorが起動しますので
参考URLのリンク先の本文に書いてあるコードをコピー&ペーストしてください。

ここでファイルをいったん保存して閉じ、開きなおしてください。
その時「マクロを有効にする」を選択してください。

ツール>マクロ>マクロで「Sheet1!抽選」というマクロを実行してください。

以上です。

参考URL:http://blog.goo.ne.jp/dondondon999/e/288d3f23e5a3e4997531051436041b8a

No.2です。

一応、VBAで作ってみましたけど、かなり長くなってしまいました。
ここに投稿しようとすると、5回ぐらい連投しないといけなくなりそうですので
別の方法でお伝えさせていただきます。
もしかしたら規約違反かもしれませんので、その場合はあしからず。

まず、添付画像のような表を作成してください。
シート名は「Sheet1」としてください。
以下シートの内容です。
G列に選手名を列挙する(タイトル行なし、1行目から)
H列、I列は、1~人数までの乱数を発生させるために使用
J列以降は、ペアを組ん...続きを読む

Qメンバーの組み合わせに使う乱数表

多人数で集まってテニスをするとき組み合わせをするのに乱数表を使うと便利ですよね。
人にもらった乱数表があったのですがなくしてしまいました。数学的知識は余りないので自分で作ることは不可能です。
そういうソフト(オンラインでフリーウェアなら尚可)や乱数表そのものを載せているサイトなどご存じないでしょうか?自分でも色々検索してみたんですが
探しきれなかったんです。

ちなみに条件は・・・
1)人数は5~20人くらいまで。
2)試合はダブルスのみ。要するに4人一組を決められればいいです。
3)出来ればなるべく毎回違う人と組めるようなもの(今まで使っていたのは1234、5678、の後次は1235、4678みたいにあんまり変わらない組み合わせが続いて結局おんなじような対戦になってしまったんです。)

よろしくお願いします。
  

Aベストアンサー

 <script lang=JavaScript>から</script>までをメモ帳などにコピペして
 拡張子を変えて保存

これ、そのとおりなんですが、できませんか…。

アイコンの形(表示)は、ieのアイコンになっていますか?
それとも、メモ帳のアイコンになってますか?

------------------------------------------------------------

・メモ帳のアイコンになっている場合

ファイルの保存がうまくいっていない可能性が高いです。

メモ帳にコピペする。
メモ帳のメニューから「ファイル」→「名前を付けて保存」を順に選択し、
開いた「名前をつけて保存」ダイアログで、
「ファイル名」欄を例えば「tennis.html」に、
「ファイルの種類」欄を「全てのファイル」にする。

という手順でやってみてください。

------------------------------------------------------------

・アイコンの形(表示)は、ieのアイコンになっている場合

ダブルクリックして、ieが起動するでしょうか?

ダブルクリックして、ieが起動するのなら、

1 9 5 20 10
2 3 19 15 18
3 18 9 8 3

:(1000行ある)


というような表示になるはずなのですがそうなりますか?
そうなっていれば、それでいいのです。表示形式がかっこ悪いですが、これは先程のコードを修正するとなんとかなります。(^^;

------------------------------------------------------------

・ダブルクリックするとieが起動するが、表示が上のようにならない場合:

ieの一番した、ステータス部分は、「(ieのアイコン)ページが表示されました」になっているでしょうか?

------------------------------------------------------------

・ステータス部分に「黄色い三角のアイコン」が表示される場合

コピペがうまくいっておらず、スクリプトにエラーがあります。
コピペ時に1文字足りなかったりしないか、確認してみてください。

------------------------------------------------------------

その他のケース:

・ステータス部分が「(ieのアイコン)ページが表示されました」になっている
・ダブルクリックしてもieが起動しない

などの場合は、ちょっと対応がよくわかりません。

------------------------------------------------------------

「一応やってみたけれど出来ませんでした」だけではなく、
どうなったのかをある程度詳しく書いていただいたほうが、
的確な回答ができると思います。

 <script lang=JavaScript>から</script>までをメモ帳などにコピペして
 拡張子を変えて保存

これ、そのとおりなんですが、できませんか…。

アイコンの形(表示)は、ieのアイコンになっていますか?
それとも、メモ帳のアイコンになってますか?

------------------------------------------------------------

・メモ帳のアイコンになっている場合

ファイルの保存がうまくいっていない可能性が高いです。

メモ帳にコピペする。
メモ帳のメニューから「ファイル」→「名前を付けて保存」を...続きを読む

Qテニス 乱数表

テニスのダブルスゲームのときに使う乱数表を作りたいと思うのですが、10人までならインターネットで検索すると出てくるのですが、16~20人のは見つかりません。
過去の質問Q352925に同じ質問が出ていたので見たのですが、そこにでている”参考にしたページ”が、すでになくなっていました。エクセルで作るのだと思いますが、教えてください。。パソコン初心者なので、こんなことも・・・と思うことが解からないかもしれませんが、よろしくお願いします。

Aベストアンサー

こんにちは。
ヒマなのでwwwwマクロ作りました。すんげぇ長文レスなので覚悟してくださいw

そもそも乱数表というものがよく判らないのですが、組み合わせの条件が相当複雑になります。
例えば下記のURL先の乱数表を見てください。
http://www.geocities.jp/ttc1jp/order.html
これの9人の列を見てほしいんですが、2コートで実施した場合、9回,10回目のところで
6番さんが両コートでプレイしなければならなくなります。
9人などコート数が2コートだけで良いのであればこういうのも排除できるんですが、
13人以上で2コートでも3コートでも出来てしまう場合、乱数表だけでは必ず6番さんのような
重複が発生してしまいます。

そこで、乱数表のフォーマットからちょびっと外れるかも知れないんですが、
(1) 最初にコート数を指定する
(2) 前回参加できなかった人(見学者)は次回に優先的に参加できる
(3) ひとりの人を同時に別コートで試合という無茶はさせない
(4) ランダムにこだわる
というマクロを作ってみました。

【つかいかた】
<マクロ準備編>
(1)新規ブックを開き、とりあえず名前をつけて保存します。『てにす乱数表.xls』にしましょうか。
(2)メニューバーから、ツール→マクロ→Visual Basic Editorを選択します。
  Visual Basic Editorが起動します。
(3)左側に「VBAProject(てにす乱数表).xls」というのがあると思います。
 ツリー状になっていて、左の[+]で展開していくと、「ThisWorkbook」という
 ものが表示されると思います。
(4)その「ThisWorkbook」をダブルクリックします。
 右側に「~~.xls - Thisworkbook(コード)」というウインドウが表示されます。
(5)そこに、下記のコードをコピー&ペーストしてください。
(6)Visual Basic Editorを閉じます。
(7)ここで一旦上書き保存しておきましょう。

<データ準備編>
(1)セルA1に、コート数を入力してください。数字でお願いします。
(2)セルB1から横方向に、人数を入れていってください。
(3)セルA2から縦方向に、試合数を入れていってください。

こんなかんじ
 _A__B_C_D__E__F__G__H__I__J__K
1|  3  5  6  7  8  9  10  11  12  13  14…
2|  1
3|  2
4|  3
5|  4
6|  5
7|  6
   :

<データ作成編>
(1)メニューバーから、ツール→マクロ→マクロ と選択してください。
(2)実行するマクロの一覧に「ThisWorkbook.乱数表作成」というのがでるので、
  それを選択して「実行」してください。
(3)砂時計が消えたら完成です。


このマクロは実行するたびに結果が変わります。気に入らなかったら何度でも
やり直してください。
また、全セルを消去すれば、データ準備からやり直すことも出来ます。
好きな表をいくつでも作ってください。
ちなみに100人とかデータ数がえらく膨大になると、なかなか計算が終わりませんので。
その場合は気長に待ってください。

'-----マクロ ここから-----
Sub 乱数表作成()
Dim iRow As Integer
Dim iCol As Integer
Dim iCnt As Integer
Dim iCnt2 As Integer
Dim iTmp As Integer
Dim sNum() As String
Dim bChk() As Boolean
Dim bChk2() As Boolean
Dim bFull As Boolean
Dim iCourt As Integer
iCol = 2

Do Until Cells(1, iCol) = ""
iRow = 2
If Cells(1, 1) * 4 > Cells(1, iCol) Then
iCourt = Round(Cells(1, iCol) / 4 - 0.5, 0)
Else
iCourt = Cells(1, 1)
End If
ReDim sNum(iCourt * 4 - 1)
ReDim bChk(Cells(1, iCol))
ReDim bChk2(Cells(1, iCol))
For iCnt = 1 To Cells(1, iCol)
bChk(iCnt) = True
bChk2(iCnt) = True
Next iCnt
Do Until Cells(iRow, 1) = ""
iCnt = 0
Do Until iCnt = iCourt * 4
iTmp = Round(Rnd(Second(Now)) * Cells(1, iCol) + 0.5, 0)
If bChk(iTmp) And bChk2(iTmp) Then
sNum(iCnt) = "[" & Trim(Str(iTmp)) & "]"
iCnt = iCnt + 1
bChk(iTmp) = False
bChk2(iTmp) = False
bFull = False
For iCnt2 = 1 To Cells(1, iCol)
bFull = bFull Or bChk(iCnt2)
Next iCnt2
If bFull = False Then
For iCnt2 = 1 To Cells(1, iCol)
bChk(iCnt2) = True
Next iCnt2
End If
End If
Loop
Cells(iRow, iCol) = sNum(0)
For iCnt = 1 To iCourt * 4 - 1
Select Case iCnt Mod 4
Case 0
Cells(iRow, iCol) = Cells(iRow, iCol) & Chr(10) & sNum(iCnt)
Case 2
Cells(iRow, iCol) = Cells(iRow, iCol) & ":" & sNum(iCnt)
Case Else
Cells(iRow, iCol) = Cells(iRow, iCol) & sNum(iCnt)
End Select
Next iCnt
For iCnt = 1 To Cells(1, iCol)
bChk2(iCnt) = True
Next iCnt
iRow = iRow + 1
Loop
iCol = iCol + 1
Loop
End Sub
'-----マクロ ここまで-----

あー面白かったw ナイス暇つぶし。

解らないところがあったら聞いてください。

こんにちは。
ヒマなのでwwwwマクロ作りました。すんげぇ長文レスなので覚悟してくださいw

そもそも乱数表というものがよく判らないのですが、組み合わせの条件が相当複雑になります。
例えば下記のURL先の乱数表を見てください。
http://www.geocities.jp/ttc1jp/order.html
これの9人の列を見てほしいんですが、2コートで実施した場合、9回,10回目のところで
6番さんが両コートでプレイしなければならなくなります。
9人などコート数が2コートだけで良いのであればこういうのも排除できるんで...続きを読む

Q10チームの総当りになる組み合わせを教えてください。

テニスのチームが日のよって…9~13チームできるのですが、総当りで試合が出来る組み合わせがうまく出来ません。いろんな回答を参考にしたのですが良くわかりません。9チームの時は、1-2、3-4、5-6、7-8、9-1、2-3、4-5…のように教えていただけるとありがたいのですが。同じく10チームから13チームまで教えていただけたら嬉しいです。またもっとチーム数が増えた時の良い計算法を教えてください。

Aベストアンサー

nチームのリーグ戦の総試合数は次の計算式で求められます。
n(nー1)/2
13チームなら、13(13-1)/2=78試合となります。

試合順は次のように、1つのチームを固定して他のチームを順番に回して組むと便利です。

偶数チームのとき(仮にA~Fの6チーム→15試合)
 1 A-F  4 A-E  7 A-D  10 A-C  13 A-B
 2 B-E  5 F-D  8 E-C  11 D-B  14 C-F
 3 C-D  6 B-C  9 F-B  12 E-F  15 D-E

奇数チームのときは最後を空きにすればOKです。
 (A~Eの5チームだったら上と同様に→10試合)
   A-×  3 A-E  5 A-D  7 A-C  9 A-B
 1 B-E    ×-D  6 E-C  8 D-B    C-×
 2 C-D  4 B-C    ×-B    E-×  10 D-E


人気Q&Aランキング