exponenciacao
[color=red:188940c787][/color:188940c787]
como elevar uma expressao a outra
obrigado :shock:
como elevar uma expressao a outra
obrigado :shock:
Anonymous
Curtidas 0
Respostas
Anonymous
04/04/2003
Em delphi 5.0, use a função POWER:
[b:1b1942c6d6]function Power(Base, Exponent: Extended): Extended;[/b:1b1942c6d6]
Exemplo:
Uses Math;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Edit3.Text := FormatFloat(´0.0000000000´,Power(StrToInt(Edit1.Text),StrToInt(Edit2.text)));
end;
[b:1b1942c6d6]function Power(Base, Exponent: Extended): Extended;[/b:1b1942c6d6]
Exemplo:
Uses Math;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Edit3.Text := FormatFloat(´0.0000000000´,Power(StrToInt(Edit1.Text),StrToInt(Edit2.text)));
end;
GOSTEI 0