Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
3 / 3 / 2
Регистрация: 18.10.2013
Сообщений: 49
1

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

19.10.2013, 16:16. Показов 1499. Ответов 4
Метки нет (Все метки)

Помогитеее...
Если не трудно с объяснением в {комментариях} пож-ста
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.10.2013, 16:16
Ответы с готовыми решениями:

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

Упорядочить все числа n от 1 до m в порядке неубывания значений s(n).
Пусть для целого n>0 функция s(n) равна сумме делителей числа n.Дано m>0.Упорядочить все числа n от...

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

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

4
903 / 751 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
19.10.2013, 16:29 2
Цитата Сообщение от Tima007 Посмотреть сообщение
Образуйте из них новую последовательность, в котор
... а дальше? Какую последовательность вам надо образовать?
0
3 / 3 / 2
Регистрация: 18.10.2013
Сообщений: 49
19.10.2013, 16:30  [ТС] 3
Заданы две последовательности целых чисел, в которых числа идут в порядке невозрастания: x1.x2..... Образуйте из них новую последовательность, в которой числа идут в порядке неубывания.
0
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
19.10.2013, 17:20 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
var a,b,c:array[1..500] of integer;
    n,m,i,j,k:integer;
begin
randomize;
write('Размер 1 массива n=');
read(n);
write('Размер 2 массива m=');
read(m);
writeln('Массив A:');
a[1]:=2*n;
for i:=2 to n do
a[i]:=a[i-1]-random(5);{введем числа по невозрастанию}
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('Massiv B:');
b[1]:=2*m;
for i:=2 to m do
b[i]:=b[i-1]-random(5);{введем числа по невозрастанию}
for i:=1 to m do
write(b[i]:4);
writeln;
{начнем выбирать с конца}
i:=n; j:=m; k:=1;
while (i>=1) or (j>=1) do {пока не дошли до начала первого и начала второго}
 begin
  if (i>=1) and (j>=1) then {если оба массива ещё не закончились}
   begin
    if a[i]<b[j] then {то пишем в новый массив меньший из текущих элементов}
     begin
      c[k]:=a[i];
      dec(i); {переходим к следующему элементу соответствующего массива}
      inc (k); {переходим к следующему элементу конечного массива}
     end
    else
     begin
      c[k]:=b[j];
      dec (j);
      inc (k);
     end
   end
  else if j<1 then {один из массивов уже закончился}
   begin {и мы пишем из того, в котором ещё есть элементы}
    c[k]:=a[i];
    dec(i);
    inc (k);
   end
  else if i<1 then
   begin
    c[k]:=b[j];
    dec (j);
    inc (k);
   end;
 end;
writeln('Massiv C:');
for i:=1 to m+n do
write(c[i]:4);
readln
end.
1
3 / 3 / 2
Регистрация: 18.10.2013
Сообщений: 49
19.10.2013, 20:28  [ТС] 5
спасибо)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.10.2013, 20:28

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

Выведите числовую последовательность, в которой числа, имеющие наибольшую разрядность, упорядочены в порядке неубывания
Ученики 7 «А» класса Алёша и Саша очень любят детективы. Особенно им нравится в книжках то, как...

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

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


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

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

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