Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
3 / 3 / 1
Регистрация: 28.09.2012
Сообщений: 128

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

18.10.2012, 09:28. Показов 1389. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Заданы две последовательности целых чисел, в первой из которых числа идут в порядке неубывания: x1,x2,..., а во второй - в порядке невозрастания. Образуйте из них новую последовательность, в которой числа идут в порядке убывания.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
18.10.2012, 09:28
Ответы с готовыми решениями:

Образовать из последовательностей новую последовательность чисел так, чтобы она тоже была неубывающей
Даны две последовательности А1<=A2<=...<=An и B1<=B2<=...<=Bm. Образовать из них новую последовательность чисел так, чтобы она тоже была...

Образовать из двух упорядоченных последовательностей новую последовательность чисел так, чтобы она тоже была неубывающей
Даны две последовательности a1<=a2<=...<=an и b1<=b2<=...<=bm. Образовать из них новую последовательность чисел так, чтобы она тоже была...

Образовать из двух упорядоченных последовательностей третью, сохранив упорядоченность (без доп. массива)
Даны две последовательности a1<=a2<=...<=an и b1<=b2<=...<=bn. Образовать из них новую последовательность чисел так, чтобы она была...

1
233 / 223 / 146
Регистрация: 19.03.2012
Сообщений: 369
18.10.2012, 12:22
Лучший ответ Сообщение было отмечено a999a1 как решение

Решение

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
Program p1;
Const n=4;
Var a,b:array [1..n] of integer;
    c:array [1..2*n] of integer;
    i,stek,k:integer;
BEGIN
  for i:=1 to n do begin
    Write ('a[',i,']= ');
    Readln (a[i]);
    c[i]:=a[i];
  end;
  for i:=1 to n do begin
    Write ('b[',i,']= ');
    Readln (b[i]);
    c[n+i]:=b[i];
  end;
   for k:=1 to 2*n do begin 
    for i:=k+1 to 2*n do begin
      if c[k]<c[i] then begin
        stek:=c[k];
        c[k]:=c[i];
        c[i]:=stek;
      end;
    end;
    Writeln ('c[',k,']= ',c[k])
  end;  
END.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
18.10.2012, 12:22
Помогаю со студенческими работами здесь

Образовать из двух неубывающих последовательностей новую неубывающую последовательность
Доброго времени суток всем, Всех с наступающим Новым Годом. Помогите пожалуйста решить, очень нужно. Срочно. За ранее благодарен. Даны...

Из двух заданных последовательностей образовать новую согласно условию
Даны две последовательности a_1 ≤ a_(2 )… ≤ a_(n ) и〖 b〗_1 ≤ b_(2 )… ≤ b_(m ).Образовать из них новую последовательность чисел так, чтобы...

Образовать из неубывающих последовательностей новую последовательность так, чтобы она тоже была неубывающей
Даны две последовательности a_1 ≤ a_(2 )… ≤ a_(n ) и〖 b〗_1 ≤ b_(2 )… ≤ b_(m ). Образовать из них новую последовательность чисел так, чтобы...

Получить из двух последовательностей одну упорядоченную по убыванию
Даны две упорядоченные по возрастанию последовательности чисел Х и У размером m и n элементов соответственно (3&lt;=m, n&lt;=10000)....

Получить упорядоченную по невозрастанию последовательность длины n+m из членов данных последовательностей
Задание: Даны две упорядоченные по невозрастанию последовательности a длины n и b длины m. Получить упорядоченную по невозрастанию...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru