1 / 1 / 0
Регистрация: 17.09.2015
Сообщений: 112
1

Возрастание или убывание элементов в массиве через процедуры

30.01.2017, 20:43. Показов 2524. Ответов 1
Метки нет (Все метки)

Добрый вечер!
Помогите, пожалуйста!
Даны три целочисленных массива длиной n, m, l (заполняются случайными целыми числами). Если количество четных элементов больше, то отсортировать его по возрастанию, иначе по убыванию
Обязательно сделать через процедуры
Заранее благодарю
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.01.2017, 20:43
Ответы с готовыми решениями:

Проверить последовательность чисел на возрастание или убывание
Нужно написать программу, которая проверит последовательность n чисел, введённой на клавиатуре, на...

Возрастание или убывание
Определить, является ли массив возрастающей или убывающей последовательностью (через булевскую...

Возрастание, убывание и экстремумы
y=\frac{{x}^{3}}{1-{x}^{2}} x\neq\pm 1 y'=\frac{3-{x}^{2}}{-1-{x}^{2}} -1-{x}^{2}\neq 0 x=\pm...

Переделка с возрастание на убывание
Дана небольшая программа. Ввожу элементы одномерного массива. Выводятся они в порядке возрастания....

1
57 / 57 / 114
Регистрация: 09.12.2016
Сообщений: 143
31.01.2017, 12:14 2
Лучший ответ Сообщение было отмечено derevyashka как решение

Решение

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
const
max = 1000;
type
Mas = array[1..max] of integer;
procedure sort1(var a:mas;x:integer);
var i, j, buf: integer;
 begin
 for i:=1 to x-1 do
     for j:=i+1 to x do
         if a[i] > a[j] then
            begin
            buf:=a[i];
            a[i]:=a[j];
            a[j]:=buf;
            end;
 end;
procedure sort2(var a:mas;x:integer);
var i, j, buf: integer;
 begin
 for i:=1 to x-1 do
     for j:=i+1 to x do
         if a[i] < a[j] then
            begin
            buf:=a[i];
            a[i]:=a[j];
            a[j]:=buf;
            end;
 end;
 
procedure vvod(var a:mas;x:integer);
var i:integer;
 begin
 for i:=1 to x do
     a[i]:= random(10);
 end;
 
procedure vyvod(var a:mas;x:integer);
 var i:integer;
 begin
 for i:=1 to x do
     write(a[i]:2);
writeln;
 end;
 
 procedure rez(var a:mas; x:integer);
 var i, k :integer;
  begin
  vvod(a,x);
  writeln('Исходный массив:');
  vyvod(a,x);
  writeln('Итоговый массив:');
  for i:=1 to x do
      if odd(a[i]) then
         inc(k);
  if  x - k > k then
      sort1(a,x)
  else
      sort2(a,x);
  vyvod(a,x);
   end;
  
 var a,b,c:mas;
  n,m,l:integer;
 begin
 writeln('Введите количество элементов первого массива');
 readln(n);
 rez(a,n);
 writeln('Введите количество элементов первого массива');
 readln(m);
 rez(b,m);
 writeln('Введите количество элементов первого массива');
 readln(l);
 rez(c,l);
  end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.01.2017, 12:14
Помогаю со студенческими работами здесь

Возрастание и убывание в числе
Дано число, требуется отсортировать сначала по возрастанию а потом по убыванию цифры в нём

Возрастание и убывание функции
Дана функция f(x)=xcos\frac{x}{2} найти где она возрастает и убывает на промежутке f'=\cos...

Возрастание и убывание функции в ряду
Дан ряд \sum_{n=1}^{oo} \frac{{(-1)}^{n+1}n^2}{(2n^2+1)} его ряд из модулей \sum_{n=1}^{oo}...

Исследовать на возрастание/убывание график
Добрый день! у меня есть график, который построен по точкам. По оси x время, по y данные с...

Исследуйте функцию на убывание (возрастание) и экстремумы
555. исследуйте функцию на убывание (возрастание) и экстремумы в) f(x) = 2х – ln х...

Проверка сортировки массива на возрастание/убывание
Всем Привет! С Праздниками Всех! сделал программу и в ней 2 функции которые должны делать...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru