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

Заданы две последовательности целых чисел, в первой из которых числа идут в порядке неубывания

22.10.2012, 20:49. Показов 1613. Ответов 1
Метки нет (Все метки)

Заданы две последовательности целых чисел, в первой из которых числа идут в порядке неубывания: x1,x2,..., а во второй - в порядке невозрастания. Образуйте из них новую последовательность, в которой числа идут в порядке невозрастания.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.10.2012, 20:49
Ответы с готовыми решениями:

Сколько имеется 6-ти значных чисел у которых числа идут в порядке неубывания?
Сколько имеется 6-ти значных чисел у которых числа идут в порядке неубывания? (например: 111111,...

Образуйте новую последовательность, в которой числа идут в порядке неубывания
Помогитеее... Если не трудно с объяснением в {комментариях} пож-ста

Даны две последовательности целых чисел. Удалить из первой последовательности все элементы, встречающиеся во второй
Решить с помощью vector. Даны две последовательности целых чисел. Удалить из первой...

Даны два целых числа, вывести их в порядке неубывания
Даны два целых числа. Вывести их в порядке неубывания. что не правильно var a,b:real; begin...

1
272 / 188 / 173
Регистрация: 06.06.2012
Сообщений: 322
26.10.2012, 17:46 2
Лучший ответ Сообщение было отмечено ildar08 как решение

Решение

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
75
76
77
78
79
80
81
82
const
  n = 10;
 
type
  mas = array[1..n] of integer;
  matr = array[1..2 * n] of integer;
 
var
  a, b: mas;
  c: matr;
  i: integer;
 
procedure Print_mas(a: mas);
var i: integer;
begin
  for i := 1 to n do 
  begin
    write(a[i], ' ');
  end; writeln;
end;
 
procedure Random_mas(var a: mas);
var i: integer;
begin
  for I := 1 to n do
    a[i] := random(101);
end;
 
procedure swap(var x, y: integer);
var t: integer;
begin
  t := x;
  x := y;
  y := t
end;
 
procedure Sort(var a, b: mas; var c: matr);
var i, j: integer;
begin
  for j := 1 to N do
    for i := 1 to N - j do
      if a[i] > a[i + 1] then
        swap(a[i], a[i + 1]);
  
  for j := 1 to N - 1 do
    for i := 1 to N - j do
      if b[i] < b[i + 1] then
        swap(b[i], b[i + 1]);
  
  for j := 1 to 2 * n - 1  do
    for i := 1 to 2 * n - j do
      if c[i] < c[i + 1] then
        swap(c[i], c[i + 1]);
end;
 
procedure new_mas(var c: matr);
var i: integer;
begin
  for i := 1 to n do 
  begin
    c[i] := a[i];
    c[i + n] := b[i];
  end;
end;
 
begin
  writeln('Исходный массив A из случайных чисел:');
  Random_mas(a);
  Print_mas(a);
  writeln('Исходный массив B из случайных чисел:');
  Random_mas(b);
  Print_mas(b);
  new_mas(c);
  sort(a, b, c);
  writeln('Массив A в порядке возрастания:');
  Print_mas(a);
  writeln('Массив B в порядке убывания:');
  Print_mas(b);
  writeln('Новый массив составленный из двух первых,в порядке убывания:');
  for i := 1 to 2 * n do
    write(c[i], ' ');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.10.2012, 17:46

Даны два целых числа. Вывести их в порядке неубывания
Даны два целых числа. Вывести их в порядке неубывания. Входные данные: Во входном потоке в первой...

Найти отрезки неубывания в N последовательности целых чисел
Здравствуйте. Задано преподавателем напасть программу выводящую на экран отрезки неубывания из N...

Сортировка массива целых чисел в порядке неубывания с помощью сортировки кучей
В первой строке входного файла находится число n - кол-во чисел в массиве. Во второй строке...

Получить из цифр числа четырехзначные числа, у которых цифры исходного числа идут в том же порядке
Задано натуральное трехзначное число. Получить из его цифр четырехзначные числа, у которых цифры...


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

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

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