Заполнение матрицы случайными числами Опции

[18192123]

Объясните пожалуйста, как можно инициализировать матрицу случайными числами??

[andriano]

Нет. В IBM PC нет встроенного датчиа случайных чисел, поэтому пытаться извлечь их откуда-то - задача не из простых.
Обычно вместо случайных чисел используют псевдослучайные - т.е. вполне конкретную циклическую последовательность чисел, формируемых по определенному алгоритму, которая по статистическим характеристикам близка к последовательности случайных чисел.
Но т.к. числа формируются алгоритмически, последовательность их жестко предопределена. Чтобы избавиться от этой предопределенности вводят дополнительную процедуру инициализации алгоритма, при которой та же самая циклическая последовательность уже будет начинаться не с первого члена, а с какого-то другого. Т.е. при разных запусках программы последовательность не будет повторяться, а будет каждый раз другая. Для инициализации обычно берут текущее время.
Т.е. порядок работы такой (примеры, извини, в Паскаль - оболочке):
пишем сам генератор ПСЧ (простой и быстрый, но не уверен, что пройдет все статистические тесты):

var iax,ibx:word;

function random:word;{ »poµeñπpa óδñaτ¿ äBôX 16-í¿Γ¡δx »ceóño-c½πτa¡δx τ¿ce½:}
var q:word;
begin
   asm
       mov ax,iax
       mov bx,ibx
       xor  ax,bx
       shl  ax,1
       adc  bx,0
       xor  bx,ax
       xchg bl,bh
       mov iax,ax
       mov ibx,bx
   end;
   random := ibx;
end;

где в переменных хранится текущее состояние ДПСЧ.
Эти переменные надо инициализировать. Вот это можно сделать при помощи таймера:

procedure randomize;
begin
   asm
       Mov  AL,00000000b
       Out  43h,AL
       In   AL,40h
       Mov  AH,AL
       In   AL,40h
       XChg AL,AH
       mov iax,ax
   end;
  ibx := 9821;
end;

Теперь перед первым использованием мы вызываем randomize, а затем используем random