переписать задачу с Паскаля в Visual C++

[Rexonik]

Здравствуйте, помогите пожалуйста переписать задачу с Паскаля в С++.
ВОпрос именно в том где и как описывать в С++ вот это:

input = record
last,next,new : word;

и вот это:

m : array[1..1 shl maxk] of input;
Procedure concat(a,b : word);

и это:

i:=a;while m[i].next<>n+1 do i:=m[i].next;
j:=b; while m[j].next<>n+1 do j:=m[j].next;
while j<>0 do
begin
nj:=m[j].last; m[i].next:=j; m[j].last:=i; i:=j; j:=nj;
end;
m[i].next:=n+1;
end;

Вот полный код программы на Паскале:

uses crt;
const
maxk = 13; {Максимальное значение для k}
type
input = record
last,next,new : word;
end;
var
k,i,j,n,cn,half : word;
m : array[1..1 shl maxk] of input;
Procedure concat(a,b : word);
var i,j,nj : word;
begin
i:=a;while m[i].next<>n+1 do i:=m[i].next;
j:=b; while m[j].next<>n+1 do j:=m[j].next;
while j<>0 do
begin
nj:=m[j].last; m[i].next:=j; m[j].last:=i; i:=j; j:=nj;
end;
m[i].next:=n+1;
end;
begin
Write('Enter k...');readln(k);
n:=1 shl k; {Определение длины полоски}
for i:=1 to n do{Начальные значения}
with m[i] do
begin
last:=0;
next:=n+1;
new:=0;
end;
cn:=n;
while cn>1 do {Сгибание полоски}
begin
half:=cn div 2;
for i:=1 to half do concat(i,cn-i+1);
cn:=half;
end;
j:=1;
for i:=1 to n do {Нумерация клеток}
begin
m[j].new:=i; j:=m[j].next;
end;
for i:=1 to n do write(m[i].new:5);
writeln;
end.

Помогите пожалуйста, уже все доступные источники перерыл... Я новичок в С++, но курсовую делать как-то надо)

Вот условие задачи, если кому-то понадобится:

Задана полоска длиной 2k клеток и шириной в одну клетку. Полоску сгибают пополам так, чтобы правая половинка оказалась под левой. Сгибание продолжают до тех пор, пока сверху находится больше одной клетки. Необходимо пронумеровать клетки таким образом, чтобы после окончания сгибания полосы номера клеток в получившейся колонке были расположены в порядке 1,2,3,4,...,2k.

З.Ы: Тапками сильно не кидайтесь) Я конечно понимаю, что задал много, но сам я в этом разберусь где-то недельки через 2(если начну читать какой-нибудь учебник), а сдать надо в конце недели...
З.Ы.Ы: И пожалуйста, посоветуйте хороший и понятный учебник по с++.

[onewho]

input = record
last,next,new : word;

->

struct input {
unsigned int last,next,new;
};

m : array[1..1 shl maxk] of input;

1..1 shl maxk - это вообще как ?

Procedure concat(a,b : word);

->

void concat(unsigned int a, unsigned int b);

i:=a;while m[i].next<>n+1 do i:=m[i].next;
j:=b; while m[j].next<>n+1 do j:=m[j].next;
while j<>0 do
begin
nj:=m[j].last; m[i].next:=j; m[j].last:=i; i:=j; j:=nj;
end;
m[i].next:=n+1;
end;

:= -> =
<> -> !=
begin -> {
end -> }
все предикаты помещаем в (...)
после while - do убрать.

И пожалуйста, посоветуйте хороший и понятный учебник по с++.

Герберт Шилдт

[Rexonik]

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

1..1 shl maxk - это вообще как ?

Массив чисел от 1 до 1, изменяющейся от 1 до 13 - это я загнул так просто) вообще это массив чисел от 1 до 13.
onewho огромное спасибо) теперь стало на 27 ошибок меньше :DD

[onewho]

было бы неплохо посмотреть код

[Rexonik]

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

было бы неплохо посмотреть код

Код написан в Microsoft Visual Studio 2008.
Сейчас сброшу.

[Rexonik]

ref struct input
		{
			unsigned int last, next, nov;
		};
private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) {
				 int maxk = 13;
				 void concat(unsigned int a, unsigned int b);
				 unsigned int k,i,j,n,cn,half,nj;
				 i=a;
				 while (m[i].next!=n+1)
				 {
					 i=m[i].next;
				 };
				 j=b;
				 while (m[j].next!=n+1)
				 {
					 j=m[j].next;
				 };		
				 while (j!=0)
				 {
					 nj=m[j].last; 
					 m[i].next=j; 
					 m[j].last=i; 
                     i=j; 
                     j=nj;
				 }
				 m[i].next=n+1;
				 k=Convert::ToInt32(this->textBox1->Text);
				 n=1 shl k;
				 for (i=0; i<n; i++)
				 {
					 ЗДЕСЬ ЧТО-ТО НЕПОНЯТНОЕ
				 }
			 }
	};

А как записать еще вот это:

with m[i] do
begin

Ругается на error C2065: 'a' : undeclared identifier
Хотя оно же здесь обьявлено:

void concat(unsigned int a, unsigned int b);

Как обьявить это:

m : array[1..13] of input;

[Петррр]

Вот так

input m[13];

[viron]

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

input = record
last,next,new : word;

->

struct input {
unsigned int last,next,new;
};

new зарезервировано в C++. Нельзя использовать в названиях переменных

[Rexonik]

А как записать еще вот это:

with m[i] do
begin

я переменную new заменил на nov

[viron]

Вот эту запись на Pascal

with m[i] do
begin
  last:=0;
  next:=n+1;
  new:=0;
end;

Можно переписать

 m[i].last = 0;
 m[i].next = n + 1;
 m[i].now = 0;  // now вместо new