メイン　shuffle.html　　　Last modified: Sep 01, 2009
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;CHARSET=EUC-JP">
<link rel="shortcut icon" href="../favicon.ico">
<title>JavaScript</title>

<script language="JavaScript">
<!--
var newline = (navigator.appVersion.lastIndexOf('Win') != -1) ? "\r\n" : "\n"
var constant = 5000

function sep2(n)
{
  var s = ""
  while (n--) {
    s += "="
  }
  return s+newline
}

function print_number_i(w, number)
{
  var ww = (""+number).length
  return (ww < w ? "               ".substring(0, w-ww) : "") +number
}

function calc(n0)
{
  var n, i, j, temp, a, _line = ""
  if (isNaN(n = parseFloat(n0)) || n <= 0 || n != Math.ceil(n) || n > constant) {
    _line += "計算できません（"+constant+"以下の整数値を指定してください）"+newline
  }
  else {
    a = new Array(n)
    for (i = 0; i < n; i++) {
      a[i] = i+1
    }
    for (i = 0; i < n; i++) {
      for (;;) {
        j = Math.floor(Math.random()*n)
        if (j >= 0 && j < n) break
      }
      temp = a[i]
      a[i] = a[j]
      a[j] = temp
    }
    for (i = 0; i < n; i++) {
      _line += print_number_i(6, a[i]) + (i % 10 == 9 ? newline : "")
    }
    _line += n % 10 ? newline : ""
  }
  document.Result.result.value += _line + sep2(60)
}
//-->
</script>
</head>

<body bgcolor="#ffffff">
<font size="+2"><b>シャッフル（無作為抽出）</b></font>　<a  href="src/shuffle.html"><img src="png/src.png" width=35 height=11 alt="src" align=top></a>　　　　　Last modified: Jun 01, 2006<hr noshade><p>
<font color="#ff0000" size="+2">以下のプログラムのサポートは終了しました。自己責任でお使い下さい。</font>

<form name=Result>
<script language="JavaScript">
<!--
document.write("　このスクリプトは，１〜ｎ（ｎ≦"+constant+"）の正整数値をシャッフルして表示します。<p>　得られた整数列は，標本の無作為抽出などに使うことができます。")
//-->JavaScript がサポートされていないブラウザですか？
</script>

<p><hr><p>

いくつまでの数をシャッフルしますか <input name="data1" value="100" size=6> <input type="button" name="clear" value="入力欄クリア" onClick="this.form.data1.value=''"><p>

<input type="button" name="calcurate" value="計算開始" onClick="calc(this.form.data1.value)"><p>

出力欄 <input type="button" name="clear" value="出力欄クリア" onClick="result.value=''"><br><textarea name="result" ROWS=20 COLS=80></textarea>

</form>

<p><hr noshade>
<img src="../gra/button3.png" width=9 height=9 alt="・"> <A HREF="javascript:history.go(-1)">直前のページへ戻る</A>　　<img src="../gra/button3.png" width=9 height=9 alt="・"> <a href="../mail.html">E-mail to Shigenobu AOKI</a>
<p><center><IMG SRC="../gra/ume5.png" width=121 height=37 ALT="Made with Macintosh"></center>
</body>
</html>
・ 直前のページへ戻る　　・ E-mail to Shigenobu AOKI

Made with Macintosh