Delphi - Program Menghitung Pangkat

Button Hitung

procedure TForm1.Button1Click(Sender: TObject);

var i, x, n, pangkat:Integer;

begin

     x:= StrToint(edit1.Text);

     n:= StrToint(edit2.Text);

     pangkat:=1;

     for i:=1 to n do

     pangkat:= pangkat * x ;

     edit3.text:= intToStr(pangkat);

end;

end.

Share on Google Plus

About Stevanina

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.