Reescrevendo:
[ *** Inicio *** ]
Uses Math;
Function calcula(x,y, z,w:Float) :float
Begin
result := Power( ( x * y /z ), w );
End;
[ *** Final *** ]
Atte,
Ricardo.
--- Em sex, 11/7/08, Berdam <[EMAIL PROTECTED]> escreveu:
De: Berdam <[EMAIL PROTECTED]>
Assunto: Re: [delphi-br] Criar função
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 11 de Julho de 2008, 10:26
function calcula(x,y, z,w:Float) :float
begin
result := ((((x*y))/z) potência w)
>Esta função recebe uma expressão, exemplo ((10*5)/2)^3, e calcula
end;
Faltou a potência, mas acho que na classe Math do delphi deve ter isso ai
------------ --------- --------- --------- --------- --------- -
Uberdam Cavaletti
Formado em Tecnologia da Informação - Unoesc - Xxe
Pós-graduado em desenvolvimento Java - Unoesc - Xxe
http://www.curricul ar.com.br/ berdam
Visite
http://passandovene no.blogspot. com
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
