Program h;
const
m=5;
n=4;
a: array[1..m,1..n] of integer=
(
(3,2,4,6),
(2,5,3,5),
(5,7,3,5),
(4,6,3,2),
(9,5,2,6)
);
Var
i, j , P, count: integer;
B: array[1..100] of integer;
Begin
{ Нахождение произведения элементов строк }
for i:=1 to m do
P:=1;
for j:=1 to n do begin
P:= P * a[i,j];
end;
{ Перестановка строк матрицы по невозрастанию произведений элементво строк }
for i:=1 to m do
for j:=m Down to i+1 do
if a[Pred[j] < a[j] tnen begin
temp:=a[j-1];
a[j-1]:=a[j];
a[j]:= temp;
end;
{ Выполнение 2-го пункта моего задания }
for j := 1 to n do begin
count := 0;
for i := 1 to m do
if (a[i, j] mod 5) = 0 then count := count + 1;
if count = m then B[j] := j
else B[j]:=0;
end;
writeln('Полученный массив B=');
for i:=1 to m do
for j:=1 to n do
write( B[j]);
readln;
end.
Матрица
Условие :
Дана матрица А размером MxN, состоящая из натуральных чисел, больших 1. Выполнить следующие действия:
1)строки матрицы А упорядочить по невозрастанию произведения элементов строк.
2)составить одномерный массив В, в котором элемент Вj, равен номеру столбца, содержащего только числа, кратные 5, в противном случае Вj = 0.
-------
Незнаю как сделать 1 пункт задания, подскажите пожалуйста...
Дана матрица А размером MxN, состоящая из натуральных чисел, больших 1. Выполнить следующие действия:
1)строки матрицы А упорядочить по невозрастанию произведения элементов строк.
2)составить одномерный массив В, в котором элемент Вj, равен номеру столбца, содержащего только числа, кратные 5, в противном случае Вj = 0.
-------
Незнаю как сделать 1 пункт задания, подскажите пожалуйста...
Код:
Цитата:
Originally posted by warlok_the
Условие :
Дана матрица А размером MxN, состоящая из натуральных чисел, больших 1. Выполнить следующие действия:
1)строки матрицы А упорядочить по невозрастанию произведения элементов строк.
2)составить одномерный массив В, в котором элемент Вj, равен номеру столбца, содержащего только числа, кратные 5, в противном случае Вj = 0.
-------
Незнаю как сделать 1 пункт задания, подскажите пожалуйста...
Условие :
Дана матрица А размером MxN, состоящая из натуральных чисел, больших 1. Выполнить следующие действия:
1)строки матрицы А упорядочить по невозрастанию произведения элементов строк.
2)составить одномерный массив В, в котором элемент Вj, равен номеру столбца, содержащего только числа, кратные 5, в противном случае Вj = 0.
-------
Незнаю как сделать 1 пункт задания, подскажите пожалуйста...
Код:
Program h;
const
m=5;
n=4;
a: array[1..m,1..n] of integer=
(
(3,2,4,6),
(2,5,3,5),
(5,7,3,5),
(4,6,3,2),
(9,5,2,6)
);
Var
i, j , P, count: integer;
B: array[1..100] of integer;
Begin
{ Нахождение произведения элементов строк }
for i:=1 to m do
P:=1;
for j:=1 to n do begin
P:= P * a[i,j];
end;
{ Перестановка строк матрицы по невозрастанию произведений элементво строк }
for i:=1 to m do
for j:=m Down to i+1 do
if a[Pred[j] < a[j] tnen begin
temp:=a[j-1];
a[j-1]:=a[j];
a[j]:= temp;
end;
{ Выполнение 2-го пункта моего задания }
for j := 1 to n do begin
count := 0;
for i := 1 to m do
if (a[i, j] mod 5) = 0 then count := count + 1;
if count = m then B[j] := j
else B[j]:=0;
end;
writeln('Полученный массив B=');
for i:=1 to m do
for j:=1 to n do
write( B[j]);
readln;
end.
const
m=5;
n=4;
a: array[1..m,1..n] of integer=
(
(3,2,4,6),
(2,5,3,5),
(5,7,3,5),
(4,6,3,2),
(9,5,2,6)
);
Var
i, j , P, count: integer;
B: array[1..100] of integer;
Begin
{ Нахождение произведения элементов строк }
for i:=1 to m do
P:=1;
for j:=1 to n do begin
P:= P * a[i,j];
end;
{ Перестановка строк матрицы по невозрастанию произведений элементво строк }
for i:=1 to m do
for j:=m Down to i+1 do
if a[Pred[j] < a[j] tnen begin
temp:=a[j-1];
a[j-1]:=a[j];
a[j]:= temp;
end;
{ Выполнение 2-го пункта моего задания }
for j := 1 to n do begin
count := 0;
for i := 1 to m do
if (a[i, j] mod 5) = 0 then count := count + 1;
if count = m then B[j] := j
else B[j]:=0;
end;
writeln('Полученный массив B=');
for i:=1 to m do
for j:=1 to n do
write( B[j]);
readln;
end.
Я не проверял, как вы сделали пункт 2, а вот как можно сделать пункт 1 вашего задания:
const nm=10; mm=10;
var n,m,i,j,tmp:longint;
a:array[1..mm,1..nm] of longint;
tta,psa:array[1..nm] of longint;
begin
readln(m,n);
for i:=1 to m do
begin
psa:=1;
for j:=1 to n do
begin
read(a[i,j]);
psa:=psa*a[i,j];
end;
readln;
end;
for i:=1 to m do
for j:=1 to m do
begin
if psa>psa[j] then
begin
tmp:=psa; psa:=psa[j]; psa[j]:=tmp;
for tmp:=1 to n do tta[tmp]:=a[i,tmp];
for tmp:=1 to n do a[i,tmp]:=a[j,tmp];
for tmp:=1 to n do a[j,tmp]:=tta[tmp];
end;
end;
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j],' ');
writeln;
end;
end.
Большое тебе спасибо за ответ, ты спас меня от армии....
Цитата:
Originally posted by warlok_the
Большое тебе спасибо за ответ, ты спас меня от армии....
Большое тебе спасибо за ответ, ты спас меня от армии....
Не за что. :)
Как можно переделать код, если у меня матрица задана в конст.
Program h;
const
m=5;
n=4;
a: array[1..m,1..n] of integer=
(
(3,2,4,6),
(2,5,3,5),
(5,7,3,5),
(4,6,3,2),
(9,5,2,6)
);
Вот код :
Program h;
const
m=5;
n=4;
a: array[1..m,1..n] of integer=
(
(3,2,4,6),
(2,5,3,5),
(5,7,3,5),
(4,6,3,2),
(9,5,2,6)
);
Вот код :
Код:
const nm=10; mm=10;
var n,m,i,j,tmp:longint;
a:array[1..mm,1..nm] of longint;
tta,psa:array[1..nm] of longint;
begin
readln(m,n);
for i:=1 to m do
begin
psa:=1;
for j:=1 to n do
begin
read(a[i,j]);
psa:=psa*a[i,j];
end;
readln;
end;
for i:=1 to m do
for j:=1 to m do
begin
if psa>psa[j] then
begin
tmp:=psa; psa:=psa[j]; psa[j]:=tmp;
for tmp:=1 to n do tta[tmp]:=a[i,tmp];
for tmp:=1 to n do a[i,tmp]:=a[j,tmp];
for tmp:=1 to n do a[j,tmp]:=tta[tmp];
end;
end;
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j],' ');
writeln;
end;
end.
var n,m,i,j,tmp:longint;
a:array[1..mm,1..nm] of longint;
tta,psa:array[1..nm] of longint;
begin
readln(m,n);
for i:=1 to m do
begin
psa:=1;
for j:=1 to n do
begin
read(a[i,j]);
psa:=psa*a[i,j];
end;
readln;
end;
for i:=1 to m do
for j:=1 to m do
begin
if psa>psa[j] then
begin
tmp:=psa; psa:=psa[j]; psa[j]:=tmp;
for tmp:=1 to n do tta[tmp]:=a[i,tmp];
for tmp:=1 to n do a[i,tmp]:=a[j,tmp];
for tmp:=1 to n do a[j,tmp]:=tta[tmp];
end;
end;
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j],' ');
writeln;
end;
end.
Цитата:
Originally posted by warlok_the
Как можно переделать код, если у меня матрица задана в конст.
Program h;
const
m=5;
n=4;
a: array[1..m,1..n] of integer=
(
(3,2,4,6),
(2,5,3,5),
(5,7,3,5),
(4,6,3,2),
(9,5,2,6)
);
Вот код :
Как можно переделать код, если у меня матрица задана в конст.
Program h;
const
m=5;
n=4;
a: array[1..m,1..n] of integer=
(
(3,2,4,6),
(2,5,3,5),
(5,7,3,5),
(4,6,3,2),
(9,5,2,6)
);
Вот код :
Код:
const nm=10; mm=10;
var n,m,i,j,tmp:longint;
a:array[1..mm,1..nm] of longint;
tta,psa:array[1..nm] of longint;
begin
readln(m,n);
for i:=1 to m do
begin
psa:=1;
for j:=1 to n do
begin
read(a[i,j]);
psa:=psa*a[i,j];
end;
readln;
end;
for i:=1 to m do
for j:=1 to m do
begin
if psa>psa[j] then
begin
tmp:=psa; psa:=psa[j]; psa[j]:=tmp;
for tmp:=1 to n do tta[tmp]:=a[i,tmp];
for tmp:=1 to n do a[i,tmp]:=a[j,tmp];
for tmp:=1 to n do a[j,tmp]:=tta[tmp];
end;
end;
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j],' ');
writeln;
end;
end.
var n,m,i,j,tmp:longint;
a:array[1..mm,1..nm] of longint;
tta,psa:array[1..nm] of longint;
begin
readln(m,n);
for i:=1 to m do
begin
psa:=1;
for j:=1 to n do
begin
read(a[i,j]);
psa:=psa*a[i,j];
end;
readln;
end;
for i:=1 to m do
for j:=1 to m do
begin
if psa>psa[j] then
begin
tmp:=psa; psa:=psa[j]; psa[j]:=tmp;
for tmp:=1 to n do tta[tmp]:=a[i,tmp];
for tmp:=1 to n do a[i,tmp]:=a[j,tmp];
for tmp:=1 to n do a[j,tmp]:=tta[tmp];
end;
end;
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j],' ');
writeln;
end;
end.
Ну приблизительно вот так (только зачем тебе это?):
const m=5; n=4;
a: array[1..m,1..n] of integer=
(
(3,2,4,6),
(2,5,3,5),
(5,7,3,5),
(4,6,3,2),
(9,5,2,6)
);
var i,j,tmp:longint;
a:array[1..m,1..n] of longint;
tta,psa:array[1..n] of longint;
begin
for i:=1 to m do
begin
psa:=1;
for j:=1 to n do psa:=psa*a[i,j];
end;
end;
for i:=1 to m do
for j:=1 to m do
begin
if psa>psa[j] then
begin
tmp:=psa; psa:=psa[j]; psa[j]:=tmp;
for tmp:=1 to n do tta[tmp]:=a[i,tmp];
for tmp:=1 to n do a[i,tmp]:=a[j,tmp];
for tmp:=1 to n do a[j,tmp]:=tta[tmp];
end;
end;
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j],' ');
writeln;
end;
end.