IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Array type required
marwell
сообщение 13.12.2012 16:03
Сообщение #1


Бывалый
***

Группа: Пользователи
Сообщений: 198
Пол: Мужской

Репутация: -  1  +


не понимаю, почему выдает ошибку blink.gif
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:=1 to n-1 do
begin
for k:=i+1 to n do
begin
d:=ish_matr[k,i]/ish_matr[i,i];
for j:=i+1 to 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 downto 1 do
begin
for j:=i+1 to 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;
begin
for i:=1 to 4 do 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'
...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
TarasBer
сообщение 13.12.2012 16:08
Сообщение #2


Злостный любитель
*****

Группа: Пользователи
Сообщений: 1 755
Пол: Мужской

Репутация: -  62  +


free плохое название
ну и ты в гаусса передавай всё-таки не по копии


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
marwell
сообщение 13.12.2012 16:42
Сообщение #3


Бывалый
***

Группа: Пользователи
Сообщений: 198
Пол: Мужской

Репутация: -  1  +


спасибо!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 29.03.2024 0:04
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"