Определитель произведения прямоугольных матриц. Теорема Коши-Бине
| Категория реферата: Рефераты по математике
| Теги реферата: сочинения по литературе, оформление доклада
| Добавил(а) на сайт: Занин.
Предыдущая страница реферата | 25 26 27 28 29 30 31 32 33 34 35 | Следующая страница реферата
SetLEngth(InMAss.Mass, MaxRow, MaxCol);
While Not Eof(F) Do
Begin
REadLn(F, RezStr);
VS_InitMassInStr(RezStr, CurRow, InMAss);
// ResultMemo.Lines.Add(RezStr);
Inc(CurRow);
end;{While Not Eof(F) Do}
InMass.M := MaxRow;
InMAss.N := MaxCol;
VS_ShowMassToMemo('Успешно загружен', InMAss);
end;{If OpenDialog.Execute Then}
end;
procedure TMainForm.N9Click(Sender: TObject);
begin
VS_LoadData(MassA);
end;
procedure TMainForm.VS_InitMassInStr(InStr: String; CurRow: Integer;
var InMass: TVS_MassData);
//Формируем строку элементов массива.
Var
N : Integer;
RezStr : String;
CurCol : Integer;
begin
inStr := Trim(InStr); //Удалили пробелы с обоих концов строки
CurCol := 0;
While Length(InStr) > 0 Do
Begin //Запускаем цикл до тех пор, пока строка имеет значения
N := Pos(#32, InStr); //Нашли ближайший пробел
If N <> 0 Then
Begin // Действительно у нас нашелся прьблел
RezStr := Copy(inStr, 1, N);
Delete (inStr,1, N);
RezStr := Trim(RezStr); //Удалили лишние пробелы
Try //Включаем обработку ошибок
InMass.Mass[CurRow, CurCol] := StrtoFloat(RezStr); //Присваиваем элемент массива из строк
except //Если авария
InMass.Mass[CurRow, CurCol] := 0; //Присваиваем элемнту 0
end;
Inc(CurCol);//Перешли к след. стобцу массива
end {If N <> 0 Then}
Else
//Пробела нету, возможно, это последний символ
If Length(InStr)> 0 Then
Begin //Есть значение
Try //Включаем обработку ошибок
InMass.Mass[CurRow, CurCol] := StrtoFloat(InStr); //Присваиваем элемент массива из строк
except //Если авария
InMass.Mass[CurRow, CurCol] := 0; //Присваиваем элемнту 0
Рекомендуем скачать другие рефераты по теме: доклад 6 класс, здоровый образ жизни реферат.
Категории:
Предыдущая страница реферата | 25 26 27 28 29 30 31 32 33 34 35 | Следующая страница реферата
Главная