Процедура сортировки простым выбором

@momeimaki · Регистрация: 05.10.2022

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

Написать процедуру сортировки простым выбором, в которой выбирается не минимальный, а максимальный элемент.

@bormant · 20.12.2022, 12:11

Сортировки по невозрастанию или по неубыванию?

@momeimaki · 20.12.2022, 15:51 **[ТС]**

bormant, без разницы

@mr-Crocodile · 20.12.2022, 17:37

Сообщение от momeimaki

без разницы

так ты замени слово min на слово max и знак, где сравниваются элементы замени на противоположный:
вместо

Pascal

1
2
3

  min := i;
  for j := i + 1 to n do
      if a[j]<a[min] then min := j;

пишешь

Pascal

1
2
3

  max := i;
  for j := i + 1 to n do
      if a[j]>a[max] then max := j;

и всё - сортировка по невозрастанию готова.

@bormant · 20.12.2022, 17:48

Pascal

procedure SortDsc(var v: TVector; n: Integer);
var i, j, im, t: Integer;
begin
  for i:=0 to n-2 do begin
    im:=i;
    for j:=i+1 to n-1 do
      if v[im]<v[j] then im:=j;
    if im<>i then begin
      t:=v[im]; v[im]:=v[i]; v[i]:=t;
    end;
  end;
end;

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

Pascal

procedure Sort(var v: TVector; n: Integer);
var i, j, im, t: Integer;
begin
  for i:=n-1 downto 1 do begin
    im:=i;
    for j:=i-1 downto 0 do
      if v[im]<v[j] then im:=j;
    if im<>i then begin
      t:=v[im]; v[im]:=v[i]; v[i]:=t;
    end;
  end;
end;

@momeimaki 0 / 0 / 0 Регистрация: 05.10.2022 Сообщений: 18
		1
	Процедура сортировки простым выбором 19.12.2022, 15:48. Показов 307. Ответов 4 Метки pascal abc (Все метки) Написать процедуру сортировки простым выбором, в которой выбирается не минимальный, а максимальный элемент. 0

@bormant Модератор 7769 / 4598 / 2823 Регистрация: 22.11.2013 Сообщений: 13,077 Записей в блоге: 1
	20.12.2022, 12:11	2
	Сортировки по невозрастанию или по неубыванию? 0

@momeimaki 0 / 0 / 0 Регистрация: 05.10.2022 Сообщений: 18
	20.12.2022, 15:51 [ТС]	3
	bormant, без разницы 0

	20.12.2022, 17:48