potenz

[Sven]

i seareched the word but i cald't find something i want to use a number high another number who to do that?

<sup>procedure TForm1.buttoncalculateClick(Sender: TObject);
var zahl1, zahl2, zahl3, zahl4,
sum1 : real;
sum2 : real;
begin
     zahl1 := strtofloat(editkapital.text);
     zahl2 := strtofloat(editjahre.text);
     zahl3 := strtofloat(edittage.text);
     zahl4 := strtofloat(editzins.text);

     sum1 := zahl2 * 360 + zahl3;
     sum2 := zahl1 * "here i wanna have the potenz"

     labelsum.caption := floattostr(sum2);

end;</sup>             

so zahl1 thats my capital, zahl2 the days, zahl3 the years and zahl4 the interest.
and this is the formula i want to use: zahl1 * (1 + zahl4 / 100)^(sum1 / 360).

i wanna use that to calculate interests


Please help me Sven

[theo]

Do you mean
function power(base,exponent : float) : float;
in unit math ?

[typo]

The operator to Power is a double asterisk (**).

[Sven]

sorry but i don't understand you please give me an example...

[typo]

Code: [Select]

sum2 := zahl1 * power((1 + zahl4 / 100), (sum1 / 360));

or

Code: [Select]

sum2 := zahl1 * ((1 + zahl4 / 100) ** (sum1 / 360));

Sorry, I have edited the code.

It seems that you have an error message from the compiler on the (^) operator for power. You will not have the message anymore if you replace it with (**). You must declare Math unit on uses clause.

[Sven]

"You must declare Math unit on uses clause."

Sorry but what#s that?

[typo]

Hahaha.

On the top of your unit there is a section called "uses" on which you must add the word "Math";

[Sven]

thanks 

like this right?

^{uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, Math;}

[typo]

Yes.

[Sven]

thank you very much
but i have another questeion who to round the sum?
because when i have bad luck than i have 20 places after the comma and i want to have 2

[typo]

Code: [Select]

labelsum.caption := FloatToStrF(sum2, ffFixed, 2, 2));
After that you must make a donation, hahaha.

[Sven]

Code: [Select]

labelsum.caption := FloatToStrF(sum2, ffFixed, 2, 2));
After that you must make a donation, hahaha.

thank you. you had a little mistake 

nicht:

Code: [Select]

labelsum.caption := FloatToStrF(sum2, ffFixed, 2, 2));
sondern:

Code: [Select]

labelsum.caption := FloatToStrF(sum2, ffFixed, 2, 2);(da war am ende ein ) zu viel)

[typo]

Yes.

We accept PayPal.

I give you $ 10 off by surplus parentheses.

[TurboRascal]

Well well, I wasn't aware '**' operator required Math unit. I thought it was a common operator just as '^' is always available in some other languages... I was wondering why the compiler throws the strange "Error: Operator is not overloaded"

Thanks guys