n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

InstallerSamples/OMPSamples/MultMatrix.pas

37 строк872 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

uses Arrays;

procedure ParallelMult(a,b,c: array [,] of real; n: integer);
begin
  {$omp parallel for }
  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 = 400;

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.