25.11.2008, 23:51
|
Активный
|
|
Регистрация: 12.06.2008
Сообщения: 313
Репутация: 40
|
|
В основном у тебя все верно, просто с коэффициентами i и j напутался. Вот это вроде рабочий вариант
Код:
procedure TForm1.Button2Click(Sender: TObject);
var
Max, i, j: integer;
begin
for i := 0 to n do
begin
Max := B[0, i];
for j := 1 to n do
if B[j, i] > Max then Max := B[j, i]; // максимальное значение
for j := 0 to n do
StringGrid3.Cells[j, i] := IntToStr(A[j, i]*Max); // перемножаем соотв. коэффициенты
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
Mul, i, j: integer;
begin
for i := 0 to n do
begin
Mul := 1;
for j := 0 to n do
Mul := Mul*B[j, i]; // находим произведение элементов строки
for j := 0 to n do
StringGrid3.Cells[i, j] := IntToStr(A[i, j] + Mul);
end;
end;
|