Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
DekaS
0 / 0 / 0
Регистрация: 07.12.2011
Сообщений: 24
1

Отсортировать каждую строку матрицы по убыванию

08.12.2011, 20:10. Просмотров 979. Ответов 2
Метки нет (Все метки)

Здравствуйте! Помогите пожалуйста решить вот такую задачку Задана матрица А (NxN). Отсортировать каждую строку матрицы по убыванию.
Буду очень благодарен за помощь.

Добавлено через 40 секунд
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2011, 20:10
Ответы с готовыми решениями:

Отсортировать каждую строку матрицы по убыванию
Здравствуйте! Помогите пожалуйста решить вот такую задачку Задана матрица А (NxN). Отсортировать...

Отсортировать каждую строку любым методом по убыванию. Вывести отсортированный массив на экран
Заполнить двумерный массив размерностью NxM случайными числами в интервале и отсортировать каждую...

Отсортировать каждую строку матрицы по возрастанию
Прошу помочь с решением задачи :umnik: Дана матрица целых чисел размером 4x3. Отсортировать каждую...

Дана матрица целых чисел размером 4х4. Отсортировать каждую строку матрицы по возрастанию.
1. Дана матрица целых чисел размером 4х4. Отсортировать каждую строку матрицы по возрастанию....

Отсортировать каждую строку в алфавитном порядке
1) имеются данные об успеваемости не более чем 24 учебных групп( в процентах). определить на...

2
TheZzZ
13 / 13 / 17
Регистрация: 26.05.2011
Сообщений: 37
08.12.2011, 20:24 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
program sortirovka;
const k=4;
Var   E:array [1..k,1..k] of Real;
    i,j,t:byte;
      a:Real;
Begin
  Writeln('Здравствуйте. Как вы будите вводить матрицу? 1-вручную, 0-автоматически');
  Readln(j);
  If j=1 then
    For i:=1 to k do
      For j:=1 to k do
        Begin
          Writeln('Введите ',j,' элемент',i,' строки вашей матрицы');
          Readln(E[i,j]);
        end
  else
    For i:=1 to k do
      for j:=1 to k do
        E[i,j]:=Random(100)-50;
        
  Writeln('Ваша матрица до сортировки:');
  For i:=1 to k do
    Begin
      For j:=1 to k do
        Write(E[i,j]:10:0);
      Writeln;
    end;
  Writeln;
  Writeln;
  For i:=1 to k-1 do
    For j:=1 to k do
      For t:=1 to k-1 do
        If E[j,t]<E[j,t+1] Then   //Поменять знак и сортировка будет по возрастанию
          Begin
            a:=E[j,t];
            E[j,t]:=E[j,t+1];
            E[j,t+1]:=a;
          end;
    Writeln('Ваша матрица после сортировки:');
  For i:=1 to k do
    Begin
      For j:=1 to k do
        Write(E[i,j]:10:0);
      Writeln;
    end;
end.
1
DekaS
0 / 0 / 0
Регистрация: 07.12.2011
Сообщений: 24
08.12.2011, 21:10  [ТС] 3
Спасибо большое Поставил +1
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2011, 21:10

Создать массив целых чисел B10x10. Отсортировать каждую четную строку
Создать массив целых чисел B10x10. в каждой четной строке на 1 место поставить min число этой...

Отсортировать каждую чётную строку массива и найти максимальный элемент главной диагонали
Создать массив целых чисел B 10х10. Отсортировать каждую чётную строку и найти максимальный элемент...

Процедуры и функции: Определить максимальный элемент каждой строки , отсортировать каждый столбец, затем каждую строку
Создать массив целых чисел 11 х 11 Определить максимальный элемент каждой строки , отсортировать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru