Написать программу сортировки линейного массива целых чисел методом обмена

@boomandrei · Регистрация: 02.03.2013

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

Написать программу сортировки линейного массива целых чисел методом обмена.
Элементы отсортировать по возрастанию. Алгоритм сортировать, оформить в виде
процедуры или функции и поместить в отдельный модуль.... и еще комент...

@ildwine · 14.11.2013, 21:08

Самый распространенный вариант сортировки обменного типа - сортировка "пузырьком"... Неужели не нашли на форуме ни одного примера?

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

Pascal

type
  mas = array[1..15] of integer; {массив из 15 элементов}
var
  a : mas;
  i : integer;
 
{процедура сортировки "пузырьком"}
procedure bubble(var q : mas);
var x, y, z : integer;
begin
  for x := 1 to 15 do
    for y := 15 downto x do
      if q[x] >= q[y] then
      begin
        z := q[x];
        q[x] := q[y];
        q[y] := z
      end
end;
 
begin
  {запоняем массив случайными числами и выводим}
  randomize;
  writeln('массив:');
  for i := 1 to 15 do
  begin
    a[i] := random(100) - 50;
    write(a[i]:4)
  end;
  {вызываем процедуру сортировки}
  bubble(a);
  {выводим отсортированный массив}
  writeln;
  writeln('отсортированный массив:');
  for i := 1 to 15 do
    write(a[i]:4)
end.

@ildwine · 17.11.2013, 17:39

Если с модулем, то вот так:

Модуль:

Pascal

unit modul;
 
interface
type
  mas = array[1..15] of integer; {массив из 15 элементов}
procedure bubble(var q : mas);
 
implementation
{процедура сортировки "пузырьком"}
procedure bubble(var q : mas);
var x, y, z : integer;
begin
  for x := 1 to 15 do
    for y := 15 downto x do
      if q[x] >= q[y] then
      begin
        z := q[x];
        q[x] := q[y];
        q[y] := z
      end
end;
end.

Программа:

Pascal

uses modul;
 
var
  a : mas;
  i : integer; 
 
begin
  {запоняем массив случайными числами и выводим}
  randomize;
  writeln('массив:');
  for i := 1 to 15 do
  begin
    a[i] := random(100) - 50;
    write(a[i]:4)
  end;
  {вызываем процедуру сортировки}
  bubble(a);
  {выводим отсортированный массив}
  writeln;
  writeln('отсортированный массив:');
  for i := 1 to 15 do
    write(a[i]:4)
end.

Написать программу сортировки линейного массива целых чисел методом обмена

Решение

Решение

@boomandrei 0 / 0 / 0 Регистрация: 02.03.2013 Сообщений: 24
		1
	Написать программу сортировки линейного массива целых чисел методом обмена 14.11.2013, 20:58. Показов 7169. Ответов 2 Метки нет (Все метки) Написать программу сортировки линейного массива целых чисел методом обмена. Элементы отсортировать по возрастанию. Алгоритм сортировать, оформить в виде процедуры или функции и поместить в отдельный модуль.... и еще комент... 0

	17.11.2013, 17:39

Опции темы