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

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

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

Дан непомерный массив 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

Новые блоги и статьи
Использование связки C# и PHP в корпоративной разработке и микросервисной архитектуре InfoMaster 16.01.2025 Введение в интеграцию C# и PHP В современной корпоративной разработке все чаще возникает потребность в создании гибких и масштабируемых решений, способных эффективно решать широкий спектр. . .	Как использовать Kerio дома для управления сетью и пользователями InfoMaster 16.01.2025 Использование технологий для улучшения повседневной жизни стало неотъемлемой частью современного быта. Одной из таких технологий является Kerio — мощный инструмент для управления сетью и. . .	Есть ли будущее у DVD и Blu-ray? InfoMaster 16.01.2025 В эпоху стремительного развития цифровых технологий и повсеместного распространения потоковых сервисов вопрос о будущем физических носителей информации становится все более актуальным. Особенно остро. . .	Как проводить научные вычисления на Python InfoMaster 15.01.2025 Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .	Создание игры типа Minecraft на PyGame/Python: пошаговое руководство InfoMaster 15.01.2025 В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .	Как создать свою первую игру в стиле Doom на Unreal Engine InfoMaster 15.01.2025 Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .
Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .

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

@19vitek 731 / 407 / 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

Опции темы