Нужна помощь в задачах Pascal.

[Fox91]

Очень прошу помочь, т.к. в матрицах ничего не смыслю,а зачетное задание связанно именно с ними.

1)Сформировать из элементов исходной матрицы, лежащих на главной диагонали и над ней, симметрическую матрицу (если Aij =Aji , при любых i j).

2)Сформировать диагональную матрицу из элементов, которые определяются как суммы элементов столбцов исходной матрицы.

3)Сформировать вектор, элементами которого являются модули сумм элементов столбцов исходной матрицы.

P.S. Заранее блогодарю.

[Fox91]

Помогите пожадуйста,очень прошу,надо для зачёта!!!!!!

[Sasha_Smirnov]

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

[Sazary]

Все задания - в одной проге. Думаю, разберетесь. Там все понятно.

uses crt;

const N=5;
var
A,B,C : array[1..N,1..N] of integer;
V : array[1..N] of integer;
i,j,sum : integer;


begin
clrscr;

{ Zapolnenie matricy }
randomize;
for i:=1 to N do
 begin
 for j:=1 to N do
  begin
  A[i,j] := random(50)-20;
  write(A[i,j]:5);
  end;
 writeln;
 end;
{---}

{ sozdaem matricy B }
for i:=1 to N do
 begin
 for j:=i to N do
  B[i,j] := A[i,j];
 for j:=1 to i do
  B[i,j] := B[j,i];
 end;
{-------}
{ vyvodim B }
writeln;
for i:=1 to N do
 begin
 for j:=1 to N do
  write(B[i,j]:5);
 writeln;
 end;
{----}
{ diagonalnaya matrica }
writeln;
for i:=1 to N do
 begin
 for j:=1 to N do
  begin
  if i=j then C[i,j]:=A[i,j]
  else C[i,j]:=0;
  write(C[i,j]:5);
  end;
 writeln;
 end;
{------}
writeln;
for j:=1 to N do
 begin
 sum:=0;
 for i:=1 to N do
  sum:=sum + A[i,j];
 V[j] := abs(sum);
 write(V[j]:5);
 end;
writeln;


readln;
end.

[Fox91]

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

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

ну да,я ведь в первом посте писал что не очень в нем,но все же,спасибо кто помог!!!

[Fox91]

А как сформировать исходную матрицу(код).....

P.S. Я не бум-бум в Pascal;(просто начали его пары 3 назад,и я ниче не понял,а преподователь сказал-:"ниче не знаю")

[Sazary]

А как сформировать исходную матрицу(код).....

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

{ Zapolnenie matricy }
randomize;
for i:=1 to N do
 begin
 for j:=1 to N do
  begin
  A[i,j] := random(50)-20;
  write(A[i,j]:5);
  end;
 writeln;
 end;
{---}

[Fox91]

Кто-нибудь знает как исправить ошибку:
"Error 200: Division by zero"???
И из-за чего она вылетает??

[alex_fcsm]

Она вылетает потому что происходит деление на 0

[Riddick92]

Помогите решить задачи по Pascal ,я в ничего не понимаю