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

@Enzo76 · Регистрация: 05.12.2009

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

Товарищи,прошу помощи.
Нужно отсортировать массивчик методом пузырька.
Как только не пробовал..Никак не выходит.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
begin
for i:=1 to N do
begin
for j:= N to i do
begin
if m[i-1[<m[i] then
begin
a:=m[i-1];
m[i-1]:=m[i];
m[i]:=a;
end;
end;
end;
for j:=1 to N do
write (m[j]:4];
end;

В результате получается тот же самый массив,что и исходный.Неотсортированный то есть.

Заранее спасибо.

@Sarmak · 07.12.2009, 00:27

увидел. вариант правилен на мой взгляд. полный код:

Delphi
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
const
  n = 40;
  m = 30;
var
  a,b:array[1..n,1..m] of real;
  c,d:array[1..n*m] of real;
  i1,i,j1,j:integer;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random[100]-50;
b[i,j]:=random[100]-50;
write(a[i,j],' ');
write(b[i,j],' ');
end;
i1:=1;
i2:=1;
for i:=1 to n do
for j:=1 to m do
begin
if (a[i,j]>-10) and (a[i,j]<10) then begin c[i1]:=a[i,j]; i1:= i1+1; end;
if (b[i,j]>-10) and (b[i,j]<10) then begin c[i1]:=b[i,j]; i1:= i1+1; end;
if (a[i,j]>20) and (a[i,j]<50) then begin d[j1]:=a[i,j]; j1:= j1+1; end;
if (b[i,j]>20) and (b[i,j]<50) then begin d[j1]:=b[i,j]; j1:= j1+1; end;
end;
for i:=1 to n*m do
begin
write(c[i]:6:2,' ');
write(d[i]:6:2,' ');
end;
end.

@DraconVS · 07.12.2009, 00:32

Немного поправлю, обрати внимание на:

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

Pascal
1
2
3
4
5
for i:=1 to n*m do
begin
write(c[i]:6:2,' ');
write(d[i]:6:2,' ');
end;

Исправленный вариант программы по твоей версии:

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
const
  n = 40;
  m = 30;
var
  a,b:array[1..n,1..m] of real;
  c,d:array[1..n*m] of real;
  i1,i,j1,j:integer;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random[100]-50;
b[i,j]:=random[100]-50;
write(a[i,j],' ');
write(b[i,j],' ');
end;
i1:=1;
i2:=1;
for i:=1 to n do
for j:=1 to m do
begin
if (a[i,j]>-10) and (a[i,j]<10) then begin c[i1]:=a[i,j]; i1:= i1+1; end;
if (b[i,j]>-10) and (b[i,j]<10) then begin c[i1]:=b[i,j]; i1:= i1+1; end;
if (a[i,j]>20) and (a[i,j]<50) then begin d[j1]:=a[i,j]; j1:= j1+1; end;
if (b[i,j]>20) and (b[i,j]<50) then begin d[j1]:=b[i,j]; j1:= j1+1; end;
end;
for i:=1 to i1 do
write(c[i]:6:2,' ');
writeln;
for i:=1 to j1 do
write(d[i]:6:2,' ');
end.

@Sarmak · 07.12.2009, 20:49

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

Немного поправлю, обрати внимание на:
for i:=1 to i1 do
write(c[i]:6:2,' ');
writeln;
for i:=1 to j1 do
write(d[i]:6:2,' ');
end.

Delphi
1
2
3
4
5
6
for i:=1 to i1-1 do
write(c[i]:6:2,' ');
writeln;
for i:=1 to j1-1 do
write(d[i]:6:2,' ');
end.

нашел ошибку еще =)

@lolopolosko · 07.05.2010, 10:56

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

lolopolosko, я бы не назвал Ваш вариант корректным с вашими begin'ами. А вариант Sarmak выполняет лишние действия. Вариант Wassago написан так как это и должно быть.

)))Если вы умеете считать то у Wassago столько же begin-oв

@Inadequate · 07.05.2010, 11:53

Ёпты, раскопать из-за этого коммента такое старьё. Хотел наградить тебя карточкой за хамство, но потом подумал, что всё таки ограничемся "устным" предупреждением. Я где-то писАл что у Wassago меньше begin'ов ? Я лишь написАл, что из предложенных на тот момент его вариант был лучшим. Даже если отбросить begin'ы, то, количество действий твоего кода, которые потребуются для сортировки массива значительно превышают количество действий, используемых в коде Wassago. Постарайся впредь внимательно читать темы, обдумывать ответ быстрее (всё таки 5 месяцев - это перебор) и не рассуждать беспричинно умею ли я считать или нет. Тема закрыта.

Новые блоги и статьи Все статьи Все блоги /
[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;	FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .
[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	07.05.2010, 11:53
	Ёпты, раскопать из-за этого коммента такое старьё. Хотел наградить тебя карточкой за хамство, но потом подумал, что всё таки ограничемся "устным" предупреждением. Я где-то писАл что у Wassago меньше begin'ов ? Я лишь написАл, что из предложенных на тот момент его вариант был лучшим. Даже если отбросить begin'ы, то, количество действий твоего кода, которые потребуются для сортировки массива значительно превышают количество действий, используемых в коде Wassago. Постарайся впредь внимательно читать темы, обдумывать ответ быстрее (всё таки 5 месяцев - это перебор) и не рассуждать беспричинно умею ли я считать или нет. Тема закрыта. 0

Опции темы