матрицы

[Иван228]

КАК найти произведение главной диагонали матрицы?

[VektorAB]

a - квадратный массив
i - вспомогательня переменная
n - размерность массива
proizv - переменная для вычисления произведения

proizv := 1;
for i:=1 to n do
   proizv := proizv * a[i,i];

[Иван228]

что то не получается...он так находит произведение всей матрицы!!!

[Hacker19_90]

что то не получается...он так находит произведение всей матрицы!!!

не не
Так

proizv := 1;
for i:=1 to n do
   proizv := proizv * a[i,i];

найдётся произведение именно главной диагонали
Если у вас считает произведение всех элементов, значит вы что-то не так реализовали!
Покажите свой код!

[Иван228]

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

не не
Так

найдётся произведение именно главной диагонали
Если у вас считает произведение всех элементов, значит вы что-то не так реализовали!
Покажите свой код!

program pr;
uses crt;
var B: array[1..8,1..8] of integer;
i,j,S,P:integer;
begin clrscr;
for i:=1 to 8 do
for j:=1 to 8 do B[i,j]:=random(35)-5;
for i:=1 to 8 do begin
for j:=1 to 8 do write (B[i,j]:5);
writeln;
end;
S:=0;for i:=1 to 8 do
for j:=1 to 8 do S:=S+B[i,j];
writeln('Summa=',S);
begin
P:=1; for i:=1 to 8 do
for j:=1 to 8 do P:=P*B[i,j];
writeln('Proizvedenie=',P);
readln;
end;
end.

вобщем получается 0, хотя такого не может быть...(т.к. в главной диагонали 0 нет!!!)

[Hacker19_90]

так вот вам переправленный код

program pr;
uses crt;
var 
    B: array[1..8,1..8] of integer; 
    i,j,S,P:integer;
begin 
    clrscr;
    randomize;
    S := 0;
    P := 1;
    for i:=1 to 8 do 
        for j:=1 to 8 do
        begin 
            B[i,j]:=random(35)-5;
            Inc(S, B[i,j]);
            if j = i then P := P * B[i, j];
        end;
    for i:=1 to 8 do 
    begin 
        for j:=1 to 8 do write (B[i,j]:5);
        writeln;
    end; 
    writeln('Summa=',S);
    writeln('Proizvedenie=',P);
    ReadKey; 
end.

В вашем коде путаница с бегинами и ендами!

[Иван228]

спасиб!!!а как S получилось если его не находили??

[Hacker19_90]

а как S получилось если его не находили??

Inc(S, B[i,j]);

[Иван228]

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

Inc(S, B[i,j]);

а блок-схема такая будет??

[Hacker19_90]

а блок-схема такая будет??

хз!
У каждого препода свои требования! Я по другому делал!