Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
edvard_sergeev
0 / 0 / 0
Регистрация: 02.10.2012
Сообщений: 18
#1

Написать процедуру, которая упорядочивает массив чисел по указанному ключу: по возрастанию или по убыванию

01.11.2012, 11:39. Просмотров 792. Ответов 1
Метки нет (Все метки)

Написать процедуру, которая упорядочивает массив чисел по указанному ключу: по возрастанию или по убыванию.

помогите ребятки!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.11.2012, 11:39
Ответы с готовыми решениями:

Дана матрица. Написать программу, которая упорядочивает строки этой матрицы по убыванию первых элементов строк
Дана матрица А(nxn). Написать программу, которая упорядочивает строки этой...

Написать программу,которая упорядочивает по возрастанию только те элементы заданной последовательности, последняя цифра которых не равна К
Помогите пожалуйста решить программу, очень нужно.Заранее спасибо! Написать...

Создать модуль с процедурой, которая упорядочивает массив целых чисел
2. Создать модуль с процедурой, которая упорядочивает массив целых ...

Напишите процедуру, которая упорядочивает элементы массива
Напишите процедуру которая упорядочивает элементы массива: array of real в...

Массив: упорядочить массив по желанию пользователя по возрастанию или убыванию
Одномерный массив, заполненый целыми случайными числами упорядочить по желанию...

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,688
Записей в блоге: 1
01.11.2012, 14:29 #2
Лучший ответ Сообщение было отмечено edvard_sergeev как решение

Решение

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
47
48
49
50
51
Type mas=Array[1..100] of integer;
Var A:mas;
    i,n,m:byte;
Procedure Sort(Var A:mas;n,m:byte);
Var i,j,x:integer;
Begin
    Case m of
    1:
    Begin
     For i:=n downto 2 do
      For j:=2 to i do
       if A[j]<A[j - 1] then
       Begin
         x:=A[j];
         A[j]:=A[j-1];
         A[j-1]:=x;
       End;
    End;
    2:
    Begin
     For i:=n downto 2 do
      For j:=2 to i do
       if A[j]>A[j - 1] then
       Begin
         x:=A[j];
         A[j]:=A[j-1];
         A[j-1]:=x;
       End;
    End;
    End;
End;
Begin
    write('Введите размерность: ');readln(n);
    writeln('Исходный');
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    writeln;
    writeln('1-Сортировка во возрастанию');
    writeln('2-Сортировка во убыванию');
    Repeat
     write('Введите действие: ');readln(m);
    Until m in [1..2];
    writeln('Преобразованный');
    Sort(A,n,m);
    For i:=1 to n do
     write(A[i]:4);
    readln;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.11.2012, 14:29

Написать программу сортировки элементов массива по возрастанию или убыванию
Написать программу сортировки элементов массива по возрастанию или убыванию...

Отсортировать массив по возрастанию или убыванию разными сортировками
Написать программу, где пользователю предоставляется отсортировать массив по...

Написать процедуру или функцию которая вычисляет значения выражения f(x)
Найти ОДЗ х , Написать процедуру или функцию , которая вычисляет ОДЗ аргумента...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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