Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
 Аватар для Mariasha
0 / 0 / 0
Регистрация: 31.08.2013
Сообщений: 26
1

Алгоритм сортировки одномерного массива по возрастанию

01.04.2015, 14:27. Показов 2511. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
8. Алгоритм сортировки одномерного массива по возраста-
нию.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
01.04.2015, 14:27
Ответы с готовыми решениями:

Разработать подпрограммы сортировки одномерного массива по возрастанию и убыванию.
Разработать подпрограммы сортировки одномерного массива по возрастанию и убыванию.

Составить блок-схему сортировки одномерного массива по возрастанию
Помогите: "Составить блок-схему сортировки одномерного массива по возрастанию".

Определите, сколько обменов сделает алгоритм пузырьковой сортировки по возрастанию для данного массива
Сортировка пузырьком Определите, сколько обменов сделает алгоритм пузырьковой сортировки по возрастанию для данного массива. Входные...

2
15 / 15 / 12
Регистрация: 01.02.2014
Сообщений: 62
01.04.2015, 18:47 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
n,i,j,k:longint;
a:array[1..100] of integer;
begin
 write('количество элементов массива =');
  readln(n);
writeln('введите массив');
  for i:=1 to n do 
   readln(a[i]);
for i:=2 to n do 
for j:=n downto i
do  if a[j-1] > a[j]
 then begin 
 k:=a[j-1];
 a[j-1]:=a[j];
 a[j]:=k
 end;
for i:=1 to n do write(a[i],' '); 
end.
1
Эксперт Pascal/Delphi
2387 / 1299 / 1492
Регистрация: 29.08.2014
Сообщений: 4,662
01.04.2015, 19:21 3
Лучший ответ Сообщение было отмечено Mariasha как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const n=10;
var
  a:array[1..n] of real;
  i:integer;
  k:real;
begin
  write('введите ',n,' элементов массива:');
  for i:=1 to n do read(a[i]);
    i:=1;
    while i<n do
        if a[i + 1]<a[i] then begin
          k:=a[i];
          a[i]:=a[i+1];
          a[i+1]:=k;
            i:=1;
         end
        else i:= i+1;
  write('отсортированный массив:');
  for i:=1 to n do write(a[i]:8:2);
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
01.04.2015, 19:21
Помогаю со студенческими работами здесь

Отсортировать элементы одномерного массива целых случайных чисел по возрастанию методом сортировки подсчётом
Добрый день. Помогите, пожалуйста, с написанием программы на Pascal ABC.NET со следующим заданием: &quot;Отсортировать элементы...

Упорядочить элементы массива по возрастанию, используя алгоритм сортировки Шелла
Дан одномерный числовой массив. Выполнить сортировку элементов массива по возрастанию, используя алгоритм сортировки Шелла. Нужна блок...

Разработать процедуру сортировки одномерного массива по возрастанию
Разработать процедуру сортировки одномерного массива по возрастанию.

Составить подпрограмму сортировки по возрастанию значений элементов одномерного массива
2. Составить подпрограмму сортировки по возрастанию значений элементов одномерного массива. Используя её, отсортировать элементы в каждой...

Описать две процедуры сортировки одномерного массива длинной N по убыванию и по возрастанию
Прошу помочь, определить что неправильно, выдает ошибку.. я путаюсь в параметрах процедуры и думаю туда она и закралась.. В очередной раз я...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Новые блоги и статьи
Что нового в C# 14
UnmanagedCoder 10.03.2025
Предстоящая версия C# 14 обещает принести изменения, которые сделают разработку еще более приятной и эффективной. Что стоит отметить, так это влияние сообщества разработчиков на формирование новых. . .
Формулы поворота
Igor3D 10.03.2025
Добрый день Тема Эти формулы приводятся во множестве тьюториалов, часто под видом "матрица вращения на плоскости". x' = x * cos(a) - y * sin(a) y' = y * cos(a) + x * sin(a) Как бы Вы их. . .
Что нового в .NET 10
UnmanagedCoder 10.03.2025
. NET 10 выходит как релиз с длительной поддержкой (LTS), включающей три года обновлений. В этом обновлении Microsoft сфокусировались на нескольких направлениях: производительность, оптимизация. . .
Отложенное высвобождение, RCU и Hazard Pointer в C++26
NullReferenced 09.03.2025
Многопоточное программирование стало важной частью современной разработки. Когда несколько потоков одновременно работают с общими данными, возникает целый ряд проблем, связанных с синхронизацией и. . .
Неблокирующийся стек на C++26
NullReferenced 09.03.2025
Традиционные способы синхронизации в многопоточном программировании — мьютексы, семафоры, условные переменные — часто превращаются в узкое место в плане производительности. При этом неблокирующиеся. . .
Обработка строк в C++26: Новые возможности string и string_view
NullReferenced 09.03.2025
Новый стандарт C++26 предлагает много улучшений для работы с привычными string и относительно новыми string_view. string_view - это невладеющая ссылка на последовательность символов, появившаяся в. . .
Мой первый аддон для Blender 3D, с помощью нейронки (не зная даже азов пайтона, но это не значит что так и с остальным).
Hrethgir 09.03.2025
Потратил весь день. Пол-дня мне хватило, чтобы понять что с версией с 14B мне не одолеть написание функционального кода, на языке с которым я вообще никак не знаком - пайтон. Версия 22B от другого. . .
Einstein@Home сегодня исполняется двадцать лет!
Programma_Boinc 09.03.2025
Einstein@Home сегодня исполняется двадцать лет! Отправлено 19 февраля 2025 года в 17:20:21 UTC Я хочу поздравить всех наших волонтеров, разработчиков и ученых из Einstein@Home. Мы официально. . .
Заполнители и расширенный набор символов в C++26
NullReferenced 09.03.2025
C++26 представляет два важных обновления: заполнители и расширенный набор символов. Заполнители (placeholders) решают давнюю проблему лаконичности кода в шаблонных выражениях и лямбда-функциях. Они. . .
Контракты в C++26
NullReferenced 09.03.2025
Контракты – это механизм, позволяющий указывать предусловия, постусловия и инварианты для функций в коде. Эта функциональность должна была стать частью C++20, но была исключена на встрече комитета. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru