- Fundamentos de ProgramaçãoAlgoritmosAnálise de Execução de Algoritmos
- Fundamentos de ProgramaçãoRecursividade
- LinguagensDelphi
O programa listado a seguir está escrito em Object Pascal.
function TForm1.rec(x: integer): integer;
begin
if (x=0)then rec:=1 else
rec:= x+rec(x-1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
n: integer;
begin
n:= 6;
showmessage(intToStr(rec(n))+intToStr(n));
end;
Após sua execução no ambiente integrado para desenvolvimento de software Delphi, a saída produzida foi:
