1. В данной матрице диагональные элементы заменить на "0".
Настройка компонентов:
В Инспекторе объектов
для компонента StringGrid1 свойства
Убрать заголовки строк
FixedCols = 0
Убрать заголовки колонок
FixedRows = 0
Установить количество колонок
ColCount = 5
Установить количество строк
RowCount = 5
Установить ширину всех колонок
DefaultColWidth = 30
Установить высоту всех строк
DefaultRowHeight = 30
Для компонента SpinEdit1, на вкладке Misc, свойства
MaxValue = 10
MinValue = -10
Value = 1
Пример интерфейса
Пример программы
// Глобальные константы.
Const
COL_MAX = 5;
ROW_MAX = 5;
A = -25;
B = 15;
// Глобальные переменные.
var
z : array [0..COL_MAX - 1, 0..ROW_MAX - 1] of Integer;
procedure TForm1.Button1Click(Sender: TObject);
var
col, row : Byte;
begin
for row := 0 to ROW_MAX - 1 do begin
for col := 0 to COL_MAX - 1 do begin
StringGrid1.Cells[col, row] := IntToStr(z[col, row]);
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
col, row : Byte;
x : Integer;
begin
x := SpinEdit1.Value;
for row := 0 to ROW_MAX - 1 do begin
for col := 0 to COL_MAX - 1 do begin
if col = row then begin
z[col, row] := x;
StringGrid1.Cells[col, row] := IntToStr(z[col, row]);
end;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
col, row : Byte;
begin
Randomize;
for row := 0 to ROW_MAX - 1 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;