С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
 Аватар для LeMo25
0 / 0 / 0
Регистрация: 09.06.2010
Сообщений: 45

Отсортировать главную диагональ массива по убыванию методом «пузырька»

19.05.2016, 22:28. Показов 1563. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан массив из n x m элементов. Отсортировать главную диагональ массива по убыванию методом «пузырька». В коде выдает ошибку, помогите,пожалуйста, исправишь ошибку.

Delphi
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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Sockets, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    TcpServer1: TTcpServer;
    procedure sort;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a: array [1..4,1..4] of integer;
implementation
 
{$R *.dfm}
 procedure TForm1.sort;
var i,j,r,n,max,b,ind:integer;
begin
n:=4;
for i:=1 to n-1 do
for j:=1 to n-1 do
begin
 
for i:=1 to n do
for j:=1 to n do
begin
if a[j,j]<a[j+1,j+1] then
begin
r:= a[j,j];
a[j,j]:=a[j+1,j+1];
a[j+1,j+1]:=r;
end;
begin
b:=a[ind,ind];
a[ind,ind]:=a[i,j];
a[i,j]:=b;
 
end;
 
end;
 
 
procedure TForm1.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
begin
  ClientSocket.ReceiveBuf(a,sizeof(a));
  Label1.Caption:='Данные получены';
  sort;
  Label2.Caption:='Сортировка проведена';
  ClientSocket.SendBuf(a,sizeof(a));
  Label3.Caption:='Данные отправлены';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
TCPServer1.LocalHost:=edit1.Text;
TCPServer1.LocalPort:=edit2.Text;
TCPServer1.Active:=true;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
TCPServer1.Active:=false;
  Label1.Caption:='';
  Label2.Caption:='';
  Label3.Caption:='';
end;
 
end.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
19.05.2016, 22:28
Ответы с готовыми решениями:

Отсортировать одномерный массив по убыванию методом «пузырька»
Отсортировать одномерный массив по убыванию методом «пузырька». Заранее спасибо

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

Методом пузырька отсортировать элементы массива, взятые из текстового файла по убыванию
написать программу, которая методом пузырька сортирует элементы массива взятых из текстового файла по убыванию. написала программу, но не...

3
Модератор
Эксперт по электронике
 Аватар для ФедосеевПавел
8647 / 4482 / 1669
Регистрация: 01.02.2015
Сообщений: 13,888
Записей в блоге: 11
20.05.2016, 07:06
Эта задача решается не "пузырьком", а методом перебора с возвратом.

Добавлено через 44 секунды
Или строки не переставляются - переставляются только элементы диагонали?

Добавлено через 3 минуты
Напишите процедуру сортировки пузырьком для одномерного массива. Причём сортироваться будут элементы с индексами от 1 до min(n,m).
Далее в сортировке замените a[i] на a[i,i], и a[j] на a[j,j].

Всё.
0
 Аватар для LeMo25
0 / 0 / 0
Регистрация: 09.06.2010
Сообщений: 45
20.05.2016, 10:20  [ТС]
строки не переставляются, а элементы по диагонали по убыванию.
0
Модератор
Эксперт по электронике
 Аватар для ФедосеевПавел
8647 / 4482 / 1669
Регистрация: 01.02.2015
Сообщений: 13,888
Записей в блоге: 11
20.05.2016, 16:59
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от ФедосеевПавел Посмотреть сообщение
Напишите процедуру сортировки пузырьком для одномерного массива. Причём сортироваться будут элементы с индексами от 1 до min(n,m).
Далее в сортировке замените a[i] на a[i,i], и a[j] на a[j,j].
Всё.
Вот.

Добавлено через 35 минут
Вижу - это неподъёмный груз.
Переделайте под свои нужды
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
program test;
 
type
  TMatrix = array [1..4, 1..5] of integer;
 
  { Сортировка "пузырьком" }
  procedure BubbleSort(var A: TMatrix; n, m: integer);
  var
    i, j, min: integer;
    x: integer;
  begin
    if n < m then
      min := n
    else
      min := m;
    for i := min downto 2 do
      for j := 2 to i do
        if A[j, j] > A[j - 1, j - 1] then
        begin
          x := A[j, j];
          A[j, j] := A[j - 1, j - 1];
          A[j - 1, j - 1] := x;
        end;
  end;
 
var
  a: TMatrix;
  i, j: integer;
  n, m: integer;
begin
  randomize;
  n := 4;
  m := 5;
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(100);
  for i := 1 to n do
  begin
    for j := 1 to m do
      Write(a[i, j]: 4);
    writeln;
  end;
  BubbleSort(a, n, m);
  writeln;
  for i := 1 to n do
  begin
    for j := 1 to m do
      Write(a[i, j]: 4);
    writeln;
  end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
20.05.2016, 16:59
Помогаю со студенческими работами здесь

Отсортировать одномерный массив методом пузырька по убыванию
Помогите построить программы: 1. Нужно отсортировать одномерный массив методом пузырька по убыванию. 2. Построить в главной диагонали...

Отсортировать главную диагональ массива методом вставки
Задан квадратный массив целых чисел.Отсортировать главную диагональ массива алгоритмом № 3 метода вставки (с линейным поиском справа с...

Матрицы: отсортировать главную диагональ по убыванию
:wall: :wall: :wall: помогите написать программу, сессия на носу:negative:а я не шарю .... задача: Задана матрица А(7,7) целых чисел....

Отсортировать элементы массива, расположенные после максимального по убыванию методом пузырька
Дан массив (одномерный) отсортировать элементы массива расположеные после максимального по убыванию методом пузырька (метот пузырька щас...

Ввести рандомно матрицу и отсортировать главную диагональ матрицы по убыванию
ввести рандомно матрицу и отсортировать главную диагональ матрицы по убыванию и вывести эту отсортированную матрицу


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru