Нужно найти след матрицы

@Олег Чобу · Регистрация: 08.05.2011

Author24 — интернет-сервис помощи студентам

Нужно найти след матрицы СА и АС. Матрицы а и с заданы. Нахождение матриц АС и СА оформить ввиде подпрограммы процедуры.

Вот что я сделал...помогите довести до ума, разобраться.

Delphi

type matr= array[1..3,1..3] of real;
procedure TForm1.Button1Click(Sender: TObject);
begin
i,j:integer;
procedure AC(a,c:matr; var i,j:integer);
begin
for i to 3 do
for j to 3 do
ac:=a[i,j]*c[i,j];
end;
begin
for i to 3 do
for j to 3 do
a[i,j]:=strtofloat(stringgrid1.cells[j-1,i-1];
for i to 3 do
for j to 3 do
c[i,j]:=strtofloat(stringgrid2.cells[j-1,i-1];
begin
for i to 3 do
for j to 3 do
ca=c[i,j]*a[i,j];
end;
begin
for i to 3 do
for j to 3 do
sl[ac]:=(ac[1,1]+ac[2,2]+ac[3,3];
for i to 3 do
for j to 3 do
sl[ca]:=(ca[1,1]+ca[2,2]+ca[3,3];
end;
edit1.Text:=Floattostr(sl[ac]);
edit2.Text:=Floattostr(sl[ca]);
 
 
end.

@Puporev · 10.05.2011, 13:20

Посмотри вот так.

@Олег Чобу · 10.05.2011, 13:55 **[ТС]**

Сообщение от Puporev

Посмотри вот так.

Благодарю!

Добавлено через 4 минуты
А как правильно в виде процедуры оформить?

@Puporev · 10.05.2011, 13:56

Так там и так процедура, ты хоть код посмотри...

@Олег Чобу · 10.05.2011, 14:03 **[ТС]**

Сообщение от Puporev

Так там и так процедура, ты хоть код посмотри...

ИЗВИНЯЮСЬ!
Все увидел,большое спасибо.

@Олег Чобу 0 / 0 / 0 Регистрация: 08.05.2011 Сообщений: 9
	10.05.2011, 13:55 [ТС]	3
	Сообщение от Puporev Посмотри вот так. Благодарю! Добавлено через 4 минуты А как правильно в виде процедуры оформить? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	10.05.2011, 13:56	4
	Так там и так процедура, ты хоть код посмотри... 1

@Олег Чобу 0 / 0 / 0 Регистрация: 08.05.2011 Сообщений: 9
	10.05.2011, 14:03 [ТС]	5
	Сообщение от Puporev Так там и так процедура, ты хоть код посмотри... ИЗВИНЯЮСЬ! Все увидел,большое спасибо. 0