Замените элементы, стоящие ниже главной диагонали, на противоположные по знаку

@Siborg · Регистрация: 30.05.2018

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

Дана матрица порядка 7х7. Замените элементы, стоящие ниже главной диагонали, на противоположные по знаку.

@Joy · 30.05.2018, 09:00

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      if j<i then begin
        a[i,j]:=-a[i,j];
        StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);
      end;
End;
 
 
procedure TForm1.FormCreate(Sender: TObject);
var
  i,j:integer;
begin
  Randomize;
  StringGrid1.RowCount:=7;
  StringGrid1.ColCount:=7;
  for i:=1 to n do
    for j:=1 to n do begin
      a[i,j]:=random(100)-50;
      StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);
  end;
 
end;

Добавлено через 45 минут
в начале нужно добавить:

Delphi

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

@Siborg · 30.05.2018, 09:58 **[ТС]**

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

@Joy · 30.05.2018, 18:44

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

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

не могу, т.к. нет у меня Delphi. Что конкретно не работает? на форме StringGrid и Button есть? Обработчики событий соответствующие отметили?

@Siborg · 06.06.2018, 05:31 **[ТС]**

Здравствуйте, отвечаю не сразу, извиняюсь. Вообщем StringGrid и Button само собой есть, но насколько я понял слова преподавателя, нужно, что бы был и StringGrid2, то есть что бы замененные элементы отобразились в еще одной таблице.
Если есть возможность, не могли бы вы мне помочь ?

@Joy · 07.06.2018, 13:04

лови

@Siborg 0 / 0 / 0 Регистрация: 30.05.2018 Сообщений: 11
		1
	Замените элементы, стоящие ниже главной диагонали, на противоположные по знаку 30.05.2018, 07:46. Показов 867. Ответов 5 Метки нет (Все метки) Дана матрица порядка 7х7. Замените элементы, стоящие ниже главной диагонали, на противоположные по знаку. 0

@Siborg 0 / 0 / 0 Регистрация: 30.05.2018 Сообщений: 11
	30.05.2018, 09:58 [ТС]	3
	Извините, но не можете ли дать мне полный и измененный код, так как у меня не работает программа. 0

@Joy 2386 / 1298 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	30.05.2018, 18:44	4
	Сообщение от Siborg Извините, но не можете ли дать мне полный и измененный код, так как у меня не работает программа. не могу, т.к. нет у меня Delphi. Что конкретно не работает? на форме StringGrid и Button есть? Обработчики событий соответствующие отметили? 0

@Siborg 0 / 0 / 0 Регистрация: 30.05.2018 Сообщений: 11
	06.06.2018, 05:31 [ТС]	5
	Здравствуйте, отвечаю не сразу, извиняюсь. Вообщем StringGrid и Button само собой есть, но насколько я понял слова преподавателя, нужно, что бы был и StringGrid2, то есть что бы замененные элементы отобразились в еще одной таблице. Если есть возможность, не могли бы вы мне помочь ? 0

	07.06.2018, 13:04