Предыдущая страница реферата | 24  25  26  27  28  29  30  31  32  33  34 | Следующая страница реферата

IF VS_IfMassEq(MAssA, MAssB)

Then

BEgin

VS_VerMass(MAssA, MAssB);

VS_InitMassPErebor;

VS_Init2xMassPerebot ;

VS_SortMassPerebor;

VS_GetMAssForDet;

ResultMemo.Lines.Add('Итого по форуме Коши - Бине: ' + FloattoStr(VS_GetKoshi_Bine))

end

Else ResultMemo.Lines.Add('Матрицы не равны')

end;

procedure TMainForm.VS_InitMassPErebor;

//Создаем массив переборов для вычесления Детерминант формулы Коши-Бине

// Все действия делаются над массивом MAssP

Var

I, J, Curr : Integer;

begin

Curr := 0; //Текущий элемент массива

SetLength(MassP, MassA.N * MassA.M); //Установили размерность

For I := 0 to MassA.M -1 do //Пробегаемся по строкам

For J := 0 to MassA.N -1 do //Пробегаемся по столбцам

Begin

MassP[Curr] := J +1; //Заполняем массив строками-перестановками/столбцами-перестановками

Inc(Curr); //Перешли к след. элеенту массива

end;

//VS_SortMassPerebor

end;

procedure TMainForm.VS_GetMAssForDet;

//Формуриуем массив для вычисления Дет.

//Данные перестановки уже должны хранится в массиве MassP

//т. е уже нужно иметь Массив А и уже должна быть выполнена VS_InitMassPErebor;

Var I, J : Integer;

Det : Real;

SA, SB : String;

TempB,

TempA : TVS_MassData; //Н*М мерный массив миноров

begin

ResultMemo.Lines.Add('Переборы: ');

SetLength(TempA.Mass, MAssA.M, MAssA.M);

SetLength(TempB.Mass, MAssB.N, MAssB.N);

SetLength(DetA, MassA.N);

SetLength(DetB, MassB.M);

TEmpA.M := MAssA.M;

TEmpA.N := MAssA.M;

TEmpB.M := MAssB.N;

TEmpB.N := MAssB.N;

For I := 0 to MassPer.M - 1 do //пробегаемся по строкам

Begin

SA:= IntToStr(I +1) + 'A) ';

Рекомендуем скачать другие рефераты по теме: доклад 6 класс, здоровый образ жизни реферат.



Предыдущая страница реферата | 24  25  26  27  28  29  30  31  32  33  34 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки