Одномерные массивы(Pascal)

[swillrocker]

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

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

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 происходит выход за границы.
Исправьте пожалуйста, буду чрезмерно благодарен.
Да и ввод нужно сделать с клавиатуры, а не так:

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

[Alex11223]

Да и ввод нужно сделать с клавиатуры, а не так:

Заполнение массива с клавиатуры:

for i:=1 to n do
   readln(a[i]);

Случайными числами от 0 до 100:

Randomize //активация генератора случайных чисел, где-нибудь в начале программы
for i:=1 to n do
   a[i]:=random(100);

Странно, что у вас возникла проблема именно с этим. Это же первое что рассматривают в учебниках в соответствующем разделе.

[swillrocker]

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

Заполнение массива с клавиатуры

for i:=1 to n do
   readln(a[i]);

Случайными числами от 0 до 100.

Randomize //активация генератора случайных чисел, где-нибудь в начале программы
for i:=1 to n do
   a[i]:=random(100);

Странно, что у вас возникла проблема именно с этим. Это же первое что рассматривают в учебниках в соответствующем разделе.

Проблема не в этом... Когда я использую процедуру заполнения массива, почему-то ответ получается совсем другим. Да и главная проблема не в вводе, а в выходе за границы

[Alex11223]

Например при a=12 11 10 и b=4 3 2 1 происходит выход за границы.

Вроде бы и при тех, что у вас сейчас (3 2 1, 8 5 3 1) выходит за пределы. Мб проще заполнить ими 3 массив в любом порядке и отсортировать по убыванию? (процедуры заполнения 3 массива первыми двумя и сортировки)

Когда я использую процедуру заполнения массива, почему-то ответ получается совсем другим.

Что за процедура?

[swillrocker]

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

Вроде бы и при тех, что у вас сейчас (3 2 1, 8 5 3 1) выходит за пределы. Мб проще заполнить ими 3 массив в любом порядке и отсортировать по убыванию? (процедуры заполнения 3 массива первыми двумя и сортировки)


Что за процедура?

Может быть и проще. ))

procedure read_arr(var a:array of integer;s:byte);
var i:byte;
begin
  for i:=1 to s do read(a[i]);
end;
begin
read_arr(a,m);
read_arr(b,n);
end.

[swillrocker]

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

(процедуры заполнения 3 массива первыми двумя и сортировки)

Могли бы вы мне написать процедуру заполнения 3 массива первыми двумя ?

[Alex11223]

/del...,,,,,

[swillrocker]

Мой вариант такой...

procedure glue_arr(a:ta;b:tb;var c:tc);
var i:byte;
begin
  for i:=1 to m do a[i]:=c[i];
  for i:=m+1 to m+n do b[i-m]:=c[i];
end;

[Alex11223]

procedure glue_arr(a:ta;b:tb;var c:tc);

с самоуничтожится после завершения процедуры.
вот как-то так, исправил то, что было постом выше. Что-то не пойму как это в Паскале лучше сделать. Тут же никакого аналога "передачи по ссылке" в процедуру нет?

procedure fus(var a:TA; b:TB);
var i:integer;
begin
  for i:=1 to m do
     c[i]:=a[i];
  for i:=1 to n do
     c[i+m]:=b[i];
end;

[swillrocker]

Аааа помогите я уже не могу xD...

Вот эта программа без процедур и все работает !

const m=3;n=4;
var
  a:array[1..m] of integer;
  b:array[1..n] of integer;
  c:array[1..m+n] of integer;
  t,i,ch:integer;
begin
   for i:=1 to m do
     begin
        readln(a[i]);
        c[i]:=a[i];
     end;
   for i:=1 to n do
     begin
        readln(b[i]);
        c[i+m]:=b[i];
     end;
 writeln;
 ch:=-1;
    while ch<>0 do
       begin
         ch:=0;
         for i:=2 to m+n do
           if c[i]>c[i-1] then
             begin
                 inc(ch);
                 t:=c[i-1];
                 c[i-1]:=c[i];
                 c[i]:=t
              end
       end;
  writeln('Result:');
  for i:=1 to m+n do
    write(c[i],' ');
  writeln;
  readln;
end.

А вот она же, но с процедурами и не работает...

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 read_arr(var a:array of integer;const s:byte);
var i:byte;
begin
  for i:=1 to s do readln(a[i]);        
   end;
procedure glue_arr(a:ta;b:tb;var c:tc);
var i:integer;
begin
  for i:=1 to m do c[i]:=a[i];
  for i:=1 to n do c[i+m]:=b[i];
end;     
procedure sort_arr(var c:tc);
var t,i,ch:integer;
begin       
  ch:=-1;
  while ch<>0 do
    begin
      ch:=0;
      for i:=2 to m+n do
       if c[i]>c[i-1] then
      begin
        inc(ch);
        t:=c[i-1];
        c[i-1]:=c[i];
        c[i]:=t
      end;
    end;
end;
procedure write_arr(const a:array of integer);
var i:byte;
begin
  for i:=1 to m+n do
    write(a[i],' ');
  writeln;
end;
var a:ta;b:tb;c:tc;
begin 
read_arr(a,m);
read_arr(b,n);
glue_arr(a,b,c);
sort_arr(c);
writeln('Result:');
write_arr(c);
  readln;
end.