Umocňovanie čísel.

function Power(x, y : extended) : extended; 
begin 
  result := exp(y*ln(x)); 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ShowMessage(FloatToStr(Power(3, 2))); 
end;
Tento článok pridal igo dňa 23.10.2001 o 00:00. Je zaradený v kategóriách Delphi a má priradené tagy . Ak chcete, môžete reagovať na tento článok. Sledovať reakcie na tento článok môžete aj pomocou RSS 2.0.