Beim Potenzieren mit "**" wird erst multipliziert und dann potenziert. Das ist falsch. Und auch ziemlich schlimm (zumindest für mich).
Im "Normalen" Lazarus / FreePascal ist es richtig.
Ich melde den Bug mal ...
Code: Alles auswählen
procedure TWForm1.CalcIt;
begin
Ergebnis1.Value := Basis1.Value ** Potenz1.Value;
Ergebnis2.Value := Multiplikator2.Value * Basis2.Value ** Poten2.Value;
Ergebnis3.Value := Basis3.Value ** Potenz3.Value;
Ergebnis4.Value := Ergebnis3.Value * Multiplikator3.Value;
Ergebnis5.Value := Multiplikator4.Value * Power(Basis4.Value, Potenz4.Value);
end;