Поменять местами элементы главной и побочной диагоналей

@LVNVIN · Регистрация: 20.03.2016

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

Дана матрица целых чисел размером 4х4 (Элемент StringGrid). Button1: Заполнение матрицы автоматиески - рандом. Button2: Поменять местами элементы главной и побочной диагоналей.

@Puporev · 09.02.2018, 11:37

Сообщение от LVNVIN

Поменять местами элементы главной и побочной диагоналей.

Delphi

const n=4;
var a:array[1..n,1..n] of integer;
     i,x:integer;
begin
for i:=1 to n do
 begin
  x:=a[i,i];
  a[i,i]:=a[i,n-i+1];
  a[i,n-i+1]:=x;
 end;

Проект надеюсь сделаете сами.

@LVNVIN · 09.02.2018, 12:21 **[ТС]**

А можно увидеть как это будет вглядеть в stringgrid-е, пожалуйста, как сделать чтоб брать числа из матрицы стринг грид и туда же их помещать.

@Puporev · 09.02.2018, 12:52

Кладете на форму 2 Грида размером 4х4, уберите у них фиксированные строку и столбец.
матрицу объявляете глобально здесь.

Delphi

const n=4;
var
  Form1: TForm1;
  a:array[1..n,1..n] of integer;

По событию OnClick первой кнопки создайте исходную матрицу

Delphi

randomize;
for i:=1 to n do
for j:=1 to n do
 begin
  a[i,j];=10+random(90);
  StringGrid1.Cells[j-1,i-1]:=a[i,j];//ячейки индексируются от 0, сначала столбец, потом строка
 end;

По событию OnClick второй кнопки делаете обмен, как я написал выше и выводите измененную матрицу

Delphi

1
2
3

for i:=1 to n do
for j:=1 to n do
StringGrid2.Cells[j-1,i-1]:=a[i,j];

Добавлено через 16 минут
Извиняюсь, неправильно написал вывод в таблицы. Нужно так

Delphi

1	StringGrid2.Cells[j-1,i-1]:=inttostr(a[i,j]);

@Puporev · 09.02.2018, 12:53

Должно получиться примерно так..

@LVNVIN · 09.02.2018, 12:58 **[ТС]**

Полуается то так, но можно код procedure TForm1.Button2Click(Sender: TObject);, не получается вывести результат во второй СтригГрид.

@Puporev · 09.02.2018, 12:59

Ширину столбцов изменить в инспекторе объектов, свойство DefaultColWidth, по умолчанию стоит 64, замени на 30.

Добавлено через 43 секунды

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var i,j,x:integer;
begin
for i:=1 to n do
 begin
  x:=a[i,i];
  a[i,i]:=a[i,n-i+1];
  a[i,n-i+1]:=x;
 end;
for i:=1 to n do
for j:=1 to n do
StringGrid2.Cells[j-1,i-1]:=inttostr(a[i,j]);
end;

@LVNVIN 0 / 0 / 0 Регистрация: 20.03.2016 Сообщений: 4
		1
	Delphi 6-7 Поменять местами элементы главной и побочной диагоналей 09.02.2018, 11:32. Показов 2089. Ответов 6 Метки delphi 7 (Все метки) Дана матрица целых чисел размером 4х4 (Элемент StringGrid). Button1: Заполнение матрицы автоматиески - рандом. Button2: Поменять местами элементы главной и побочной диагоналей. 0

@LVNVIN 0 / 0 / 0 Регистрация: 20.03.2016 Сообщений: 4
	09.02.2018, 12:21 [ТС]	3
	А можно увидеть как это будет вглядеть в stringgrid-е, пожалуйста, как сделать чтоб брать числа из матрицы стринг грид и туда же их помещать. 0

@Puporev Почетный модератор 64279 / 47578 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	09.02.2018, 12:53	5
	Должно получиться примерно так.. Миниатюры 0

@LVNVIN 0 / 0 / 0 Регистрация: 20.03.2016 Сообщений: 4
	09.02.2018, 12:58 [ТС]	6
	Полуается то так, но можно код procedure TForm1.Button2Click(Sender: TObject);, не получается вывести результат во второй СтригГрид. 0

Опции темы

Поменять местами элементы главной и побочной диагоналей

Решение