Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Zloy_mark
0 / 0 / 0
Регистрация: 16.04.2018
Сообщений: 3
1

Заданную строку символьной матрицы упорядочить по убыванию методом выбора

21.01.2020, 08:52. Просмотров 964. Ответов 1
Метки нет (Все метки)

Массив размером М строк N столбцов заполняется символами из входного текстового файла. Исходный массив распечатывается. Заказанную строку массива (номер которой вводится с клавиатуры) упорядочить по убыванию методом выбора. Переделанный массив распечатать.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2020, 08:52
Ответы с готовыми решениями:

Главную диагональ матрицы упорядочить по убыванию методом выбора
Квадратный массив размером МхМ заполняется числами из входного текстового файла. Исходный массив...

Упорядочить элементы строк матрицы по убыванию методом линейного выбора
Привет. Помогите пожалуйста. Условие : Дана действительная матрица A размерности nxn. Если...

Упорядочить элементы каждой строки матрицы по убыванию методом линейного выбора
Дана действительная матрица A размерности nxn . Если максимальный элемент среди элементов,...

Упорядочить элементы строк матрицы по убыванию методом парного обмена выбора
Дана действительная матрица A размерности(n*n) . Если минимальный элемент матрицы встречается менее...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
5712 / 3889 / 4352
Регистрация: 05.06.2014
Сообщений: 19,374
29.01.2020, 19:04 2
Лучший ответ Сообщение было отмечено Zloy_mark как решение

Решение

Взято отсюда: Сортировка строк двумерного массива по возрастанию методом прямого выбора.

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
const
  nmax = 15;
 
var
  a: array[1..nmax, 1..nmax] of char;
  st, m, n, i, j, k, x: integer;
  buf: char;
  f: text;
 
begin
  assign(f, 'data.txt');
  rewrite(f);
  repeat
    write('Количество строк до ', nmax, ' m=');
    readln(m);
  until m in [1..nmax];
  repeat
    write('Количество столбцов до ', nmax, ' n=');
    readln(n);
  until n in [1..nmax];
  writeln(f, m);
  writeln(f, n);
  writeln('Исходная матрица:');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := chr(random(90 - 65 + 1) + 65);
      write(a[i, j]:4);
      write(f, a[i, j]);
    end;
    writeln;
  end;
  close(f);
  
  reset(f);
  readln(f, m);
  readln(f, n);
  for i := 1 to m do
    for j := 1 to n do
      read(f, a[i, j]);
  close(f);
  write('Введите номер строки: ');
  readln(st);
  i := st;
  for k := 1 to n - 1 do
  begin
    x := k;
    for j := k + 1 to n do
      if a[i, j] > a[i, x] then x := j;
    buf := a[i, k];
    a[i, k] := a[i, x];
    a[i, x] := buf;
  end;
  
  writeln('Сортировка строк');
  for i := 1 to m do
  begin
    for j := 1 to n do
      write(a[i, j]:4);
    writeln;
  end;
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.01.2020, 19:04

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Упорядочить матрицу по возрастанию(методом выбора) и убыванию(методом пузырька).
Дана квадратная матрица А(NxN). Упорядочить матрицу по возрастанию(методом выбора) и...

Упорядочить методом выбора элементы массива по убыванию модулей
Дан целочисленный массив A(n) с элементами, сгенерированными случайными числами в диапазоне (-20,...

Упорядочить столбцы матрицы по убыванию используя метод выбора
дана вещественная матрица D 7x9. Упорядочить ее столбцы по убыванию используя метод выбора (поиском...

Упорядочить элементы каждого столбца матрицы по убыванию, используя метод прямого выбора
В массиве n×n в каждом столбце упорядочить элементы по убыванию, используя метод прямого выбора.


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

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

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