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

[Svetka]

почему то что я отметил не есть хорошо?

я про f понЯла....там должно быть

Код

p1 := p1 * d[i, j];

а почему

Код

pr:=p1;

тут ошибка?

[volvo]

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

[Svetka]

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

пасиба за помощь.......а там ещё один треугольник надо нулями заменить.......это можно в тойже ф-ции сделать....или в другой?

[klem4]

а это не про то ?

http://forum.pascalnet.ru/index.php?showt...indpost&p=40586

[volvo]

Svetka,
Посмотри 5-ый пост, я сразу именно так сделал...

[Svetka]

Svetka,
Посмотри 5-ый пост, я сразу именно так сделал...

он не обнуляет..........

[volvo]

У меня обнулял ...

Функция такая получилась?

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
      p1 := p1 * d[i, j];
      d[i, n - j + 1] := 0;
    end;
  pr:=p1;
end;

[Svetka]

Функция такая получилась?

точно такая же

[volvo]

Ну и объясни мне, ЧТО здесь может не работать?
Вот мой файл:

[Svetka]

Ну и объясни мне, ЧТО здесь может не работать?
Вот мой файл:

всё......получается..............пасибо большое :yes: