Расположить элементы каждой строки матрицы по уменьшениею значений

@Ньюбии · Регистрация: 10.11.2012

Author24 — интернет-сервис помощи студентам

Расположить элементы каждого рядка матрицы S(8*6), за уменьшением значений. Вывести первоначальный и окончательный массивы.

Дополняю свою программу, но в ней знаю как сделать сортировку за уменьшением значений и вывести ДВА массива (вывел только первый, второй не знаю как привязать до первого)

@ermolay · 12.12.2012, 04:26

Сообщение от Ньюбии

но в ней знаю как сделать сортировку

ну это ж самое основное в программе. Создаете массив, например из случайных элементов, выводите его на экран, потом сортируете, и еще раз также выводите.

@Ньюбии · 12.12.2012, 22:57 **[ТС]**

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

Добавлено через 1 час 3 минуты
помогите кто то, пожалуйста
завтра сдача)

@centrum · 12.12.2012, 23:15

тут нужен еще цикл, который по строкам переход делает. Т.е.
for i:=1 to n;
сортировка строки.

@Ньюбии · 12.12.2012, 23:18 **[ТС]**

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

@Ньюбии · 13.12.2012, 11:35 **[ТС]**

ап тему(

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

Pascal

program lab52;
uses crt;
const n=8;
      m=6;
var max, max2, max3, max4,max5,max6: real;
    i, j, x, y: byte;
s: array [1..n,1..m] of real;
v: array [1..n,1..m] of real;
begin
clrscr;
randomize;
begin
for i:=1 to n do
    for j:=1 to m do
        s[i,j]:=100-random(200);
        end;
        begin
        max:=s[1,1];
        for i:=1 to n do
            for j:=1 to 1 do
                if s[i,1] > max then max:=s[i,1];
                s[i,1]:=v[i,1];
                          end;
        begin
        max2:=s[1,1];
        for i:=1 to n do
            for j:=2 to 2 do
                if s[i,2] > max2 then s[i,2]:= v[i,2];
                          end;
        begin
        max3:=s[1,1];
        for i:=1 to n do
            for j:=3 to 3 do
                if s[i,3] > max3 then s[i,3]:= v[i,3];
                          end;
        begin
        max4:=s[1,1];
        for i:=1 to n do
            for j:=4 to 4 do
                if s[i,4] > max4 then s[i,4]:= v[i,4];
                          end;
        begin
        max5:=s[1,1];
        for i:=1 to n do
            for j:=2 to 2 do
                if s[i,5] > max6 then s[i,2]:= v[i,5];
                          end;
        begin
        max6:=s[1,1];
        for i:=1 to n do
            for j:=2 to 2 do
                if s[i,6] > max6 then s[i,2]:= v[i,6];
                          end;
 
                 for i:=1 to n do
                 begin
            for j:=1 to m do
    write(' ',v[i,j],'  ');
                  writeln;
                  end;
    end.

Добавлено через 13 секунд

Добавлено через 2 минуты
откуда 0?!

@ermolay · 13.12.2012, 11:39

я бы сделал так
(немного подправил и дополнил =)

Pascal

program p1;
 
uses
  crt;
 
const
  n = 8;
  m = 6;
var
  i, j, k: byte;
  tmp: integer;
  A: array [1..n, 1..m] of integer;
begin
  writeln('Введіть матрицю ', n, '*', m);
  for i := 1 to n do
    for j := 1 to m do
    begin
      write('a[',i,',',j,'] = ');
      readln(A[i, j]);
    end;
  writeln('Исходная матрица');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(A[i, j]:4);
    writeln;
  end;
  for i:=1 to n do
    for j:=2 to m do
      for k:=m downto j do
        if a[i,k-1]<a[i,k] then
        begin
          tmp:=a[i,k-1];
          a[i,k-1]:=a[i,k];
          a[i,k]:=tmp;
        end;
  writeln('Преобразованный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
end.

Добавлено через 1 минуту
при тестировании программы n и m можно взять поменьше

@Ньюбии · 13.12.2012, 11:45 **[ТС]**

Спасибо за оперативность!)

@Ньюбии 2 / 2 / 2 Регистрация: 10.11.2012 Сообщений: 124
		1
	Расположить элементы каждой строки матрицы по уменьшениею значений 11.12.2012, 20:34. Показов 719. Ответов 7 Метки нет (Все метки) Расположить элементы каждого рядка матрицы S(8*6), за уменьшением значений. Вывести первоначальный и окончательный массивы. Дополняю свою программу, но в ней знаю как сделать сортировку за уменьшением значений и вывести ДВА массива (вывел только первый, второй не знаю как привязать до первого) 0

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	12.12.2012, 04:26	2
	Сообщение от Ньюбии но в ней знаю как сделать сортировку ну это ж самое основное в программе. Создаете массив, например из случайных элементов, выводите его на экран, потом сортируете, и еще раз также выводите. 0

@Ньюбии 2 / 2 / 2 Регистрация: 10.11.2012 Сообщений: 124
	12.12.2012, 22:57 [ТС]	3
	не пойму как сделать сортировку именно по рядкам Добавлено через 1 час 3 минуты помогите кто то, пожалуйста завтра сдача) 0

@centrum 14 / 14 / 14 Регистрация: 09.12.2012 Сообщений: 56
	12.12.2012, 23:15	4
	тут нужен еще цикл, который по строкам переход делает. Т.е. for i:=1 to n; сортировка строки. 0

@Ньюбии 2 / 2 / 2 Регистрация: 10.11.2012 Сообщений: 124
	13.12.2012, 11:45 [ТС]	8
	Спасибо за оперативность!) 0