Tugas 3 Delphi 7

Tugas 3 Delphi 7

Tugas 3 Delphi 7

Nama : Dwi Puji Lestari
Kelas : 2B
NIM : 111221034

 

Gambar 1.

• 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.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.btkeluarClick(Sender: TObject);
  begin
  close;
  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.

Hasil Running :

 Gambar 2.