Dnia Wed, 02 Feb 2011 18:13:03 +0100, Fil napisał(a):

> Przetestowałem jeszcze takie coś:
> TA=array[0..1999,0..299] of double;
> TB=array[0..299,0..1999] of double;
> TC=array[0..1999,0..1999] of double;
>
> procedure MulMatrix2(N, Q, M:integer; var T1:TA; var T2:TB; var T3:TC);
> var
> i, j, k:integer;
> begin
> for i := 0 to N-1 do
> for j := 0 to M-1 do begin
> T3[i, j] := 0;
> for k := 0 to Q-1 do T3[i, j] := T3[i, j] + T1[i, k] * T2[k, j];
> end;
> end;
>
> Czas: 5,2s
>
> Pomijając koszmarek implementacji... czas nadal dłuższy od CPP o ok. 0.7s.
>
> Pozdrawiam,
> Fil.

Pokaz caly program, wraz z wywolywaniem tej procedury.

--
pozdrawiam
Norbert