Диапазон элементов матрицы

@fifklf · Регистрация: 04.03.2018

Доброго времени суток!
Имеется код (алгоритм параллельного и последовательного умножения матриц + вывод времени выполнения). Как задать случайные числа в диапазоне от 4 до 10?
Пример матрицы:
5 8 10
4 9 5
8 5 7

Pascal

uses Arrays;
{$omp parallel for}
procedure ParallelMult(a,b,c: array [,] of real; n: integer);
begin
 for var i:=0 to n-1 do
  for var j:=0 to n-1 do
  begin  
   c[i,j]:=0;
   for var l:=0 to n-1 do
    c[i,j]:=c[i,j]+a[i,l]*b[l,j];
  end;
end;
 
procedure Mult(a,b,c: array [,] of real; n: integer);
begin
 for var i:=0 to n-1 do
  for var j:=0 to n-1 do
  begin  
   c[i,j]:=0;
   for var l:=0 to n-1 do
    c[i,j]:=c[i,j]+a[i,l]*b[l,j];
  end;
end;
 
const n = 7;
 
begin
var a := Arrays.CreateRandomRealMatrix(n,n);
var b := Arrays.CreateRandomRealMatrix(n,n);
var c := new real[n,n];
ParallelMult(a,b,c,n);
writeln('Параллельное     перемножение     матриц:     ',Milliseconds,' миллисекунд');
var d:= Milliseconds;
Mult(a,b,c,n);
writeln('Последовательное   перемножение   матриц:   ',Milliseconds-d,' миллисекунд');
end.

@Hitoku · 04.03.2018, 19:35

Pascal

begin
  var a := MatrRandomReal(5, 5, 4, 10);
  a.Println;
end.

Опции темы