algoritimo no delphi

[guion 0]

senhores preciso criar um algoritimo que recebe dois numero, faça a exponeciação da soma e eleve por 2 em seguida tire a raiz e mostre o resultado

a soma ja fiz agora o algoritimo para na parte de exponenciação e raiz quadrada

logo mais mando o algoritimo

 

obrigado

[Rodrigo Cougo 0]

Para o Exponencial:

 

Function Exponenciacao(Base:double;Potencia:integer):double;

begin

Result := exp( ln(Base) * Potencia );

end;

Para Raiz:

 

i := sqrt(NUMERO);

 

Elevar:

 

i := sqr(NUMERO);