Рекурсивная функция (Delphi)

[Skyfire]

Написать рекурсивную функцию для вычисления К-ого члена последовательности Фибоначчи .
С кодом вроде все просто:

function Fib(n:integer):longint;
begin
if n=0 then Fib:=0
else if n<2 then Fib:=1
else Fib:=Fib(n-1)+Fib(n-2);
end;

Но реализацию в делфи не пойму(( Т.е. какие компоненты нужны нам.

Нужна кнопка Button, edit для ввода числа, так же для вывода надо тоже edit??? И куда код сам писать.. ( вопросы тупые, только начинаю изучать)

[Arigato]

Для начала, я бы немного упростил саму функцию:

function Fib(n:integer):cardinal;
begin
if n<2 then Fib:=n
else Fib:=Fib(n-1)+Fib(n-2);
end;

Тип longint в Делфи и так соответствует Integer'у, а вот cardinal - это что-то типа 4-х байтного Word, он тут лучше подойдет.

В плане визуального интерфейса вы все верно перечислили.
Код пишете на обработчик клика по кнопке, в коде считываете значение из 1-го Эдита, переводите его в Integer функцией strtoint, вызываете функцию Fib, результат записываете в другой Эдит, переведя его в строку функцией inttostr.