Работа с массивами Опции

[Гость]

Помогите если сможете!
Даны два массива из дробных чисел,состоящие из N и P. Элементы в них упорядочены по возрастанию.
{это я реализовала}
Вопрос: Как посторить упорядоченый по возрастанию массив из N+P элементов данных массивов?

[volvo]

Здесь:
Методы сортировок
или
http://forum.sources.ru/index.php?showtopic=44916

Сообщение отредактировано: volvo - 8.04.2007 13:59

[Гость]

Спасибо. Но ссылка "Методы сортировок" не открылась. А вторую ссылку я прочитала и попробовала воспользоваться. Но! Я не поняла как работает эта сортировка...Если можно, объясните, а то что-то никак не разберусь какая переменная чему отвечает...

[Гость]

Можете помочь...?

k1:=n; k2:=m;
for i:=1 to k1 do
begin
c[i]:=a[i];
end;
for i:=1 to k2 do
begin
c[k1+i]:=b[i];
end;
for i:=1 to k1+k2 do write(c[i]:2 :2,'  '); 

Как этот код сделать через Процедуру? Подскажите, а то не могу понять...

[Гость]

type mas=array [1..100] of real;
var i,n,m,p:byte;
    a,b,c:^mas;
Procedure vvod(var n:byte; var a:mas);
var i:byte;
begin
Writeln('Vvedite kol-vo elementov massiva');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln;
end;
begin
New(a); New(b); New©;
Vvod(n,a^);
Vvod(m,b^);

Может такое быть? Что в самой программе данные динамические,а в процедуре статические?