Определитель произведения прямоугольных матриц. Теорема Коши-Бине
Категория реферата: Рефераты по математике
Теги реферата: сочинения по литературе, оформление доклада
Добавил(а) на сайт: Занин.
Предыдущая страница реферата | 25 26 27 28 29 30 31 32 33 34 35 | Следующая страница реферата
Begin
REsult := REsult + DetA[I] * Detb[I];
S := S + ' (' + FloattoStr(DetA[I])+ ')*(' + FloattoStr(DetB[I] ) + ') + ';
end;
ResultMemo.Lines.Add('C = ' + (Copy(S, 1, Length(s) -2)));
end;
function TMainForm.VS_IfMassEq(Massin1, MAssIn2: TVS_MassData): Boolean;
//Сравниваем 2 мартицы
//Получаем True, если
//1. число строк матрицы 1 - числу столбцов матрицы 2
//2. число стоблцов матрицы 1 = числу строк матрицы 2
begin
Result := (Massin1.M = MAssIn2.N) And (Massin1.N = MAssIn2.M)
end;
procedure TMainForm.VS_VerMass(var Massin1, MAssIn2: TVS_MassData);
//Проверяем матрицы
//Если Столбцв матрицы А меньше, чем в Б, меняем матрицы местами
Var TempMass: TVS_MassData;
begin
If Massin1.N < MAssIn2.N Then
Begin
SetLength(TempMass.Mass, MassIn1.M, MassIn1.N);
TempMass := Massin1;
SetLength(Massin1.Mass, MassIn2.M, MassIn2.N);
Massin1 := MAssIn2;
SetLength(Massin2.Mass, TempMass.M, TempMass.N);
MAssIn2 := TempMass;
end;
end;
procedure TMainForm.VS_LoadData(var InMAss: TVS_MassData);
//Загружаем данные из файла в Массив InMAss
Var F : TextFile; //Описали переменную работы с текстовым файлом
RezStr : String;
CurRow,
MaxCol,
MaxRow,
CorCol : Integer;
begin
OpenDialog.DefaultExt := '*.txt'; //Расширение файлов по умочлчанию
OpenDialog.InitialDir := ExtractFilePath(Application.ExeName); //Открываем каталог, в котором запущена наша программа
MaXcol := 0;
;
If OpenDialog.Execute Then
Begin //Если пользователь нажал на ОК и выбрал файл - начинаем загрузку
AssignFile(F, OpenDialog.FileName);
If FileExists(OpenDialog.FileName) Then
Reset(f) //Файл есть, открываем
Else Exit; //Файла нету, выходим
CurRow := 0;
VS_GetRazmOnFile(OpenDialog.FileName, MaxCol, MaxRow);
Рекомендуем скачать другие рефераты по теме: доклад 6 класс, здоровый образ жизни реферат.
Предыдущая страница реферата | 25 26 27 28 29 30 31 32 33 34 35 | Следующая страница реферата