Работа с матрицами

@delphi_man · Регистрация: 11.03.2009

Author24 — интернет-сервис помощи студентам

всем привет парни. сижу мучаюсь ничего в голову не лезет. выручайте. есть программа, ее нужно разбить на 2. в первой чтоб матрица выполняла решение и сохраняла данные в файл, во второй чтоб эти данные можно было открыть в поле Memo. вот сама прога:

Delphi

procedure TForm1.BitBtn1Click(Sender: TObject);
const
n=4; m=4;
var
i,j:byte;
min,sum,K:integer;
A:array [1..n,1..m] of integer;
begin
for i:=1 to n do
for j:=1 to m do
begin
A[i,j]:=StrToInt(StringGrid1.Cells[i,j]);
end;
min:=A[1,1];
sum:=0;
for i:=1 to n do
for j:=1 to m do
begin
if A[i,j]<=min then
min:=A[i,j];
K:=j;
end;
for i:=1 to m do
sum:=sum*A[i,K];
MessageDlg('Произведение строки с минимум элементом='+IntToStr(sum),mtInformation,[mbOk],0);
end;
end.

@Arriba · 12.03.2009, 15:38

Ты бы хотяб сказал что программа то делает...на что ориентироваться нуно, задание пожалуйста...

@delphi_man · 12.03.2009, 15:43 **[ТС]**

в первой задаче: нужно ввести с клавиатуры значения в матрицу, затем по условию она должна строку с минимальным эллементом перемножить, результат сохранить в файл. во второй: чтоб программа открыла данные из файла в поле Memo

@Arriba 257 / 173 / 27 Регистрация: 17.10.2008 Сообщений: 770
	12.03.2009, 15:38	2
	Ты бы хотяб сказал что программа то делает...на что ориентироваться нуно, задание пожалуйста... 0

@delphi_man 0 / 0 / 0 Регистрация: 11.03.2009 Сообщений: 3
	12.03.2009, 15:43 [ТС]	3
	в первой задаче: нужно ввести с клавиатуры значения в матрицу, затем по условию она должна строку с минимальным эллементом перемножить, результат сохранить в файл. во второй: чтоб программа открыла данные из файла в поле Memo 0