Объединение массивов

[MilenaR]

Ребят можете написать программу оч надо=)

Объединить два упорядоченных вещественных массива в один упорядоченный.
программа на паскале нужна

[Stilet]

Э-э-э а наработок нет?
С нуля хочешь чтоб написали?

[MilenaR]

Ну если вам не сложно))А так мне хотя бы основу как объединять их=))

[Grag]

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

Ну если вам не сложно))А так мне хотя бы основу как объединять их=))

Размерность объединенного массива будет равна сумме размерностей объединяемых массивов. Объединенный массив должен содержать элементы объединяемых массивов... Потом делаешь сортировку объединенного массива.

[Crab2]

1. Создай два массива
2. забей их(рандом, ввод)
3. создай 3ий массив, размерами либо 1024, либо массив суммы двух твоих массивов
4. 1ий массив загоняешь в начало(допустим конец i элемент)
5. 2ой массив загоняешь с i+1
6. вывести
на паскале как это выглядит не вспомню, ну вот тебе и основа

[MilenaR]

А можно вопрос?
как это в программе писать?)))

[MilenaR]

ой спасибо)

[Google2010]

uses crt;
const Max=5;
var a,b:array[1..Max] of real;
    c:array[1..2*Max] of real;
    k,l,m:integer;
 begin
  ClrScr;
  Writeln('Объединение двух упорядоченных массивов');
  Writeln('Введите элементы первого массива*');
  Write('(',Max,'  чисел) ->');
   for k:=1 to Max do
    begin
     Read(a[k]);
    end;
  Writeln('Введите элементы второго массива*');
  Write('(',Max,'  чисел) ->');
   for l:=1 to Max do
    begin
     Read(b[l]);
    end;
  k:=1;
  l:=1;
  m:=1;
   repeat
    if a[k]<b[l] then
     begin
      c[m]:=a[k];
      m:=m+1;
      k:=k+1;
     end
    else
     if a[k]>b[l] then
      begin
       c[m]:=b[l];
       m:=m+1;
       l:=l+1;
      end
     else
      begin
       c[m]:=a[k];
       c[m+1]:=b[l];
       k:=k+1;
       l:=l+1;
       m:=m+2;
      end;
   until (k>Max) or (l>Max);
  while k<=Max do
   begin
    c[m]:=a[k];
    k:=k+1;
    m:=m+1;
   end;
  while l<=Max do
   begin
    c[m]:=b[l];
    l:=l+1;
    m:=m+1;
   end;
  Writeln('Массив результат');
   for m:=1 to 2*Max do
    Write(c[m]:6:2,' ');
  Writeln;
  Writeln('Для завершения нажмите Enter!');
  Readkey;
 end.

[MilenaR]

Ух...емае...О.о ты гений..

[Google2010]

Ух...емае...О.о ты гений..

эт не я-- а некий Snupy)