Проблемы с рекурсией

[Quenchless]

Здравствуйте, вот пыталась разобраться рекурсией (а то почему-то по программе мы её пропустили) и оказалось не могу сделать элементарного..помогите пожалуйста, вот задание:
Получить двоичное представление заданного натурального числа N.
Вот мой код

function rec(n: integer): integer;
var
   k:string;
begin
if n > 0 then
rec := rec(n div 2);
k:=IntToStr(n mod 2);
end;

procedure TForm1.REC1Click(Sender: TObject);
var
k:integer; 
f:integer; 
k := StrToInt(Edit1.Text);
f := rec(k);
label4.caption:='Результат '+IntToStr(f);
end;

Заранее спасибо)

[Serj0987]

Можно например так:

function rec(n: integer): string;
var
   k:string;
begin
if n > 0 then
begin
rec := rec(n div 2);
k:=IntToStr(n mod 2);
result:=result+k;
end;
end;

procedure TForm1.REC1Click(Sender: TObject);
var
k:integer;
f:string;
begin
k := StrToInt(Edit1.Text);
f := rec(k);
label4.caption:='Результат '+f;
end;

[Quenchless]

Спасибо огромное!=)) до меня дошло) у вас тут есть какая-нибудь рейтинговая система? Если что, то проголосую))

[Serj0987]

Нажми на весы рядом с моим сообщением...

[Quenchless]

Ага, нашла=))

[Quenchless]

Интересно, а как закрыть эту тему...Вопрос же решён)