Considere o trecho do programa a seguir, escrito em linguagem Delphi:
function funcaoP(base, expoente: LongInt): LongInt; begin if expoente = 0 then Result := 1 else Result := base * funcaoP(base, expoente - 1); end; procedure TFormFuncao.BtnPrincipalClick(Sender: TObject); begin ShowMessage('5 funcaoP 3 é igual a: ' + IntToStr(funcaoP(5, 3))); end;
A execução do programa e click no botão BtnPrincipal terá como resultado: