Побочная диагональ массива

@Newbie58 · Регистрация: 28.11.2012

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

Здравствуйте, сия проблемка, нужно вычислить сумму побочной диагонали матрицы, естественно квадратной, но, это моя первая работа с двумерным массивом, формулу вроде просёк, как выявить эту диагональ то, но запутался с циклом. Сразу скажу на счёт кода, решил поступить так, чтобы программа хотя бы, работала, находя сумму всего массива, чтобы понять суть, но не смог и этого :C

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
type
  mas=array[1..6,1..6] of Integer;
var
  i,s,j:Integer;
  X:mas;
  begin
  s:=0;
  for i:=1 to 6 do
  X[i]:=StrToInt(StringGrid1.Cells[i,j]);
  for j:=1 to 6 do
  X[i]:=StrToInt(StringGrid1.Cells[i,j]);
  s:=s+X[i];
  Label1.Caption:='Количество='+IntToStr(s);
 
end;
 
end.

@antikiler_ · 18.12.2012, 01:04

1.Если Х есть двухмерный массив, то и обращатся к нему надо как к двухмерному, а не к одномерному

Delphi

for i:=1 to 6 do
   for j:=1 to 6 do
     begin
       X[i,j]:=StrToInt(StringGrid1.Cells[j,i]);
       s:=s+X[i];
     end;

2. Не забывать, что ячейки StringGrid нумеруются с нуля, а также обращение к ним так [столбец,строка] а не как в двухмерном массиве [строка,столбец]

@volvo · 18.12.2012, 11:40

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

обращатся к нему надо как к двухмерному, а не к одномерному

А сам в пятой строке продолжаешь обращаться, как к одномерному

Newbie58, для того, чтобы посчитать сумму элементов на побочной диагонали, не надо вложенных циклов, всё прекрасно считается одним. По строкам. В зависимости от номера строки легко (зная количество столбцов) вычисляется второй индекс.

@Newbie58 · 18.12.2012, 11:52 **[ТС]**

Delphi

type
  mas=array[1..6,1..6] of Integer;
var
  i,s,j:Integer;
  X:mas;
  begin
  s:=0;
  j:=6;
  for i:=1 to 6 do
     begin
       X[i,j]:=StrToInt(StringGrid1.Cells[j,i]);
       s:=s+X[i,j];
       j:=j-1;
     end;
  Label1.Caption:=floattostr(s);

вот вроде, чтобы в 1 цикле я сделал, компилирует, после запуска , заполняю массив числами, для примера единичками, он выдает ошибку "Project1.exe raised exception class EConvertError with message ''' is not a valid integer value'. process stopped.
как я понял фишка в переводе из стринг грида в числа, или то , что ответ не число, что вводит в заблуждение мой разум)

@FIL · 18.12.2012, 12:23

А что в StringGrid1 записывается, код покажи.

@Newbie58 · 18.12.2012, 12:29 **[ТС]**

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
type
  mas=array[1..6,1..6] of Integer;
var
  i,s,j:Integer;
  X:mas;
  begin
  s:=0;
  j:=6;
  for i:=1 to 6 do
     begin
       X[i,j]:=StrToInt(StringGrid1.Cells[j,i]);
       s:=s+X[i,j];
       j:=j-1;
     end;
  Label1.Caption:=floattostr(s);
 
end;
 
end.

А если имеешь ввиду числа какие, то тут любые, вводишь вручную) можно и рандомом, но я не стал с ним возиться

@FIL · 18.12.2012, 12:34

А сколько в гриде столбцов/строк? Должно быть 7 (0..6).

@volvo · 18.12.2012, 12:34

Newbie58, ну ведь говорили, что индексация в StringGrid-е начинается с 0. Значит, если в гриде у тебя 6 строк и 6 столбцов, то обращение к ячейке Cells[1, 6] на первой же итерации будет происходить к невидимой ячейке, значение которой ты не назначал. По умолчанию там - пустая строка. Вот тебе и сообщение об ошибке...

@Newbie58 · 18.12.2012, 12:45 **[ТС]**

я 1 строку и 1 столбец заблокировал

@FIL · 18.12.2012, 12:49

И что это меняет?

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

Должно быть 7 (0..6).

@Newbie58 · 18.12.2012, 12:54 **[ТС]**

можно с кодом , пожалуйста?) где именно 0..6

@FIL · 18.12.2012, 13:04

В Инспекторе Объектов Грида поставь 7 у ColCount и RowCount.

@Newbie58 · 18.12.2012, 13:48 **[ТС]**

Всё, заработало, всем спасибо)

@antikiler_ · 19.12.2012, 01:46

Не по теме:

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

А сам в пятой строке продолжаешь обращаться, как к одномерному

Бывает....:-[

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	18.12.2012, 12:49	10
	И что это меняет? Сообщение от gorfil Должно быть 7 (0..6). 0

@volvo Супер-модератор 32991 / 21297 / 8180 Регистрация: 22.10.2011 Сообщений: 36,591 Записей в блоге: 8
	18.12.2012, 11:40	3
	Сообщение от antikiler_ обращатся к нему надо как к двухмерному, а не к одномерному А сам в пятой строке продолжаешь обращаться, как к одномерному Newbie58, для того, чтобы посчитать сумму элементов на побочной диагонали, не надо вложенных циклов, всё прекрасно считается одним. По строкам. В зависимости от номера строки легко (зная количество столбцов) вычисляется второй индекс. 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	18.12.2012, 12:23	5
	А что в StringGrid1 записывается, код покажи. 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	18.12.2012, 12:34	7
	А сколько в гриде столбцов/строк? Должно быть 7 (0..6). 0

@Newbie58 0 / 0 / 1 Регистрация: 28.11.2012 Сообщений: 31
	18.12.2012, 12:45 [ТС]	9
	я 1 строку и 1 столбец заблокировал 0

@Newbie58 0 / 0 / 1 Регистрация: 28.11.2012 Сообщений: 31
	18.12.2012, 12:54 [ТС]	11
	можно с кодом , пожалуйста?) где именно 0..6 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	18.12.2012, 13:04	12
	В Инспекторе Объектов Грида поставь 7 у ColCount и RowCount. 1

@Newbie58 0 / 0 / 1 Регистрация: 28.11.2012 Сообщений: 31
	18.12.2012, 13:48 [ТС]	13
	Всё, заработало, всем спасибо) 0

@antikiler_
	19.12.2012, 01:46 Побочная диагональ массива #14
	Не по теме: Сообщение от UI А сам в пятой строке продолжаешь обращаться, как к одномерному Бывает....:-[ 0