Latihan Delphi 3

May 5, 2012

procedure TForm1.fortodClick(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 i10;
label4.Caption:=b;
end;
procedure TForm1.brkeluarClick(Sender: TObject);
begin
close
end;
procedure TForm1.bt_pangkatClick(Sender: TObject);
var
hasil,pangkat,bil,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.