Santo Siswa Santosa 111221126

1.Tugas Praktek Struktur Data

   Santo Siswa Santosa  :

   Nim .   111221126

   Program Borland Delphi 7

   Tanggal 05 Mei 2012

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    fortodo: TButton;

    Label1: TLabel;

    ForDowntoDo: TButton;

    Label2: TLabel;

    WhileDo: TButton;

    RepeatUntil: TButton;

    Label3: TLabel;

    Label4: TLabel;

    Keluar: TButton;

    Bilangan: TLabel;

    Edit1: TEdit;

    Pangkat: TLabel;

    Edit2: TEdit;

    Hasil: TLabel;

    Edit3: TEdit;

    _pangkat: TButton;

    procedure fortodoClick(Sender: TObject);

    procedure ForDowntoDoClick(Sender: TObject);

    procedure WhileDoClick(Sender: TObject);

    procedure RepeatUntilClick(Sender: TObject);

    procedure KeluarClick(Sender: TObject);

    procedure _pangkatClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

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._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;

procedure TForm1.keluarClick(Sender: TObject);

begin

close;

  end;

  end.