Considere o trecho do programa a seguir, escrito em linguag...
Próximas questões
Com base no mesmo assunto
Ano: 2012
Banca:
FUNIVERSA
Órgão:
CFM
Prova:
FUNIVERSA - 2012 - CFM - Assistente de Tecnologia da Informação |
Q492988
Programação
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:
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:
Conheça nossos planos