tugas

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+2;

end;

label3.Caption:=b;

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;

label4.Caption:=b;

end;

procedure TForm1.bt_keluarClick(Sender: TObject);

begin

close;

end;

procedure TForm1.Button5Click(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.