Если элементы главной диагонали образуют возрастающую последовательность, заменить элементы побочной диагонали на значения суммы элементов

@yct9 · Регистрация: 19.10.2013

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

Если элементы главной диагонали образуют возрастающую последовательность, заменить элементы побочной диагонали на значения суммы элементов соответствующих столбцов

@some_name · 08.03.2014, 04:14

Лови!

Pascal

program Unnamed;
 
uses crt;
 
const
n = 5;
 
procedure PrintArr(ArrData : Array[1..n, 1..n] of Integer);
var
i, j : Integer;
begin
     for i := 1 to n do
     begin
         for j := 1 to n do
             write(ArrData[i, j] : 3);
         writeln();
     end;
end;
 
var
ArrData : Array[1..n, 1..n] of Integer;
i, j, s : Integer;
isOrder : Boolean;
 
begin
  cls;
  //Initialization matrix
  for i := 1 to n do
      for j := 1 to n do
      begin
          ArrData[i, j] := random(i*j);
          if i = j then
             ArrData[i, j] := i;
      end;
          
  writeln('Matrix :');
  PrintArr(ArrData);
  
  //Check order
  isOrder := true;
  for i := 2 to n do
      if ArrData[i, i] <= ArrData[i-1, i-1] then
         begin
             isOrder := false;
             break
         end;
 
  //Replace elements
  if isOrder = true then
     for i := 1 to n do
         begin
         //Calculate summ
         s := 0;
         for j := 1 to n do
             s := s + ArrData[j, i];
         ArrData[(n + 1) - i, i] := s;
     end;
     
   //Print result
   writeln('Result(',isOrder,') :');
   PrintArr(ArrData);
end.

Если элементы главной диагонали образуют возрастающую последовательность, заменить элементы побочной диагонали на значения суммы элементов

@Fene4ka_ · 08.03.2014, 04:38

some_name, как вы прикрепили картинку ?

@Puporev · 08.03.2014, 09:39

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

как вы прикрепили картинку ?

https://www.cyberforum.ru/abou... 03521.html

@NIKOLAYY · 08.03.2014, 21:05

yct9,
Еще вариант, визуальный, можно менять размер матрицы, редактировать, тестить..

Delphi

const
  n = 5;
var
  Form1: TForm1;
  i, j: Integer;
  b: Boolean;
  mas: array[0..n-1] of Integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  //настройка, таблица
  StringGrid1.ColCount := n;
  StringGrid1.RowCount := n;
  StringGrid1.DefaultColWidth := 20;
  StringGrid1.DefaultRowHeight := 20;
  StringGrid1.ClientWidth := StringGrid1.DefaultColWidth * n + 10;
  StringGrid1.ClientHeight := StringGrid1.DefaultRowHeight * n + 10;
  StringGrid1.Options:=StringGrid1.Options+[goEditing];
 
  //заполним числами
  for i := 1 to n do
    for j := 1 to n do
    StringGrid1.Cells[i-1, j-1] := IntToStr(Random(10));
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  //проверка диагонали по условиям в описании
  for i := 1 to n do
    for j := 1 to n do
    begin
      if (i = j) and (StrToInt(StringGrid1.Cells[i, j]) > StrToInt(StringGrid1.Cells[i - 1, j - 1])) then
       b := True
      else if (i = j) and (StrToInt(StringGrid1.Cells[i, j]) <= StrToInt(StringGrid1.Cells[i - 1, j - 1])) then
      begin
        b := False;
        Exit; //выход! условия несовпали
      end;
      if i = n then
        Break; //последний элемент не сравниваем, т.к несчем
    end;
 
 //запись в массив суммы столбцов
  if b = true then
    for i := 0 to n - 1 do
      for j := 0 to n - 1 do
        mas[i] := mas[i] + StrToInt(StringGrid1.Cells[i, j]);
 
  //запись в побочную диагональ таблицы этой суммы из массива
  for i := 0 to n - 1 do
    for j := 0 to n - 1 do
    begin
      if i + j = n - 1 then
        StringGrid1.Cells[i, j] := IntToStr(mas[i]);
    end;
end;
 
end.

@yct9 1 / 1 / 2 Регистрация: 19.10.2013 Сообщений: 63
		1
	Если элементы главной диагонали образуют возрастающую последовательность, заменить элементы побочной диагонали на значения суммы элементов 08.03.2014, 02:58. Показов 920. Ответов 4 Метки нет (Все метки) Если элементы главной диагонали образуют возрастающую последовательность, заменить элементы побочной диагонали на значения суммы элементов соответствующих столбцов 0

@Fene4ka_ 102 / 102 / 40 Регистрация: 24.01.2014 Сообщений: 1,242
	08.03.2014, 04:38	3
	some_name, как вы прикрепили картинку ? 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	08.03.2014, 09:39	4
	Сообщение от Fene4ka_ как вы прикрепили картинку ? https://www.cyberforum.ru/abou... 03521.html 1

	08.03.2014, 21:05