Матрицы. Найти сумму элементов главной и побочной диагонали.

@houmy · Регистрация: 18.05.2008

Дана матрица вещественых чисел P(7,7). Вычислить сумму элементов главной диагонали и симметричной ей.

Pascal

program qwesadf;
uses crt;
var p:array[1..10,1..10] of real;i,n,j:integer;s1,s2:real;
begin
clrscr;
writeln('vvedite razmer matrici');
readln(n);
writeln('vvedite elementi matrici');
s1:=0;
s2:=0;
for i:=1 to n do
for j:=1 to n do
begin
s1:=s1+p[i,i];
s2:=s2+p[i,n+1-i];
readln(p[i,j]);
end;
writeln('summa elementov glavnoi diagonali     ',s1:2:2);
writeln('summa elementov diagonali simetrichnoi glavnoi    ',s2:2:2);
end.

Решение по непонятным мне причинам выдаёт неправильный ответ. Прошу помочь найти и исправить ошибку.

@Puporev · 18.05.2008, 23:19

То, что написано не может считать неправильно, оно вообще считать не может.
1. Если задана матрица 7х7, то зачем вводить n?
2.

writeln('vvedite elementi matrici');

Ну и где ваши элементы?
3.

for i:=1 to n do
for j:=1 to n do

Зачем здесь j, если в расчетах оно не участвует?
4. Чего это у вас побочная диагональ замаскировалась под какую-то "симметричную главной"?
Если исправить все эти ляпы, то получится следующее:

Код

[SIZE=2]program qwesadf;[/SIZE]
[SIZE=2]uses crt;[/SIZE]
[SIZE=2]const n=7;[/SIZE]
[SIZE=2]var p:array[1..7,1..7] of real;[/SIZE]
[SIZE=2]i,j:integer;[/SIZE]
[SIZE=2]s1,s2:real;[/SIZE]
[SIZE=2]begin[/SIZE]
[SIZE=2]clrscr;[/SIZE]
[SIZE=2]randomize;[/SIZE]
[SIZE=2]writeln('Ishodnaja matrica:');[/SIZE]
[SIZE=2]for i:=1 to n do[/SIZE]
[SIZE=2]begin[/SIZE]
[SIZE=2]for j:=1 to n do[/SIZE]
[SIZE=2]begin[/SIZE]
[SIZE=2]p[i,j]:=random(10)+random;[/SIZE]
[SIZE=2]write(p[i,j]:6:2);[/SIZE]
[SIZE=2]end;[/SIZE]
[SIZE=2]writeln;[/SIZE]
[SIZE=2]end;[/SIZE]
[SIZE=2]s1:=0;[/SIZE]
[SIZE=2]s2:=0;[/SIZE]
[SIZE=2]for i:=1 to n do[/SIZE]
[SIZE=2]begin[/SIZE]
[SIZE=2]s1:=s1+p[i,i];[/SIZE]
[SIZE=2]s2:=s2+p[i,n+1-i];[/SIZE]
[SIZE=2]end;[/SIZE]
[SIZE=2]writeln('summa elementov glavnoi diagonali ',s1:0:2);[/SIZE]
[SIZE=2]writeln('summa elementov pobochnoj diagonali ',s2:0:2);[/SIZE]
[SIZE=2]readln[/SIZE]
[SIZE=2]end.[/SIZE]

Опции темы