Форум программистов, компьютерный форум CyberForum.ru

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 72, средняя оценка - 4.68
Ne-angel-2-11-90
0 / 0 / 0
Регистрация: 04.06.2009
Сообщений: 71
#1

Сортировка массива по возрастанию - Pascal

08.06.2009, 16:05. Просмотров 9507. Ответов 4
Метки нет (Все метки)

произвести сортировку заданного целочисленного массива Anm по возрастанию
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.06.2009, 16:05     Сортировка массива по возрастанию
Посмотрите здесь:

Сортировка массива. Упорядочить нечетные элементы массива по возрастанию методом обмена - Pascal
Упорядочить одномерный массив по возрастанию, методом обмена. (по возрастанию должны быть толбко нечётные элементы)

Сортировка массива по возрастанию - Turbo Pascal
Дан целочисленный массив из 10-ти элементов. Отсортировать по возрастанию. Желательно делать не особо замудренную, без функций и т.д.,...

Сортировка массива по возрастанию - Pascal ABC
Дан массив a из n чисел 0 и 1. Требуется разделить элементы друг от друга так, чтобы сначала оказались все 0, а в конце 1. Преобразовать...

Сортировка массива по возрастанию - Turbo Pascal
Дан массив , состоящий из 15 целых чисел, в диапозоне от 0 до 255. Содержимое массива сортируется по возрастанию. После этого вводится...

Сортировка массива обменами по возрастанию - Pascal
Здравствуйте помогите! Решите, пожалуйста программу, но сделайте все по простому, якобы это сделал школьник-студент 1-2 курса. ...

Сортировка по возрастанию элементов массива - Free Pascal
даны массивы A, B, C. переставьте элементы в них таким образом что слева подряд были записанны отрицательные а справа положительные ...

Сортировка массива по возрастанию и убыванию - Pascal ABC
Дана последовательность чисел заканчивающихся на 0, отсортировать сначала последовательность по возрастанию а потом по убыванию ...

Сортировка массива по возрастанию и убыванию - Free Pascal
A-массив вещественных чисел, состоящий из элементов, выбранных случайным образом из диапазона ( в вещественном числе 3 знака после...

Сортировка элементов массива по возрастанию - Pascal
Необходима сортировка эл-тов двумерного массива А по возрастанию по строкам Подскажите, как это реализовать

Заполнение массива и сортировка по возрастанию - Pascal
Пользователь заполняет массив N фамилиями (N выводит пользователем ). Вывести фамилии, Отсортированные по возрастанию. Образец: ...

Сортировка по возрастанию элементов массива - Turbo Pascal
Напишите пожалуйста программу, которая заполняет одномерный массив А(10) различными числами. Отсортировать по возрастанию первые пять...

Сортировка левой половины массива по возрастанию - Pascal ABC
Задан одномерный массив, и нужно отсортировать левую его половину в порядке возрастания элементов, помогите с блок-схемой, заранее очень...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
sheka
Босс
161 / 127 / 7
Регистрация: 03.06.2009
Сообщений: 751
08.06.2009, 16:10     Сортировка массива по возрастанию #2
Сообщение было отмечено автором темы, экспертом или модератором как ответ
извините что на украинском - но это можна и не читать.

8. Алгоритми впорядкування табличних величин. "Метод бульбашки".
"Метод бульбашки" основується на перестановці сусідніх чисел. Для впорядкування елементів масиву здійснюємо повторні проходи по масиву, кожного разу переміщаючи найменший елемент частини масиву, що залишився, на початок.
Переміщення елементів масиву здійснюється таким чином: переглядаємо масив справа наліво, порівнюючи пари сусідніх чисел; якщо числа в парі розміщені в порядку зростання, то залишаємо їх без зміни, а якщо ні  то міняємо їх місцями.
В результаті першого проходу найменше число буде поставлене на поча¬ток масиву. У другому проході такі операції виконуються над елементами з останнього до другого, у третьому  з останнього до третього і т.д. Впо¬рядкування масиву буде закінчено, якщо при проході масиву не виконувати¬меться жодної перестановки елементів масиву. Факт перестановки фіксується з допомогою допоміжної змінної ргар, яка на початку має значення 0 і набуває значення 1 тоді, коли виконуватиметься перестановка в якій-небудь парі. Прапорець PRAP використовується з метою економії часу в тому випадку, коли частина елементів масиву наперед впорядкована.
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
Program BUBBLESORT; 
Uses CRT;
Const N=10; {кількість елементів масиву}
 Var A:array[l..N] of integer; {опис масиву}
 I,j:integer; {допоміжні змінні}
 ADOP:integer; {допоміжна змінна}
  PRAP:integer; 
   begin 
       clrscr;
writeln('Введіть елементи масиву');
 for i:=l to N do begin
write('A[',i, ']='); readln(A[i]); end;
writeln('Масив до сортування:'); writeln;
for i:=l to N do write(A[i]:5); writeln;
i:=2;
repeat 
prap:=0;
for j:=N downto і do begin
if A[j]<A[j-l] then begin
ADOP:=A[j-l];
A[j-1]:=A[j];
                                              A[j]:=ADOP;
                                                PRAP:=l; 
                                                             end; 
                                                        end; 
                      i:= i+1;
until PRAР=0; 
writeln;
     writeln('Macив після сортування:');
     writeln; 
     for i:=l to N do write(A[i]:5); 
     writeln; 
     end.
9. Впорядкування елементів масиву методом вибору мінімального елемента.
Даний метод основується на тому, що масив переглядається перший раз. Знаходиться мінімальний елемент цього масиву, який міняється місцями з першим елементом масиву.
Другий раз масив переглядається, починаючи з дру¬гого елементу. Знову знаходиться мінімальний елемент, який міняється місцями з другим елементом масиву. Даний процес виконується до тих пір, поки не буде поставлено на місце N-1-ий елемент.
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
 Program MINSORT; 
 Uses CRT;
 Const N= 10; {кількість елементів масиву} 
Var A:array[l..n] of integer; {опис масиву}
 I,j:integer; {допоміжні змінні}
 Amin:integer; {допоміжна змінна для }
{мінімального елементу масиву}
           l: integer; {порядковий номер}
                            {мінімального елементу масиву} 
      begin 
            ClrScr;
writeln('Введіть елементи масиву');
 for і:=1 to N do begin
   writeln('введи елемент масиву');
    readln(A[i]);
                            end;
writeln('Масив до сортування:'); writeln;
for i:=l to N do write(A[i]:5); 
writeln; 
 for i:=l to N do begin
Amin:=A[i];
L:=i;
                      J:=i+1;
                   While j<=n do
                             begin
                                 If Amin>A[j] then
                                                             Begin
                                                                Amin:=a[j];
                                                                 L:=j;
                                                              End;
                                   J:=j+1;
                              End;
                     A[l]:=A[i];
                    A[i]:=Amin;
                      end;
                writeln;
writeln('Масив після сортування:'); 
writeln;
     for i:=l to N do write(A[i]:5); 
     writeln;
     end.
10. Метод швидкого сортування.
В основу метода покладена ідея послідовного дроблення масиву на частини.
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
Const N=10;
Var A: array[1..N] of integer;
        i:integer;
Procedure Quick(first,last:integer);
Var i,j,x,w,linteger;
Begin
I:=first;
J:=last;
X:=A[(first+last) div 2];
Repeat
While A[i]>x do i:=i+1;
While x>A[j] do j:=j-1;
If i<=j then begin
                      W:=A[i];
                       A[i]:=A[j];
                       A[j]:=w;
                        I:=i+1;
                        J:=j-1;
                         End;
until i>j;
if first<j then Quick(first,j);
if i<last then quick(i,last);
end;
 Begin
For i:=1 to N do begin
Writeln(‘введи елемент масиву’);
Readln(A[i]);
End;
Quick(1,N);
writeln('Масив після сортування:'); 
writeln;
 for i:=l to N do write(A[i]:5); 
 writeln;
end.
Ne-angel-2-11-90
0 / 0 / 0
Регистрация: 04.06.2009
Сообщений: 71
08.06.2009, 16:34  [ТС]     Сортировка массива по возрастанию #3
ничего себе!! придется долго разбираться...
СПАСИБО!!
Xanat0s
1 / 1 / 0
Регистрация: 13.05.2009
Сообщений: 6
15.06.2009, 08:01     Сортировка массива по возрастанию #4
Вы чё блин тут в глаза долбитесь?! Написано же в задании сортировать МАССИВ,а не ВЕКТОР! Сходите к окулисту!
Modeus
0 / 0 / 0
Регистрация: 23.05.2009
Сообщений: 3
15.06.2009, 09:43     Сортировка массива по возрастанию #5
Массив-это и вектор и матрица Но я полностью согласен с предыдущим мнением,т.к. сказано что дан Массив Anm...значит матрица
Yandex
Объявления
15.06.2009, 09:43     Сортировка массива по возрастанию
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru