Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
 Аватар для ANT0NY
104 / 50 / 9
Регистрация: 06.01.2024
Сообщений: 383

Сортировка пузырьком не трогая нули

10.02.2024, 01:32. Показов 703. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано массив длиной от 10 до 33 случайных целых значением от -10 до 10.
В массиве обязательно должно быть 15% нулей.
Отсортируйте массив по возрастанию, оставляя нули на своих позициях.
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
##
var a := arrrandom(Random(10, 33), -10, 10);
a.Print; $' [{a.Length}]'.Println;
 
 //при необходимости дополнить нулями до 15% от размера
var n := ceil(a.Length * 0.15) - a.CountOf(0);
if n > 0 then begin
  Println('>', '0 ' * n); //сколько нулей добавлять
  loop n do
  begin
    var j := 0;
    repeat j := Random(a.Length - 1) until a[j] <> 0; //поиск ненулевого
    a[j] := 0 //обнулить
  end;
  a.Println //показать модифицированный массив
end;
 
 //сортировка пузырьком с пропуском нулей
n := a.Length - 2;
var flag := false; // флаг окончания
repeat
  var i := 0; //левое значение
  flag := false;
  repeat //for i:=0 to a.Length-2 do begin
    while (a[i] = 0) and (i < n) do i += 1; //пропуск нулей
    var j := Succ(i); //правое значение
    while (a[j] = 0) and (j <= n) do j += 1; //пропуск нулей
    if a[i] > a[j] then begin //замена
      Swap(a[i], a[j]);
      {if not flag then} flag := true //была перестановка
    end; //if
    i += 1; //следующее
  until i > n;
until not flag; //пока не будет замен
a.println
Общие замечания по коду?
Можно ли с пользой применить новый стиль и возможности?
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
10.02.2024, 01:32
Ответы с готовыми решениями:

Блок схема.Сортировка «Пузырьком», Сортировка методом «Последовательных перестановок», Сортировка «Вставками»
Помогите, нужны блок схемы Сортировка «Вставками» Program Vstavka; uses dos; Type mass=array of integer; Var i,b,n,j,a:...

Сортировка выбором, Сортировка простыми вставками, Сортировка пузырьком, Сортировка слиянием, Быстрая сортировка Хоара
Имеется список товаров, хранящихся на базе. Каждая строка этого списка содержит: инвентарный номер товара; количество видов этого товара;...

Сортировка списка перемешиванием по убыванию (шейкерная сортировка или двунаправленнная сортировка пузырьком)
Помогите написать функцию сортировки списка перемешиванием по убыванию (шейкерная сортировка или двунаправленнная сортировка пузырьком). ...

2
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,158
Записей в блоге: 1
10.02.2024, 13:08
Навскидку и не приходя в сознание:
1) выдернуть "не нули" в отдельный массив b
2) отсортировать
3) поместить обратно
Pascal
1
2
3
4
k:=0;
for var i:=0 to Length(b)-1 do if a[i]<>0 then begin
  a[i]:=b[k]; Inc(k);
end;
Постою рядом, подожду "более лучших" вариантов
2
 Аватар для ANT0NY
104 / 50 / 9
Регистрация: 06.01.2024
Сообщений: 383
10.02.2024, 17:05  [ТС]
А можно упаковать методами или уже лишнее?
Pascal
18
19
20
21
var i:=0; foreach var x in a.Where(j->j<>0).Sorted do begin
  while a[i]=0 do i+=1;
  a[i]:=x
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
10.02.2024, 17:05
Помогаю со студенческими работами здесь

Сортировка одномерных массивов, не трогая отрицательные и нулевые элементы
В одномерном массиве из n вещественных чисел отсортировать в порядке возрастания все положительные элементы. Отрицательные и нулевые...

Сортировка пузырьком и пирамидальная сортировка заданного массива + бинарный поиск
Заполнить случайным образом одномерный массив размера N и выполнить сортировку пузырьком и пирамидальную сортировку заданного массива. В...

Сортировка пузырьком или сортировка вставками
Реализовать функцию, принимает массив и сортирует его (нельзя использовать встроенные методы сортировки). Самые простые реализации...

Сортировка пузырьком
Нужно отсортировать список, но почему-то выходит за пределы списка void operator++() {int vrem,i,j; tec2=((struct...

Сортировка пузырьком
При сортировке пузырьком не показывается в результате самое меньшее число и в конце выдает еще ошибку , все показано на скринах ...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение Это мой обзор планшета X220 с точки зрения школьника. Недавно я решила попытаться уменьшить свой. . .
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
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru