Menghitung bilangan berpangkat bulat delphi

Program sederhana untuk menghitung bilangan berpangkat bulat dengan delphi.. semoga bermanfaat.. :D

unit Unit1;<br /><br />interface<br /><br />uses<br />  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br />  Dialogs, StdCtrls;<br /><br />type<br />  TForm1 = class(TForm)<br />    Edit1: TEdit;<br />    Edit2: TEdit;<br />    Edit3: TEdit;<br />    BHitung: TButton;<br />    Label1: TLabel;<br />    Label2: TLabel;<br />    Label3: TLabel;<br />    procedure BHitungClick(Sender: TObject);<br />    procedure FormCreate(Sender: TObject);<br />  private<br />    { Private declarations }<br />  public<br />    { Public declarations }<br />  end;<br /><br />var<br />  Form1: TForm1;<br /><br />implementation<br /><br />{$R *.dfm}<br /><br />function PangkatBilangan(a:Double; b : Integer) : Double;<br />var i : integer; temp : Double;<br />begin<br />temp := 1;<br />for i := 1 to b do<br />begin<br />temp := temp * a;<br />end;<br />PangkatBilangan := temp;<br />end;<br /><br /><br /><br />procedure TForm1.BHitungClick(Sender: TObject);<br />var angka   : Double;<br />    pangkat : Integer;<br />begin<br />angka   := StrToFloat(Edit1.Text);<br />pangkat := StrToInt(Edit2.Text);<br /><br />Edit3.Text := FloatToStr(PangkatBilangan(angka,pangkat));<br />end;<br /><br /><br />procedure TForm1.FormCreate(Sender: TObject);<br />var x : Integer;<br />begin<br />  for x:=0 to ComponentCount-1 do<br />  begin<br />    if (Components[x] is TEdit) then<br />    begin<br />      (Components[x] as TEdit).Clear;<br />    end;<br />  end;<br />end;<br /><br />end.

Hasil screenshot program :

Download Program + Source DISINI