Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Сортировка массива
Сортировка одномерного и двумерного массивов методом
а)пузырька
б)методом выбора
Размер массива вводить с клавиатуры, вывод массива построчно и заполнение
массива рандомно ,т.е случайным образом
1 | Автор: Greschnik | 2015-12-04, 14:22   |  Репутация: [ + 0 ]
Вот вам сортировка одномерного массива пузырьковым методом:
Код
Program Sort;
Const
Nmax = 100;
Var
  X : Array [1..Nmax] Of Real;
  A : Real;
  n, k, i : Integer;

Begin
Writeln('Введите количество чисел');
Readln(n);
For i := 1 To n Do X[i]:=random(100);
{ Сортировка }
For k := 1 To n-1 Do
   For i := 1 To n-1 Do
     If X[i] > X[i+1] Then
       Begin
         A:=X[i];
         X[i]:=X[i+1];
         X[i+1]:=A
       End;
Writeln('Отсортированный массив чисел:');
For i:=1 To n Do
Write (X[i], ' ' );
End.
2 | Автор: babax | 2015-12-04, 14:30   |  Репутация: [ + 5 ]
А вот программа сортировки выбором одномерного массива:
Код
program Sort_Vybor1;
var A:array[1..100] of integer;
N,i,m,k,x : integer;

begin
write('количество элементов массива ');
read(N);
for i:=1 to n do A[i]:=random(100);
for k:=n downto 2 do {k- количество элементов для поиска max }
   begin
    m:=1; { m - место max }
    for i:=2 to k do if A[i]>A [m]then m:=i;
    {меняем местами элементы с номером m и номером k}
    x:=A[m]; A[m]:=A[k]; A[k]:=x;
   end;
for i:=1 to n do write(A[i],' '); {упорядоченный массив}
end.
3 | Автор: babax | 2015-12-04, 14:34 | Изменено: babax - Пт, 2015-12-04, 14:34   |  Репутация: [ + 5 ]
3 | Автор: babax | 2015-12-04, 14:34 | Изменено: babax - Пт, 2015-12-04, 14:34   |  Репутация: [ + 5 ]
С двумерным массивом требуется уточнение задачи. Как сортировать не понятно. Если есть двумерный массив, то сортировать каждую строчку отдельно?
4 | Автор: babax | 2015-12-04, 14:39   |  Репутация: [ + 5 ]
помогите с двумерным массивом
5 | Автор: Greschnik | 2015-12-04, 14:55   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: