Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
nurik101
1 / 1 / 0
Регистрация: 28.01.2013
Сообщений: 9
1

Массив: сортировка массива по возрастанию или по убыванию

28.01.2013, 12:55. Просмотров 1230. Ответов 2
Метки нет (Все метки)

Здравствуйте, помогите пожалуйста написать программу, которая располагает элементы одномерного массива A[1..n] в зависимости от значения параметра q либо в порядке возрастания, либо в порядке убывания?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.01.2013, 12:55
Ответы с готовыми решениями:

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

Упорядочен ли массив по возрастанию или убыванию
дан одномерный массив.Упорядочен ли он по возрастанию или убыванию.Использовать...

Создайте целочисленный массив А, содержащий 20 различных чисел. Отсортируйте первую половину массива А по возрастанию, а вторую по убыванию
Создайте целочисленный массив А, содержащий 20 различных чисел. Отсортируйте...

Сортировка по возрастанию и по убыванию
Дан массив из 20 элементов. Отсортировать первую половину по возрастанию, а...

Ввести массив A(N). Упорядочить четные элементы массива по убыванию, а не четные по возрастанию.
Ввести массив A(N). Упорядочить четные элементы массива по убыванию, а не...

2
Puporev
Модератор
54584 / 42090 / 29061
Регистрация: 18.05.2008
Сообщений: 99,281
28.01.2013, 13:52 2
Лучший ответ Сообщение было отмечено nurik101 как решение

Решение

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
uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure sort(var a:mas;n:integer;q:integer);
var i,j,x:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if((q=0)and(a[i]<a[j]))or((q=1)and(a[i]>a[j])) then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
end;
var a:mas;
    n,i,q:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=-25+random(50);
  write(a[i]:4);
 end;
writeln;
repeat
write('Введите способ сортировки 0-по убыванию, 1-по возрастанию q=');
readln(q);
until q in [0,1];
sort(a,n,q);
writeln('Отсортированный массив:');
for i:=1to n do
write(a[i]:4);
readln
end.
1
nurik101
1 / 1 / 0
Регистрация: 28.01.2013
Сообщений: 9
28.01.2013, 16:30  [ТС] 3
ух ты спасибо, теперь попробую преподу объяснить
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.01.2013, 16:30

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

Заполните массив целыми числами, так чтобы средний элемент массива был равен X, слева от него элементы стоят по возрастанию, а справа – по убыванию (в
Задание:Заполните массив целыми числами, так чтобы средний элемент массива был...

сортировка последовательностипо возрастанию(убыванию) методом простого выбора.
записать программу,выполняющую следующие операции: 1.ввод с клавиатуры...


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

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

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