Получить упорядоченную по невозрастанию последовательность длины n+m из членов исходных

@swillrocker · Регистрация: 09.04.2011

Author24 — интернет-сервис помощи студентам

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

(Разбить задачу на подзадачи таким образом, чтобы решение каждой подзадачи описывалось подпрограммой, а основная программа состояла бы из последовательности вызовов подпрограмм)

Pascal

Program lab4rr;
const
  m=3;
  n=4;
type
  TA = array [1..m] of integer;
  TB = array [1..n] of integer;
  TC = array [1..m+n] of integer;
procedure someproc(a:TA;b:TB;var c:TC);
var
  i:integer;
  ixA,ixB:integer;
begin
  ixA:=1;
  ixB:=1;
  for i := 1 to m+n do
    if (a[ixA]>b[ixB]) or (ixB>n) then
      begin
        c[i]:=a[ixA];
        inc(ixA)
      end
    else
      begin
        c[i]:=b[ixB];
        inc(ixB)
      end
end;
var
  a:TA;
  b:TB;
  c:TC;
  i:integer;
begin
  a[1]:=3;
  a[2]:=2;
  a[3]:=1;
  b[1]:=8;
  b[2]:=5;
  b[3]:=3;
  b[4]:=1;
  someproc(a,b,c);
  writeln;
  for i := 1 to m+n do
    write(c[i],',');
  writeln;
  readln;
end.

Программа работает, но не для всех последовательностей.
Например при a=12 11 10 и b=4 3 2 1 происходит выход за границы.
Исправьте пожалуйста, буду чрезмерно благодарен.
Да и ввод нужно сделать с клавиатуры, а не так:

Pascal

begin
  a[1]:=3;
  a[2]:=2;
  a[3]:=1;
  b[1]:=8;
  b[2]:=5;
  b[3]:=3;
  b[4]:=1;

@sannee · 19.05.2011, 20:29

Твой алгоритм некорректный.
В данной задаче ничего сложного нет. Все что нужно сделать это:
1. Перегнать данных два массива в одни массив.
2. Отсортировать массив по убыванию. (смотри методы сортировки массивов)

@swillrocker · 19.05.2011, 20:38 **[ТС]**

Сообщение от sannee

Твой алгоритм некорректный.
В данной задаче ничего сложного нет. Все что нужно сделать это:
1. Перегнать данных два массива в одни массив.
2. Отсортировать массив по убыванию. (смотри методы сортировки массивов)

Это уже другой вариант программы... В начальном варианте примерно так и делал, но там было много ошибок и начал снова другим путем.
Могли бы вы написать ваш вариант первого пункта (процедурой) ?

@sannee · 19.05.2011, 21:09

Вот полностью рабочая программа, только без процедур и функций. Честно говоря, нет времени этот код переписывать.

Delphi

uses crt;
var
  a:array [1..9999] of integer;
  b: array [1..9999] of integer;
  c: array [1..9999] of integer;
  max, max1, max2: integer;
 temp,i,change:integer;
begin
 
clrscr;
 writeln('ўўҐ¤ЁвҐ ¤«Ё*г ЇҐаў®© Ї®б«Ґ¤.:');
 readln(max1);
 writeln('ўўҐ¤ЁвҐ ¤«Ё*г ўв®а®© Ї®б«Ґ¤.:');
 readln(max2);
 max:=max1+max2;
  writeln('ўўҐ¤ЁвҐ ЇҐаўго Ї®б«Ґ¤®ў.:');
  for i:=1 to max1 do
  begin
  readln(a[i]);
  c[i]:=a[i];
  end;
   writeln('ўўҐ¤ЁвҐ ўв®аго Ї®б«Ґ¤®ў.:');
  for i:=1 to max2  do
  begin
  readln(b[i]);
  c[i+max1]:=b[i];
  end;
  writeln;
  change:=-1;
  while change<>0 do
  begin
    change:=0;
    for i:=2 to max do
      if c[i]>c[i-1] then
      begin
        inc(change);
        temp:=c[i-1];
        c[i-1]:=c[i];
        c[i]:=temp
      end
  end;
  writeln('аҐ§г«мв*в:');
  for i:=1 to max do
    write(c[i],' ');
  writeln
end.

@sannee Просто хороший человек 392 / 182 / 24 Регистрация: 26.04.2011 Сообщений: 434
	19.05.2011, 20:29	2
	Твой алгоритм некорректный. В данной задаче ничего сложного нет. Все что нужно сделать это: 1. Перегнать данных два массива в одни массив. 2. Отсортировать массив по убыванию. (смотри методы сортировки массивов) 1

@swillrocker 338 / 127 / 114 Регистрация: 09.04.2011 Сообщений: 246
	19.05.2011, 20:38 [ТС]	3
	Сообщение от sannee Твой алгоритм некорректный. В данной задаче ничего сложного нет. Все что нужно сделать это: 1. Перегнать данных два массива в одни массив. 2. Отсортировать массив по убыванию. (смотри методы сортировки массивов) Это уже другой вариант программы... В начальном варианте примерно так и делал, но там было много ошибок и начал снова другим путем. Могли бы вы написать ваш вариант первого пункта (процедурой) ? 1

	19.05.2011, 21:09

Получить упорядоченную по невозрастанию последовательность длины n+m из членов исходных

Решение