матрицы, выделение треугольника матрицы Опции

[Svetka]

Мне нужно
1) найти центр матрицы (7,7) и посчитать сумму нижнего треугольника.....как это сделать?
2)найти центр матрицы(5,5) и посчитать произведение левого бокового треугольника а правый треугольник заменить нулями.как найти эти треугольники?

[volvo]

Ну, да... А что еще нужно?
Только сначала матрицу не забудь заполнить

[Svetka]

Ну, да... А что еще нужно?
Только сначала матрицу не забудь заполнить

да........ я заполнила ......пасиба большое)))
а если сделать две функции
1 для произведения

Код

function pr(var d:matrix:n,k:integer):integer;
var
i.j:integer;
p1:integer;
begin
p1:=1;
for j := 1 to (n div 2) + 1 do
 for i := j to n - j + 1 do begin
   p := p * a[i, j];     { Левый треугольник }

другая для нулей

Код

function nul(var d:matrix:n,k:integer):integer;
var
i.j:integer;
n1:integer;
begin
n1:=0;
for j := 1 to (n div 2) + 1 do
 for i := j to n - j + 1 do begin
a[i, n - j + 1] := 0; { Правый треугольник }

так получается?или не так?)

Сообщение отредактировано: Svetka - 8.05.2005 13:44

[volvo]

так получается?или не так?)

:yes: Так... Только я не понял, зачем тебе n1:=0;? Ты же его не используешь...

И, если можно, еще объясни, что за K ты передаешь в процедуру? Вроде по условию матрица квадратная, а не прямоугольная...