type
Tmass=array[1..100] of double;
Tmatrix=array[1..100,1..100] of double;
var
Form1: TForm1;
mas: array [1..100] of integer;
korni:Tmass;
ish_matr: Tmatrix;
ccc: array[1..10] of Tmatrix;
free: Tmass;
...
function func(x:double):double;
begin
func:=x*x*x;
end;
...
procedure Gauss(ish_matr:TMatrix; free:TMass);
var
n,k,i,j:integer;d:double;
begin
n:=count;
for i:=1to n-1dobeginfor k:=i+1to n dobegin
d:=ish_matr[k,i]/ish_matr[i,i];
for j:=i+1to n do
ish_matr[k,j]:=ish_matr[k,j]-ish_matr[i,j]*d;
free[k]:=free[k]-free[i]*d;
end;
end;
for i:=n downto1dobeginfor j:=i+1to n do
free[i]:=free[i]-ish_matr[i,j]*korni[j];
korni[i]:=free[i]/ish_matr[i,i];
end;
end;
...
procedure sbor;
var i,j: integer;
beginfor i:=1to4do free[i]:=func(mas[i]); // Array type required
free[5]:=proisv(1,mas[1]); // Array type required
free[6]:=proisv(2,mas[1]); // Array type required
free[7]:=proisv(1,mas[3]); // Array type required
free[8]:=proisv(1,mas[4]); // Array type required
...
Gauss(ish_matr, free); //Incompatible types: 'Tmass' and 'procedure, untyped pointer or untyped parameter'
...
TarasBer
13.12.2012 16:08
free плохое название ну и ты в гаусса передавай всё-таки не по копии
marwell
13.12.2012 16:42
спасибо!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.