Предыдущая страница реферата | 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 | Следующая страница реферата