Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 05.06.2018, 14:09
Siborg Siborg вне форума
Прохожий
 
Регистрация: 05.06.2018
Сообщения: 3
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Замените элементы, стоящие ниже главной диагонали, на противоположные по знаку

Добрый день. Помогите пожалуйста решить задачу. Дана матрица порядка 7х7. Замените элементы, стоящие ниже главной диагонали, на противоположные по знаку.
Нужно, что бы была кнопка.
Версия delphi 7
Ответить с цитированием
  #2  
Старый 05.06.2018, 21:19
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

И? В чем проблема то?
Код:
var
  A : Array [1..7,1..7] Of Integer;

procedure TForm1.Button1Click(Sender : TObject);
var
  I, J : Integer;
begin
  For I := 1 To 7 Do
    For J := 7 DownTo I-1 Do // DownTo I - если надо и диагональ менять
      A[I,J] := -1 * A[I,J];
end;
Ответить с цитированием
  #3  
Старый 06.06.2018, 11:03
Siborg Siborg вне форума
Прохожий
 
Регистрация: 05.06.2018
Сообщения: 3
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Проблема в том, что нужны 2 таблицы( StringGrid ).
Нужно, что бы при нажатии кнопки измененные значения отображались во второй таблице, воот.
У меня есть некоторый код, может на основе него получится это сделать.
Если есть возможность, помогите пожалуйста.
Код:
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.StringGrid1Click(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;
end.
Ответить с цитированием
  #4  
Старый 06.06.2018, 21:12
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну и? Просто допиши к данному тебе коду 2 блока:
1 - заполнение массива из первой сетки до изменения массива
2 - заполнение второй сетки из массива после.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:13.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter