Дана матрица... Опции

[ned11]

Народ поможите пожалуйста решить задачку.Горю пипец завтра зачет нужно срочно сделать.
А задача такая:Дана матрица n*n.Вычислить поизведение всех элементов матрицы стоящих в нечетных столбцах и найти сумму элементов главной диагонали

[Bokul]

Код

function sum(mas:main):longint;
var i,j:integer; buf:longint;
begin
buf:=0;
for i:=1 to n do
    for j:=1 to n do
        if i=j then
           inc(buf,mas[i,j]);
sum:=buf;
end;

function product(mas:main):longint;
var i,j:integer; buf:longint;
begin
buf:=1;
for i:=1 to n do
    for j:=1 to n do
        if (j mod 2)<>0 then
           buf:=buf*mas[i,j];
product:=buf;
end;

Сообщение отредактировано: Bokul - 24.05.2006 14:48

[volvo]

function sum(mas:main):longint;
var i:integer; buf:longint;
begin
  buf:=0;
  for i:=1 to n do
    inc(buf,mas[i,i]);
  sum:=buf;
end;

[Bokul]

function sum(mas:main):longint;
var i:integer; buf:longint;
begin
  buf:=0;
  for i:=1 to n do
	inc(buf,mas[i,i]);
  sum:=buf;
end;

Полезно делать такие задачки...

Сообщение отредактировано: volvo - 3.11.2006 22:05

[ned11]

Спасибо вам народ за помощь!!!Даже не представляете как вы меня выручили.

[klem4]

Код

function product(mas:main):longint;
var i,j:integer; buf:longint;
begin
buf:=0; { <----------------------------------------------------------------------------------}
for i:=1 to n do
    for j:=1 to n do
        if (j mod 2)<>0 then
           buf:=buf*mas[i,j];
product:=buf;

function product(mas:main):longint;
var i,j:integer; buf:longint;
begin
buf:=1; { <---------------------------------------------------------------------}
j := 1;
while (j <= n) do begin
  for i := 1 to n do buf:=buf*mas[i,j];
  inc(j, 2);
end;
product:=buf;

ПРОВЕРЯЙТЕ программы прежде чем их выкладывать. !!!