ESV1987
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
procedure MeanVal3(a:TDyn2Data; n:integer; var s:double); stdcall; external 'DLL_Fortran_4.dll' name 'meanval3';
...
const
N=5;
...
i,j,n1 : integer; b2x:TDyn2Data; s: double;
...
setlength(b2x,n,n);
for i:=0 to (n-1) do begin
for j:=0 to (n-1) do begin
b2x[i,j]:=strtoint(inttostr(i+1)+inttostr(j+1));
end;
end;
n1:=n;
MeanVal3(b2x,n1,s);
|
Всего записей: 56 | Зарегистр. 31-03-2007 | Отправлено: 10:39 22-02-2011 | Исправлено: ESV1987, 10:43 22-02-2011 |
|
