2. Найти сумму элементов данной строки заданной матрицы.
Настройка компонентов:
В Инспекторе объектов
для компонента StringGrid1 свойства
Убрать заголовки строк
FixedCols = 0
Установить заголовки колонок
FixedRows = 1
Установить количество колонок
ColCount = 5
Установить количество строк
RowCount = 5
Установить ширину всех колонок
DefaultColWidth = 30
Установить высоту всех строк
DefaultRowHeight = 30
Columns[0].Title.Caption = 1
Columns[1].Title.Caption = 2
Columns[2].Title.Caption = 3
Columns[3].Title.Caption = 4
Columns[4].Title.Caption = Sum
Для компонента SpinEdit1, на вкладке Misc, свойства
MaxValue = 4
MinValue = 1
Value = 1
Пример интерфейса
Пример программы
// Глобальные константы.
Const
SUM_COL = 4; // Колонка для записи сумм строк
COL_MAX = 4;
ROW_MAX = 4;
A = -25;
B = 15;
// Глобальные переменные.
var
z : array [0..COL_MAX - 1, 1..ROW_MAX] of Integer;
procedure TForm1.Button1Click(Sender: TObject);
var
col, row : Byte;
begin
for row := 1 to ROW_MAX do begin
for col := 0 to COL_MAX - 1 do begin
z[col, row] := Random(B - A + 1) + A;
StringGrid1.Cells[col, row] := IntToStr(z[col, row]);
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
col, row : Byte;
n_row, sum : Integer;
begin
n_row := SpinEdit1.Value;
sum := 0;
for col := 0 to COL_MAX - 1 do begin
sum := sum + z[col, n_row];
end;
StringGrid1.Cells[SUM_COL, n_row] := IntToStr(sum);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
col, row : Byte;
begin
Randomize;
for row := 1 to ROW_MAX do begin
for col := 0 to COL_MAX - 1 do begin
z[col, row] := Random(B - A + 1) + A;
StringGrid1.Cells[col, row] := IntToStr(z[col, row]);
end;
end;
end;