delphi 函数

Question

var
  y,x:Integer;
begin
  x:=StrToInt(Edit5.Text);
  y:=IntPower(10,x);
 Edit6.Text:=IntToStr(y);
end;
 我是新手，请问，这个问题 怎么解决啊，谢谢各位大虾、、10 的x 次方

Answer 1

function Power(x: Real; Y: Integer):Real; //求X的Y次方
var
  I: Integer;
begin
   Result := 1.0;
   I := Y;
   While I > 0 do
   begin
     if Odd(I) then Result := Result * X; //Odd判断是否是奇数
     I := I div 2;
     X := Sqr(X);//sqr 表示平方值
   end;
end;

Answer 2

uses
  math;procedure TForm1.Button1Click(Sender: TObject);
begin
  edit2.text := FloatToStr(Power(10, StrToInt(edit1.Text)));
end;具体power和IntPower函数可以找 math.pas查看

Answer 3

不知道这样可以不？
function Power(x: Real; Y: Integer):Real; var
  I: Integer;
begin
  Result := 1.0;
  for I := 0 to Y-1 do
  begin
    Result := Result * x;
  end;
end;