![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
以下の手法はどうでしょうか?
01 time-a.
03 hh pic 9(2).
03 mm pic 9(2).
03 ss pic 9(2).
01 tbl.
03 tbl-a pic x(3) occurs 100.
accept timeで時間を取得し、time-aにmove
その時間をもとにテーブルの添字の値を決定し、
テーブルtbl-a(添字)を乱数とする。
非常に簡単ですが、JOB実行時間によって内容が変化します。
COBOLでは確か乱数関数はなかったと思います。
(私も一度作ろうとして探したが、そんな関数は見つからなかった記憶がある)
sysin カードを使えば更に複雑な事ができると思います。
No.2
- 回答日時:
COBOLは知らないですが、乱数のアルゴリズムさえわかればいいで
しょうか?
非常に単純な乱数のアルゴリズムとしては、C言語の rand() 関数
で使われている線形合同法があります。
基本的には、next という変数を用意して 1 などに初期化しておき、
rand() 関数が呼ばれるごとに
next = next * 1103515245 + 12345
を実行し、乱数の最大値を MAX として next を (MAX+1) で割った
余りを返せば、0~MAXまでの乱数が得られます。定数の値はこれに
限らないと思いますが、一般的には、この式が使われているようで
す。
ただし、線形合同法は、下位ビットほど乱数としての性質が悪いの
で、余りではなく上位ビットを使うように除算した方がいいです。
つまり、N通りの乱数がほしければ、rand() の結果を N 倍して
(MAX+1) で割るなどする方がいいとされています。(単純に
rand() を N 倍して、整数の範囲を超えないように注意)
さらに質のいい乱数が必要なら、「M系列」をキーワードに検索し
てみてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ランダムで四択の問題を作る場合にvbaで何を学べばいいでしょうか。 1 2022/04/14 16:45
- 数学 特定の座標点を通る回帰を行う方法について。 2 2022/10/10 10:27
- Windows 10 explorerをedgeで開く方法 2 2022/06/05 14:59
- JavaScript ソースコードのいじる場所が分かりません。 1 2022/12/23 02:06
- 数学 既存の数列のランダム性について(初歩的質問) 2 2022/06/07 20:04
- 政治 選挙はランダム投票でするべきだろう。 ランダム投票とは、国民から無作為に投票者を抽出する投票制度。 4 2022/06/24 17:09
- Excel(エクセル) Excelについて質問があります。 関数の数値入力についてなのですが、 b1にー c1に数値 がある 1 2023/05/28 12:13
- Excel(エクセル) ExcelのIF関数について 4 2023/05/24 12:54
- C言語・C++・C# c言語の質問です。 ランダムに4桁の暗証番号を出力するプログラムを作ったのですが、4947→4973 3 2022/04/16 16:47
- 数学 x軸上にN+1個の点P0, P1, … , PNがある。 P0は0から1の間、PiはP(i-1)と1 2 2023/04/07 16:23
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
正しい五十音順について
-
期間重複チェックがわかりません
-
ルービックキューブの解法プロ...
-
JPEG圧縮で8×8に分割する理由に...
-
ハノイの塔のさいきアルゴリズ...
-
多変数関数の最小値を求めるプ...
-
ハッシュアルゴリズム
-
Officeのラスタ画像の拡大縮小...
-
グループを均等に分けるには?...
-
数について
-
VB2010にて分数表示(約...
-
OpenCVのライセンスについて
-
[ EXCEL VBA ] 図形を読み込む...
-
プログラムの作り方、アルゴリ...
-
アルゴリズムやコンポーネント...
-
詰め将棋をとくのは、アルゴリ...
-
画像から文字を認識してテキス...
-
障害物回避プログラム
-
アルゴリズムの学習サイト
-
BCDについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
正しい五十音順について
-
アルゴリズムとプロトコールの違い
-
BCDについて
-
[ EXCEL VBA ] 図形を読み込む...
-
Stuck
-
グループを均等に分けるには?...
-
画像から文字を認識してテキス...
-
Dijkstraて
-
期間重複チェックがわかりません
-
多変数関数の最小値を求めるプ...
-
JPEG圧縮で8×8に分割する理由に...
-
OpenCVのライセンスについて
-
データを圧縮したい
-
ルービックキューブを揃えるた...
-
5人のテストの点数を入力すると...
-
C♯で電卓を作成しています。演...
-
ドロネー三角形のプログラム
-
vbaで、連立方程式を解く方法に...
-
オンラインゲームのオートラン...
-
トップダウン解析とボトムアッ...
おすすめ情報