Процедура сортировки слиянием(Паскаль, C++)

[СтёпышЪ]

здравствуйте!
Нужно написать код сортировки написанный на паскале.
на языке С++.

Пример когда на паскале

procedure sort_slij(var a:array of integer; p,r:integer);
	var q:integer;
	d:array[1..r]of integer;
	{в процедуру слияния передаем начало и конец левого массива, конец правого}


		procedure sl(pp,qq,rr:integer);
		27
		var t,i,j,k:integer;
		begin
			i:=pp;j:=qq+1;t:=1; {передача значений индексам массивов }
			{i – индекс левого массива}
			{j – индекс правого массива}
			{t – индекс нового массива}
			while (i<=qq) and (j<=rr) do
				begin
					if a[i]<a[j] then 
						begin
						d[t]:=a[i];
						inc(i);
						end
					else 
						begin
						d[t]:=a[j];
						inc(j);
						end;
					inc(t);
				end;

			{Запись оставшихся элементов в новый массив}
			while i<=qq do begin d[t]:=a[i];inc(i);inc(t) end;
			while j<=rr do begin d[t]:=a[j];inc(j);inc(t) end;
			
			{копирование элементов массива d в исходный массив а}
			for k:=1 to t-1 do a[pp+k-1]:=d[k];
		end;
	
	{основная программа сортировки слиянием}
	begin
		if p<r then 
			begin
				q:=(p+r) div 2;{деление пополам}
				sort_slij(A,p,q); {вызов процедуры сортировки для левой половины}
				sort_slij(A,q+1,r); {вызов для правой половины}
				sl(p,q,r); {вызов процедуры слияния}
			end;
	end;

Вот мои так сказать попытки...

#include "stdafx.h"
#include <iostream>
#include <cstdlib>
using namespace std;

//в процедуру слияния передаем начало и конец левого массива, конец правого
int Sl(int pp, int qq, int rr)
{
		int t,i,j,k;

		//передача значений индексам массивов
		i=pp;
		j=qq+1;
		t=1;
		//i – индекс левого массива
		//j – индекс правого массива
		//t – индекс нового массива
		while(i<=qq && j<=rr)
		{
			if (a[i]<a[j])
			{
				d[t]=a[i];
				i++;
			}
			else 
			{
				d[t]=a[j];
				j++;
			}
			t++;
		}
		//Запись оставшихся элементов в новый массив
		while (i<=qq)
		{
			d[t]=a[i];
			i++;
			t++;
		}
		while (j<=rr)
		{
			d[t]=a[i];
			j++;
			t++;
		}
		//копирование элементов массива d в исходный массив а
		for(k=0;k<t-1;k++) a[pp+k-1]=d[k];
}

int sort_slij(int a[], int p, int r)
{
	int q;
	int *d=new int [r];

	if (p<r)
	{
		q=(p+r)/2;//деление пополам
		sort_slij(a,p,q);//вызов процедуры сортировки для левой половины
		sort_slij(a,q+1,r);//вызов для правой половины
		Sl(p,q,r);//вызов процедуры слияния
	}
	
}

[Stilet]

{основная программа сортировки слиянием}

Она что рекурсивна???

[СтёпышЪ]

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

Она что рекурсивна???

да она самая

это цитата из методички по паскалю

Процедура сортировки слиянием рекурсивно делит массив на подмассивы до тех пор, пока каждый подмассив не будет содержать только 26
один элемент, а затем вызывается процедура слияния двух подмассивов, в которую передаются левый и правый подмассивы.