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

//На выходе будет M*N мерный массив переборов (не сортированый)

Var I, J, Curr, CurCol, CurRow : Integer;

Det : Real;

S : String;

begin

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

SetLEngth(MassPer.Mass, MassA.N, MassA.M); //Установвили размерность массива перестановок

MassPer.M := MassA.N; //Задали размерность

MassPer.N := MassA.M; //Задали размерность

CurRow := 0; //Текущая строка нового массива

For I := 0 to MassA.N -1 Do //Запускаем по строкам

begin

CurCol := 0; // Текущий столбец/строка нового массива

For J := 0 to MassA.M - 1 do

Begin

MassPer.Mass[CurRow, CurCol] := MassP[Curr];

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

Inc(CurCol); //Перешли к нововму столбцу нового массива

end; {For J := 0 to MassA.M - 1 do}

Inc(CurRow); //Перешли к новой строке нового массива

end;{For I := 0 to MassA.N -1 Do //Запускаем}

end;

procedure TMainForm.VS_GenerateRowMinorData(CurCol, Col: Integer;

var InMass: TVS_MassData);

//Формируем массив минор для КоШИ_БИНЕ

//На входе

//CurCol - номер столбюца в новом массиве

//COl - номер столбца для массива, с которого будем брать значения

//InMass - массив, в который будем заносить значения

Var I : Integer;

begin

For I := 0 To MassB.N -1 do

inMass.Mass[CurCol, I ] := MassB.Mass[Col -1,I];

end;

Function TMainForm.VS_GetKoshi_Bine: Real;

//Вычисляем формулу Коши-Бине

// ьПеред вызовом должны быть выполнены след. условия:

//1 - введен масив а и б

//выполнены след. процедуры

//VS_InitMassPErebor;

//VS_Init2xMassPerebot ;

//VS_SortMassPerebor;

//VS_GetMAssForDet

//

Var I : Integer;

S : String;

begin

Result := 0;

S := '';

For I := 0 to MassA.N - 1 do

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





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