Rabu, 08 Juni 2011

Listing pangkat

Listing lengkap bisa dilihat pada Listing Kalkulator Sederhana.
Gambar form perpangkatan



unit fungsipangkat
type
  TForm1 = class(TForm)
  Button1: TButton;
  Edit1: TEdit;
  Edit2: TEdit;
 

var
Form1: TForm1;
function pangkat ( sk1,sk2 : integer ) : integer ;
var i,b:integer ;
begin
  pangkat:=0 ;
  b := sk1 ;
  if sk2=1 then b:=sk1
  else begin
   for i:=2 to sk2 do
   begin
    b :=b * sk1 ;
   end;
  end ;
  pangkat := b ;
  if sk2=0 then pangkat:=1;

end;
 

procedure TForm1.Button1Click(Sender: TObject);
var a :integer ;
begin
  a:= pangkat(strtoint (edit1.Text), strtoint (edit2.Text)) ;
  button1.Caption :=inttostr (a);
end;
 

end.