Матрицы действительных чисел. Паскаль.

[zmey1]

Всем привет.

Помогите сделать программку с матрицами на паскале.
Я читал тут тему про матрицы, но там описывают только матрицы действительных чисел размерности N*N.
А у меня размерность M*N. То есть не обязательно квадратная.

И координаты не фиксированные, а должны быть введены с помощью readln.
Вообщем процедура должна обеспечить получение суммы элементов матрицы по столбцам, строкам и диагоналям, параллельным главной диагонали. Результаты всего этого добра должны появиться в матрице в соответствующих столбцах и строках.

Помогите плиз, добрые программисты=)

[p51x]

Я читал тут тему про матрицы, но там описывают только матрицы действительных чисел размерности N*N.
А у меня размерность M*N. То есть не обязательно квадратная.

И чо? Как это повлияет на код, кроме замены в одном из циклов второй границы с N на M?

[Вадим Мошев]

Вообщем процедура должна обеспечить получение суммы элементов матрицы по столбцам, строкам и диагоналям, параллельным главной диагонали. Результаты всего этого добра должны появиться в матрице в соответствующих столбцах и строках.

а где должны появиться суммы диагоналей?

[veniside]

Очевидно на диагоналях, перпендикулярных главной

[Serge_Bliznykov]

А у меня размерность M*N. То есть не обязательно квадратная.

И координаты не фиксированные, а должны быть введены с помощью readln.
Вообщем процедура должна обеспечить получение суммы элементов матрицы по столбцам, строкам и диагоналям, параллельным главной диагонали.

Вы очень сильно заблуждаетесь. Понятие "главной" (как, впрочем и "побочной") диагонали определено исключительно для КВАДРАТНОЙ матрицы.
отсюда и пляшите...

а в остальном я согласен с p51x - хоть N на N, хоть M на L - принципиально это ничего не меняет, те же самые циклы...

[p51x]

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

[Serge_Bliznykov]

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

ладно. допустим, мы забыли про математические правила и определения.
Но тогда, вот меня всегда интересовало, с точки зрения таких "преподавателей",
если матрица (допустим!) m=3 n=8:

1   2  3  4  5  6  7  8
21 22 23 24 25 26 27 28
31 32 33 34 35 36 37 38

напишите, пожалуйста, сколько элементов входит в главную диагональ матрицы?
и какие именно элементы матрицы составляют главную диагональ (и поясните, почему именно они. /ну, по какому правилу они попали в эту главную диагональ...)

[p51x]

есть два варианта:
1. диагональ с 1 до 33, как в квадратных
2. и лента из "диагоналей" - первая начинается с 1, последняя заканчивается 38

почему? а фих его знает... наверное так похоже на квадратные

П.С. все по опыту, а не по математике....

[zmey1]

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

Вы очень сильно заблуждаетесь. Понятие "главной" (как, впрочем и "побочной") диагонали определено исключительно для КВАДРАТНОЙ матрицы.
отсюда и пляшите...

Спасибо, а то я чет уже зашугался=))

У меня получилось вычислить сумму строк и столбцов, но никак не получается вычислить сумму элементов параллельных главной диагонали.
И проблема в том, что количество строк и столбцов должен вводить пользователь.
Подскажите, пожалуйста, че нужно дописать.

Вот код:

Program  matrix;
uses crt;

const n=5;m=5;
Var a:array[1..n,1..m] of integer;
s,w,d,i,j:integer;
Begin
Randomize;



For i:=1 to n do
begin
For j:=1 to m do
begin
a[i,j]:=random(6); 
write(a[I,j]:4);
end;
writeln;
end;
{Считаем сумму строк}
For i:=1 to n do
Begin
s:=0;
For j:=1 to m do
s:=s+a[i,j];
writeln ('Сумма ',I,' строки ',s);
end;


{Считаем сумму столбцов}
readln;
For j:=1 to m do
Begin
d:=0;
For i:=1 to n do
d:=d+a[i,j];
writeln ('Сумма ',j,' столбца ',d);
end;
readln;



end.

___________
Код нужно оформлять по правилам!
И не тегом "цитата", а тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1) в задании у Вас сказано, матрицы действительных чисел. Если мне не изменяет память, то это ВЕЩЕСТВЕННЫЕ числа.
Вы же описываете массив ЦЕЛЫХ чисел. Это неверно.


2)

И проблема в том, что количество строк и столбцов должен вводить пользователь.

по строчке uses CRT; я вижу, что Вы используете TurboPascal.
в нём не было реальных динамических массивов.

Был ряд способов как можно обойтись без динамических массивов:

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

либо использовать связанные списки, куда добавлять элементы, выдяляя память динамически, по мере необходимости,

либо, САМЫЙ ПРОСТОЙ способ - объявить массив заведомо большего, чем может быть размера (например, 100), обязательно хранить размер реально используемый размер массива, который вводится оператором и которые не может превышать максимально-заданное программистом значение.
выглядеть это может так:

Const
   MaxN = 100;
   MaxM = 100;
var A : array[1..MaxN,1..MAxM] of real;
  n. m : integer;
  .....
begin
  repeat
    WriteLn('Введите число строк матрицы: ');
    Readln(n);
    if (n<1) or (n>MaxN) then WriteLn('Ошибка. Число строк должно быть от 1 до ',MaxN);
  until (n>=1) and (n<=MaxN);
  repeat
    WriteLn('Введите число столцов матрицы: ');
    Readln(m);
    if (m<1) or (m>MaxM) then WriteLn('Ошибка. Число строк должно быть от 1 до ',MaxM);
  until (m>=1) and (m<=MaxM);

  ВНИМАНИЕ! 
   Здесь ввод числа столбцов показан исключительно 
    в общем случае.
  Т.к. у Вас матрица квадратная, то число столбцов вводить НЕ НУЖНО!
  Достаточно вместо этого написать:
  m := n; 
  и всё!

  Дальше Ваш код...

  ....