Отсостировать массив по возрастанию, значения элементов массива заданы случайным образом из интервала от -8 до 17

@terwet · Регистрация: 16.02.2010

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

Дан непомерный массив 10 чисел. отсостировать массив по возрастанию. Значения элементов массива заданы случайным образом из интервала от -8 до 17

@Melfis · 20.12.2010, 17:45

Delphi

Procedure Sort();
Type mas=array[1..10] of Real;
Var a:mas;
       p:Boolean;
       v:Real;
       i:Integer;
 
Begin
p:=True;          {Предположим, что массив уже отсортирован}
For i:=1 to 9 do   {Цикл для организации просмотра}
If a[i]>a[i+1] then     {Сравнение двух соседних элементов}
Begin           {Меняем соседние элементы местами}
            v:=a[i];
            a[i]:=a[i+1];
            a[i+1]:=v;
            p:=False;    {Как оказалось, массив неотсортирован}
            End;
Until p;    {Выполняем просмотры, пока р=True}
End;

@19vitek · 20.12.2010, 18:39

В предложенном коде начала цикла repeat утеряно. Лучше переделать сортировку с применением двух циклов и все заработает.

@John_Pa9JIbHuK · 20.12.2010, 19:00

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

{Выполняем просмотры, пока р=True}

пока p = false

@terwet 1 / 1 / 0 Регистрация: 16.02.2010 Сообщений: 47
		1
	Отсостировать массив по возрастанию, значения элементов массива заданы случайным образом из интервала от -8 до 17 20.12.2010, 16:43. Показов 1500. Ответов 3 Метки нет (Все метки) Дан непомерный массив 10 чисел. отсостировать массив по возрастанию. Значения элементов массива заданы случайным образом из интервала от -8 до 17 0

@19vitek 730 / 406 / 95 Регистрация: 19.12.2010 Сообщений: 756
	20.12.2010, 18:39	3
	В предложенном коде начала цикла repeat утеряно. Лучше переделать сортировку с применением двух циклов и все заработает. 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	20.12.2010, 19:00	4
	Сообщение от Melfis {Выполняем просмотры, пока р=True} пока p = false 0

Опции темы