Сортировка методом "пузырька"

@k1d · Регистрация: 18.11.2013

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

Задание: Разработать алгоритм методом пошаговой детализации и программу решения задачи, в которой отсортировать одномерный массив a[1..N], состоящий из символов в порядке убывания методом «пузырька». В сортировке должны участвовать ТОЛЬКО элементы от 3 до N (т.е. первый и второй элемент массива должны остаться на своих местах). Число N, исходные данные массива вводятся с клавиатуры.
Надо исправить код так, чтобы получилось по заданию... я нашёл только одну ошибку: из числового типа данных перевести в символьный. Собственно это и не получается у меня..
помогите пожалуйста до завтра, а то допуск к сессии не получу

Pascal

type matr=array[1..100] of integer;
var a:matr; z:integer;
Procedure vvod(var a:matr);
var i:integer; begin
write ('vvedite kol-vo el-tov massiva: ' );
read(z);
for i:=1 to z do begin
Write('vvedite el-t massiva a[',i,']: ');
Readln(a[i]);
end;
end;
Procedure sort(var a:matr);
var i,j,T:integer;
 
begin
for i:=1 to z do
 
for j:=3 to z do
if a[j]<a[j+1] then
begin
T:=a[j];
a[j]:=a[j+1];
a[j+1]:=T;
end;
end;
Procedure vyvod(a:matr);
var
i:integer;
begin
Write('otsortirovanniy massiv: ');
for i:=1 to z do Write(' ',a[i]);
end;
begin
vvod(a);
sort(a);
vyvod(a);
end.

ВАСИЛЕВС · 03.01.2014, 20:16

Предполагаю, что тут

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

Pascal

1	type matr=array[1..100] of integer;

изменить тип на char

Pascal

1 2	type matr = array[1..100] of char;

Тогда описание переменных в процедуре sort

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

Pascal

1	var i,j,T:integer;

тоже изменить на char

Pascal

1
2
3

var
 i, j: integer;
 T: char;

Тогда вывод такой получим:

Код

vvedite kol-vo el-tov massiva: 5
vvedite el-t massiva a[1]: a
vvedite el-t massiva a[2]: b
vvedite el-t massiva a[3]: c
vvedite el-t massiva a[4]: d 
vvedite el-t massiva a[5]: e
otsortirovanniy massiv:  a b e d c

То есть таким образом при сортировке сравниваются коды символов.

@ildwine · 03.01.2014, 22:12

Комментарий модератора

k1d, не стоит создавать несоклько тем для одного вопроса, они все равно будут удалены, а вы наказаны. Читайте правила!!!

Добавлено через 32 секунды
Тема закрыта, так как есть кросспостинг с ответами...

Блоги программистов
Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

	03.01.2014, 22:12