сортировка массива

@Reaktor488 · Регистрация: 01.12.2009

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

помогите,вроде все правильно вводил,а сортируется как-то странно

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
36
37
38
39
40
program pr_1;
var
mas:array[1..10] of integer;
tmp,j,min,k,i,n:integer;
begin
writeln('vvedite kol-vo elementov');
readln(n);
writeln('vvedite elementi masiva');
for i:=1 to n do
read(mas[i]);
writeln;
write('vivod masiva ');
for i:=1 to n do
write(mas[i],' ');
writeln;
{nahogdenie min i nomer}
min:=mas[1];
for i:=2 to n do
if min>mas[i] then
begin
min:=mas[i];
K:=i;
end;
writeln('min=',min);
writeln('num=',k);
readln;
{sortirovka}
writeln('sort process');
for i:=2 to n do
for j:=n downto i do
if mas[j]<mas[j-1] then
begin
tmp:=mas[j];
mas[j]:=mas[j-i];
mas[j-1]:=tmp;
for k:=1 to n do
write(mas[k],' ');
readln;
end;
end.

Добавлено через 12 минут
откуда-то появляется число 2573((

@demidrolll · 23.12.2009, 23:56

Исправьте:

Pascal
1
2
3
4
5
6
7
8
9
10
for i:=2 to n do
  for j:=n downto i do
    if mas[j]<mas[j-1] then
    begin 
       tmp:=mas[j];
       mas[j]:=mas[j-[B]1[/B]]; 
       mas[j-1]:=tmp;
    [B]end;[/B]
for k:=1 to n do
write(mas[k],' ');

@Reaktor488 · 23.12.2009, 23:59 **[ТС]**

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

Исправьте:

for i:=2 to n do
for j:=n downto i do
if mas[j]<mas[j-1] then
begin
tmp:=mas[j];
mas[j]:=mas[j-1];
mas[j-1]:=tmp;
end;
for k:=1 to n do
write(mas[k],' ');

всеравно криво работает

@VladimirKozloff · 24.12.2009, 00:10

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

for i:=2 to n do
for j:=n downto i do
if mas[j]<mas[j-1] then
begin
tmp:=mas[j];
mas[j]:=mas[j-i];
mas[j-1]:=tmp;

На скока я понимаю, это метод пузерька.
Предлогаю заменить нм метод пкзерька с флагом:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
...
    vspomog:real;
    AOut:array [1..16] of real;
    Flag:boolean;
...
//прогоням цикл repeat до тех пор, пока цикл For 
//при прохождение не зойдёт в условие If,т.е. до тех пор, пока 
//числа в массиве не перестанут меняться, либо пока все числа не будут просмотрены. 
j:=0;
repeat
j:=j+1;
Flag:=True;
for i:=1 to n-1 do
  If AOut[i]>AOut[i+1] then 
    begin
    // меняем местами числа в массиве AOut.
    vspomog:=AOut[i];
    AOut[i]:=AOut[i+1];
    AOut[i+1]:=vspomog;
    Flag:=false;
    end;
until flag; 
...

@Reaktor488 · 24.12.2009, 00:36 **[ТС]**

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

На скока я понимаю, это метод пузерька.
Предлогаю заменить нм метод пкзерька с флагом:

...
vspomog:real;
AOut:array [1..16] of real;
Flag:boolean;
...
//прогоням цикл repeat до тех пор, пока цикл For
//при прохождение не зойдёт в условие If,т.е. до тех пор, пока
//числа в массиве не перестанут меняться, либо пока все числа не будут просмотрены.
j:=0;
repeat
j:=j+1;
Flag:=True;
for i:=1 to n-1 do
If AOut[i]>AOut[i+1] then
begin
// меняем местами числа в массиве AOut.
vspomog:=AOut[i];
AOut[i]:=AOut[i+1];
AOut[i+1]:=vspomog;
Flag:=false;
end;
until flag;
...

я ненастолько знаю масивы(

Добавлено через 21 минуту
возможно вы сможите исправить мои ошибки?

@VladimirKozloff · 24.12.2009, 01:01

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

исправить мои ошибки

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
36
37
38
39
40
41
42
43
44
45
46
program pr_1;
var
mas:array[1..10] of integer;
tmp,j,min,k,i,n:integer;
begin
writeln('vvedite kol-vo elementov');
readln(n);
writeln('vvedite elementi masiva');
for i:=1 to n do
read(mas[i]);
writeln;
write('vivod masiva ');
for i:=1 to n do
write(mas[i],' ');
writeln;
{nahogdenie min i nomer}
min:=mas[1];
for i:=2 to n do
if min>mas[i] then
begin
min:=mas[i];
K:=i;
end;
writeln('min=',min);
writeln('num=',k);
readln;
{sortirovka}
//-------------------------------
//------------------------
for i:=1 to N-1 do 
   begin
   for j:=N-1 downto i do
     if mAs[j] > mAs[j+1] then 
     begin
       tmp := mAs[j];
       mAs[j] := mAs[j+1];
       mAs[j+1] := tmp;
     end;
 end;
//------------------
//-----------------------------
for k:=1 to n do
write(mas[k],' ');
readln;
//----------------------
end.

там, предпоследний end никчему и пербрал сортировку. (Но пузерьеом с флагом удобней! суть та же но эффективней)

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .