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

@Zmei · Регистрация: 17.01.2012

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

Доброго времени суток друзья. Написал простенькую программу, по сортировки строк методом пузырька. Не погу понять где ошибка. Вывод осуществляет не верный. Вот код:

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
program Sortirovka_puzirka;
 
var
A :array[1..100] of string;
i, j, n : integer;
s : string;
 
begin
Write('Vvedite kol-vo strok: ');
Readln(n); //Kolichestvo strok;
 
Writeln('Vvedite stroki: ');
for i := 1 to n do
readln(A[i]);
 
for i := 1 to n-1 do
for j := 1 to n-i do
if Length(A[j]) > length(A[j+1]) then 
  begin
    s := A[j];
    A[j] := A[j+1];
    A[j+1] := A[j];
  end;
Writeln('Otsortirovanii massiv: ');  
for i := 1 to n do  
Write(A[i], ' ');  
end.

Пробовал менять строку в выводе:

Pascal
1
2
3
Writeln('Otsortirovanii massiv: ');  
for i := 1 to n do  
Write(A[i], ' ');

На строку:

Pascal
1
2
3
Writeln('Otsortirovanii massiv: ');  
for i := 1 to n do  
Write(A[j], ' ');

Так он начал выводить,но почему то предыдущий элемент не тот который нужет. Либо заменяет его на последний,либо на предыдущий.

Подскажите друзья,в чём может быть ошибка?

@bormant · 26.04.2016, 11:11

Вам точно нужно сортировать строки по их длине, а не содержимому?

@Zmei · 26.04.2016, 11:21 **[ТС]**

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

Вам точно нужно сортировать строки по их длине, а не содержимому?

Если вы имеете в виду,что по алфавиту,то нет. Хотя в условии задачи никаких конкретных описаний нет по этому поводу. Я решил сделать по длине. У меня что-то не так?

@bormant · 26.04.2016, 11:51

Ошибка:

Pascal
22
    A[j+1] := s;

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	26.04.2016, 11:11
	Вам точно нужно сортировать строки по их длине, а не содержимому? 0