сделать из трёх массивов по возрастанию один по возрастанию

[Novenkaja]

procedure objedinenie(var a:mas; ga:integer; var b:mas; gb:integer; var c:mas; gc:integer);
var ia,ib,ic:integer;
     ela,elb:integer;
    
    procedure ostatok
           (var m:mas; im,gm:integer);
    var i:integer;
    begin
       for i:=im to gm do begin
                                   c[ic]:=m[i];
                                   ic:=ic+1
                                   end
    end;
begin
   gc:=gc+gb;
   ia:=1; ib:=1; ic:=1;
   ela:=a[ia]; elb:=b[ib];
   while (ia<=ga) and (ib<=gb) do
       if ela<elb then begin
                              c[ic]:=ela;
                              ia:=ia+1; ic:=ic+1;
                              ela:=a[ia]
                              end
                     else begin
                              c[ic]:=elb;
                              ib:=ib+1; ic:=ic+1;
                              elb:=b[ib]
                           end;
     if ia<=ga then ostatok(a,ia,ga)
                  else ostatok(b,ib,gb);
     realdn;
end.

добрый вечер. Этот код изначально предназначался к заданию с таким условием- даны 2 массива по возрастанию в правильном порядке.и нужно было составить программу,которая выдаёт третий массив из этих двух тоже в правильном порядке по возрастанию

У меня же такое задание-даны 3 числовых массива и все они в правильном порядке и по возрастанию.Надо сделать из них один в правильном порядке и по возрастанию.
Как переделать этот код? т.к. не компилирует....
или если легче самим написать программу к заданию,чем переделывать этот код-то давайте так. Как будет Вам удобнее.
Заранее спасибо.
ПС:очень срочно нужно до 24:00 по Московскому времени!!!! Сегодная дождна отправить преподоватулю+ кроме этого задания есть ещё одно-два

[Novenkaja]

очень нужно это задание
и вот ещё одно

3 числовых массива,2 по возрастанию,один по убыванию.из них сделать один во возратснаию(числа идут по порядку)

[romec1]

а в чем сложность то? на сколько я понимаю:
- создаешь массив размерностью (размер первого массива + размер 2 массива + размер 3 массива) добавляешь элементы массивов в твой, потом уже группируешь по возрастанию, или как тебе уже там нужно...

[Novenkaja]

на словах это легко,а на деле???
я на листке с цифрами это прокрутила,а тоже самое в программе мне уже сложнее

[Serge_Bliznykov]

потом уже группируешь по возрастанию, или как тебе уже там нужно...

это не нужно делать. Раз элементы в исходных массивах уже отсортированы - то сразу при добавлении можно ( И НУЖНО ) добавлять их в правильном порядке.


Novenkaja, вторая задача решается аналогично первой - только по третьему массиву надо двигаться от последней записи к первой...

[val_nnm]

Примерно так
1)

procedure objedinenie(var a:mas; a_size:integer; var b:mas; b_size:integer; var c:mas; c_size:integer; var out:mas);
var ia,ib,ic,iout:integer;
    index:integer;
Begin
  ia := 1;
  ib := 1;
  ic := 1;
  iout = 1;
  while ( (ia<=a_size) or (ib<=b_size) or (ic<=c_size) ) do Begin
    index := 0; { Номер массива из которого брать следующий элемент }

    if ( ia<=a_size ) then index := 1;

    if ( ib<=b_size ) then Begin
      if (index=0) then
        index := 2;
      if (index=1) then
        if (b[ib]<a[ia]) then index := 2;
    end;

    if ( ic<=c_size ) then Begin
      if (index=0) then
        index := 3;
      if (index=1) then
        if (c[ic]<a[ia]) then
          index := 3;
      if (index=2) then
        if (c[ic]<b[ib]) then
          index := 3;
    end;

    if (index = 1) then Begin
      out[iout] := a[ia];
      ia := ia+1;
    End;
    if (index = 2) then Begin
      out[iout] := b[ib];
      ib := ib+1;
    End;
    if (index = 3) then Begin
      out[iout] := c[ic];
      ic := ic+1;
    End;
    iout := iout+1;
  End;
End;

2)

procedure objedinenie(var a:mas; a_size:integer; var b:mas; b_size:integer; var c:mas; c_size:integer; var out:mas);
var ia,ib,ic,iout:integer;
    index:integer;
Begin
  ia := 1;
  ib := 1;
  ic := c_size;
  iout = 1;
  while ( (ia<=a_size) or (ib<=b_size) or (ic>0) ) do Begin
    index := 0; { Номер массива из которого брать следующий элемент }

    if ( ia<=a_size ) then index := 1;

    if ( ib<=b_size ) then Begin
      if (index=0) then
        index := 2;
      if (index=1) then
        if (b[ib]<a[ia]) then index := 2;
    end;

    if ( ic>0 ) then Begin
      if (index=0) then
        index := 3;
      if (index=1) then
        if (c[ic]<a[ia]) then
          index := 3;
      if (index=2) then
        if (c[ic]<b[ib]) then
          index := 3;
    end;

    if (index = 1) then Begin
      out[iout] := a[ia];
      ia := ia+1;
    End;
    if (index = 2) then Begin
      out[iout] := b[ib];
      ib := ib+1;
    End;
    if (index = 3) then Begin
      out[iout] := c[ic];
      ic := ic-1;
    End;
    iout := iout+1;
  End;
End;

Здесь a,b,c входные массивы. out выходной массив. во 2м задании a,b по возрастанию, с по убыванию.

Ну естественно это только процедуры работы с массивами (у вас ещё должен быть основной текст программы и обьяление типа mas, добавти их в код).

И ещё. Писал без проверки (в лом искать комплятор). Поэтому могут быть ошибки. Проверти сами.