Pascal. Массивы. Help.

[adelaida]

Всем привет!

Задача такова:
Дан целый массив из 4 строк и 4 столбцов. Упорядочить массив по возрастанию произведения элементов столбцов.

Вообщем я прогу написал, но она некорректно работает - все элементы нового массива, в который я записал произведения элементов столбцов, равны 0, какие бы исходные данные я ни вводил. Пожалуйста, помогите, где у меня тут ошибки...?

___________________________________ ______________________________

Program mass;
var A:array[1..4,1..4] of real;
P:array[1..4] of real;
i,n,S,j:integer;
c:real;
begin
for i:=1 to 4 do
for j:=1 to 4 do begin
write('A[i,j]=');
readln(A[i,j]);
end;
for j:=1 to 4 do begin
P[j]:=1;
for i:=1 to 4 do
P[j]:=P[j]*A[i,j];
end;
repeat
S:=0;
for j:=1 to 4 do
if P[j]>P[j+1] then begin
c:=P[j];
P[j]:=P[j+1];
P[j+1]:=c;
S:=1;
end;
until S>0;
for i:=1 to 4 do
write(P[j]:6:1,' ');
readln;
end.

___________________________________ ______________________________


Спасибо!

[А. Долматов]

for j:=1 to 4 do begin
P[j]:=1;
for i:=1 to 4 do
P[j]:=P[j]*A[i,j];
end;

тебе необходимо в массиве P - формировать массив произведений столбцов. получается, что P[i]=A[i,j]*A[i,j+1]
главное чтобы счетчик столбцов не ушел за 4

[alex_fcsm]

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

Всем привет!

for i:=1 to 4 do
write(P[j]:6:1,' ');

___________________________________ ______________________________


Спасибо!

Присмотрись к индексам:один i другой j. Надо определиться...

[alex_fcsm]

Дан целый массив из 4 строк и 4 столбцов. Упорядочить массив по возрастанию произведения элементов столбцов.

Если как Вы решаете то можно вот так

Program mass;
uses crt;
var A:array[1..4,1..4] of real;
    P:array[1..4] of real;
    i,n,S,j:integer;
    c:real;
begin
clrscr;
for i:=1 to 4 do
  for j:=1 to 4 do begin
 write('A[',i,',',j,']=');
   readln(A[i,j]);
    end;
for j:=1 to 4 do begin
  P[j]:=1;
for i:=1 to 4 do
 P[j]:=P[j]*A[i,j];
end;
 for i:=2 to 4 do
    for j:=4 downto i do
      if p[j-1]>p[j] then
        begin
          c:=p[j-1];
          p[j-1]:=p[j];
          p[j]:=c;
        end;
for i:=1 to 4 do
write(P[i]:6:1,' ');
readln;
end.

Но мне кажется, что нужно еще и в матрице столбцы переставить согласно ротации произведения элементов

[adelaida]

alexc_fcsm, спасибо! ошибку понял! насчёт перестановки столбцов..всмысле, столбец с меньшим произведением элементов поставить в начало и дальше по возрастанию?

[alex_fcsm]

Дан целый массив из 4 строк и 4 столбцов. Упорядочить массив по возрастанию произведения элементов столбцов.

Здесь про другой массив ничего не говорится. Вот я и подумал, что нужно еще и отсортировать исходную матрицу(т.е. массив P как бы вспомогательный для решения задачи). Но повторяю ЭТО Я ТАК ПОНЯЛ. Задача Ваша и вы сами вправе определить. Это только мои мысли.
P.S. Извиняюсь если ввел Вас в заблуждение

[adelaida]

да, наверное вы правы... а не могли бы сказать, как переставлять столбцы местами?)

[А. Долматов]

так ведь в задании сказано

Упорядочить массив по возрастанию произведения элементов столбцов

, а массив у тебя является матрицей.
P.S. не сразу правильно прочел код, извиняй

[alex_fcsm]

Сомтрите идея такая массив P делаете записью
type TM=record
mult:real;
ind:integer;
end;

P:array[1..4] of TM;


в mult(P[i].mult) пишите произведение, а в ind(P[i].ind) номер столбца. После этого также упорядочиваете массив по произведению, а столбцы выписыаете согласно ind в массиве P

Массив P(mult,ind)
13,2
156,4
1231,1
3421,3

в матрице превым делаете второй, вторым четвертый ....

[А. Долматов]

а не могли бы сказать, как переставлять столбцы местами?)

заведи переменную, например, zam. и дальше цикл
zam:=a[1,j];
a[1,j]:=a[1,j+2];
a[1,j+2]:=zam;
где j+2 это для примера просто как поменять 1 и 3 столбцы местами при j=1