Матрица. Сумма элементов главной диагонали

[RECREATOR]

Помогите пожалуйста. - дана матрица размера n*n. Сосчитать сумму элементов главной диагонали всех матриц и найти их определители

[SEREG@]

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

Помогите пожалуйста. - дана матрица размера n*n. Сосчитать сумму элементов главной диагонали всех матриц и найти их определители

В принципе тут несложно.У тебя i=j ,где i-индекс строки,j-индекс столбца,i=j это главная диагональ,тебе остается найти токо сумму.
S:=S+A[i,j,];
вроде так пишется(S-сумма).

[Карась]

for i := 1 to 7 do summa := summa + mas[i,i]; Writeln (summa);

[kommunist]

program matrica;
uses crt;
const n = 7;
type matrix = array[1..n,1..n] of itneger;
var
    a:matrix;
    i:itneger;
    j:integer;
    summa:integer;
begin
 randomize;
 clrscr;
 for I:+ 1 to n do
begin
 for j:+ 1 to n do
begin
 a[i,j] := random(10);
 write(a[i,j]:2,' ');
end;
 writeln;
end;
 writeln;
 summa:=0;
 for i:+ 1 to n do
begin
 for j:+ 1 to n do
begin
 if i = j
 then
 inc(summa,a[i,j]);
end;
 writeln;
end;
  write('summa=',' ',summa);
  readln;
end.

[puporev]

дана матрица размера n*n. Сосчитать сумму элементов главной диагонали всех матриц и найти их определители

Уточните, у каких ВСЕХ матриц нужно найти суммы и определители.
Вероятно что-то связано с минорами?

[RECREATOR]

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

Уточните, у каких ВСЕХ матриц нужно найти суммы и определители.
Вероятно что-то связано с минорами?

Не правильно выразился, вот так - Сосчитать сумму элементов её главной диагонали и найти её определители

[puporev]

и найти её определители

Вообще-то у матрицы только один определитель. Что вы имеете в виду, когда пишите ее определителИ?
И еще, не могли бы привести полное задание в оригинале. Что-то берет сомнение по его поводу. Первая часть задачи для 9 класса, вторая для 2 курса универа для непрофильных специальностей.

[puporev]

помогите пожалуйста переделать на делфи

Что переделать?

она же на паскале

[Gassan]

Доброго времени суток.
Возник вопрос : Как в матрице n*n посчитать сумму элементов главной диагонали
Вот код, нутром чуствую что тут нужно дописать 1-2 строчки, но что-то немогу подкопаться к этому вопросу....

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    StringGrid1: TStringGrid;
    BitBtn1: TBitBtn;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  m,n,i,j,suma:integer;
  a:array of string;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);


    begin
    Memo1.Lines.Clear;
    n:=StrToInt(edit1.Text);
    StringGrid1.RowCount:=n+1;
    StringGrid1.ColCount:=n+1;
    for i:=1 to N do
    begin
    StringGrid1.Cells[0,i]:= ' I= '+inttostr(i);
    StringGrid1.Cells[i,0]:= ' J= '+inttostr(i);
    end;
    for i:=1 to N do
    for j:=1 to N do
    Stringgrid1.Cells[i,j]:= inttostr(random (30));

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear

end;

procedure TForm1.Button2Click(Sender: TObject);


begin
    for i:=1 to N do
    suma:=StrToInt(StringGrid1.Cells[i,i]);
    m:=suma;
    memo1.Lines.Add(inttostr(m))

end;

end.

загвоздка на переменной m, подскажите как к ней функцию прицепить, чтобы сумму считала, а не показывала последний элемент главной диагонали. Заранее спасибо

[Alex Cones]

Господи, да когда же люди искать научатся?
http://www.programmersforum.ru/showthread.php?t=70310