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

> ВНИМАНИЕ!

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

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Array type required
сообщение
Сообщение #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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


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

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

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


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


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


Бывалый
***

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

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


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


Бывалый
***

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

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


Why not settling on games that is fun and at the same time your earning. Well it'll make suspense because the game is well but dude just try it and it gave me hope while pandemic is real rn. The Notorious Slot Machine: How Does it Work?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 29.03.2024 5:52
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name