Отсортировать нечетные столбцы матрицы по убыванию

@Лер4ик · Регистрация: 03.02.2010

отсортировать нечетные столбцы матрицы по убыванию

@Dekio · 26.04.2011, 12:37

Лер4ик, где ваш не работающий код?

@Лер4ик · 26.04.2011, 12:41 **[ТС]**

Сообщение от Лер4ик

отсортировать нечетные столбцы матрицы по убыванию

в паскале

Добавлено через 3 минуты

Pascal

program pr1;
var     i,j,n,k:integer;
s,c:real;
        a,p:array[1..30,1..30] of real;
        x:array[1..30] of real;
begin
 
writeln('введите размер ');
read(n);
writeln('исходная матрица');
for j:=1 to n do
for i:=1 to n do
a[j,i]:= (exp(j*ln(3))/exp(3*ln(i))+exp(i*ln(3))/exp(3*ln(j)))/exp(j-i);
for j:=1 to n do
begin
for i:=1 to n do
begin
write(a[i,j]:6:1);
end;
writeln;
end;
s:=0;  writeln('сумма побочной диагонали');
for j:=1 to n do begin
  x[i]:=a[j,n-j+1];
  s:=s+x[i];
  end;
  write(s:8:1);
  writeln;writeln('скалярное произведение на i столбец =');
  for j:=1 to n do  begin
  for i:=1 to n do
  p[j,i]:=s*a[j,n-j+1];
  write(p[j,i]:8:1);end; writeln;
  writeln('отсортированная матрица' );
  for k:=1 to n do
for j:=1 to n-1 do
for i:=j+1 to n do
if a[j,k]>a[i,k] then
begin
c:=a[j,k];
a[j,k]:=a[i,k];
a[i,k]:=c;
end;
for i:=1 to n do
begin
for j:=1 to n do
 begin
write(a[j,i]:8:1);
end; writeln;end;
 
 
end.

вот третий кусок не могу сделать

@Лер4ик 0 / 0 / 1 Регистрация: 03.02.2010 Сообщений: 81
		1
	Отсортировать нечетные столбцы матрицы по убыванию 26.04.2011, 12:26. Показов 1378. Ответов 2 Метки нет (Все метки) отсортировать нечетные столбцы матрицы по убыванию __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Dekio Фрилансер 5844 / 1225 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	26.04.2011, 12:37	2
	Лер4ик, где ваш не работающий код? 0

Опции темы

Отсортировать нечетные столбцы матрицы по убыванию

Решение