Tugas 4

PERTEMUAN TANGGAL 2 MEI 2012

SEMESTER 2D

TUGAS 4

Buat Program untuk Perpangkatan pada Delphi 7

 

procedure TForm1.fortodoClick(Sender: TObject);

var

 i,j:integer; b:string;

 begin

  b:=' ';j:=2;

  for i:=1 to 10 do

  begin

   b:=b+inttostr (j)+' ';

   j:=j+2;

  end;

  label1.Caption:=b;

end;

procedure TForm1.fordowntodoClick(Sender: TObject);

var

i,j:integer; b:string;

begin

b:=' ';j:=2;

for i:=10 downto 1 do

begin

b:=b+inttostr (i)+' ';

j:=j+2;

end;

label2.Caption:=b;

end;

procedure TForm1.whiledoClick(Sender: TObject);

var

i,j:integer; b:string;

begin

i:=1; b:=' ';

while i<10 do

begin

b:=b+inttostr(i)+' ';

i:=i+1;

end;

label3.Caption:=b;

end;

procedure TForm1.bt_keluarClick(Sender: TObject);

begin

  close;

end;

procedure TForm1.repeatuntilClick(Sender: TObject);

var

i,j:integer; b:string;

begin

i:=1; b:=' ';

repeat

  b:=b+inttostr(i)+' ';

  i:=i+1;

until i>10;

label7.Caption:=b;

end;

procedure TForm1.bt_pangkatClick(Sender: TObject);

var

  bil,hasil,pangkat,a:integer;

begin

  bil:=strtoint(edit1.Text);

  hasil:=bil;

  pangkat:=strtoint(edit2.Text);

  if edit2.Text='0' then edit3.Text:='1' else

  if edit2.Text='1' then edit3.Text:=edit1.Text else

  begin

    for a:=2 to pangkat do

      hasil:=hasil*bil;

    edit3.Text:=inttostr(hasil);

  end;

end;

end.

Tampilan: