Массивы

[zloy20]

Пришлите мне пожалуйста программу этой задачи и блок схему: Даны два массива А и В размера 5, элементы которых упорядочены по возрастанию. Объединить эти массивы так, что бы результирующий массив С (размера 10) остался упорядоченным по возрастанию.

[IT-man]

   var a,b:array[1..5] of integer;
   c:array[1..10] of integer;
   i,j,k:integer;

begin
for i:=1 to 5 do
 begin
 a[i]:=i;
 b[i]:=2*i;
 end;
 for i:=1 to 5 do
 writeln(a[i]:4,b[i]:4);
 j:=1;k:=1;
for i:=1 to 10 do begin
if (a[j]<=b[k])  then  begin
 if (j<=5) then begin c[i]:=a[j];inc(j);end
else
if (k<=5) then begin c[i]:=b[k];k:=k+1;end;end
else
if (a[j]>b[k]) then begin
if (k<=5) then begin c[i]:=b[k];inc(k);end
else
if (j<=5)then begin c[i]:=a[j];j:=j+1;end;
end;
end;
For i:=1 to 10 do
write(c[i]:4);
readln;
end.

[psycho-coder]

Склеить массивы и отсортировать. В чем проблема? На форуме сортировка уже обсуждалась и не раз!

[IT-man]

Склеить массивы и отсортировать

тут не все так просто))

Объединить эти массивы так, что бы результирующий массив С (размера 10) остался упорядоченным по возрастанию.

А не обьединить и отсортировать))

[Serge_Bliznykov]

можно "в лоб решить"...
заводим два счётчика - один по первому массиву, второй - по второму. Конечное число записей в массиве С известно (=размер A + размер B = 10),
поэтому

iA := 1;
iB := 1;
for k:=1 to 10 do
  if (iA<=5) and (iB<=5)
      then begin
         if A[iA]<B[iB] then begin C[k] := A[iA]; inc(iA) end
                              else  begin C[k] := B[iB]; inc(iB) end;
  end
  else 
  {какой-то из массивов кончился, 
    поэтому сравнивать нет смысла,
    надо незакончившийся массив  допереносить в C}
    begin
       if iA<=5 then begin C[k] := A[iA]; inc(iA) end
                    else  begin C[k] := B[iB]; inc(iB) end;
    end;

всё. задача решена.

[IT-man]

осталось нарисовать блок-схему и отослать ТС!

[psycho-coder]

Есть специальные программы для этого. Одна из них MS Visio)