Tuesday 24 June 2014

Assalamu'alaikum wr.wb.
Pada kesempatan kali ini saya akan share tentang Program Menghitung Pangkat dengan Delphi. Dengan desain form seperti di bawah:


Baris Program :
procedure TForm1.btn1Click(Sender: TObject);
var i,x,n,xn:Integer;
begin
     x:= StrToint(edt1.Text);
     n:= StrToint(edt2.Text);
     xn:=1;
     for i:=1 to n do
     xn:= xn * x ;
     edt3.text:= intToStr(xn);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
     Edt1.Text:='';
  Edt2.Text:='';
  Edt1.SetFocus;
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
Close;
end;
end.

Demikian yang dapat saya sampaikan tentang menghitung pangkat dengan delphi semoga bermanfaat. Wassalamu'alaikum wr.wb.

Untuk program delphi yang lain:
Program faktorial Delphi
If Then Else Delphi
Combo Box Delphi
Case Of Delphi



0 comments:

Post a Comment