Home > While do > Contoh penggunaan perulangan while do

Contoh penggunaan perulangan while do

December 19, 2011

Untuk melakukan perulangan pada Delphi dibutuhkan variable yang digunakan untuk perbandingan.

Pertama dibuat sebuah form dan ditambahkan sebuah edit tempat mengisi jumlah perulangan yang diinginkan dan sebuah memo tempat melihat hasil perulangan yang telah dieksekusi.

Pada form1 events oncreate isi kodingnya sbb :

procedure TForm1.FormCreate(Sender: TObject);

begin

edit1.Text:=’ ‘;

memo1.Lines.Clear;

end;

disini maksudnya untuk membersihkan nilai yang ada pada edit1 dan memo1 ketika form pertama kali dijalanan.

Kemudian doubleclick pada button1 dan isi seperti ini :

procedure TForm1.Button1Click(Sender: TObject);

var i,k:integer;

begin

k:=1;

i:=strtoint(edit1.Text);

while  k<=i do

        begin

        memo1.Lines.Add(inttostr(k));

        k:=k+1;

        end;

end;

maksud dari script di atas adalah :

var i,k:integer;                    // mendeklarasikan variabel i dan k yang nantinya akan dibandingkan

k:=1;                                       // memberi nilai k=1

i:=strtoint(edit1.Text); // nilai I diambil dari edit1.text yang kita berikan melalui form 1

while  k<=i do                  // selama nilai k lebih kecil atau sama dengan I maka akan dilakukan perulangan

  begin

     memo1.Lines.Add(inttostr(k));        // pada memo1 ditambahkan nilai yaitu variable k

     k:=k+1;                                                      //variabel k ditambah nilainya….

  end

 

ketika program dijalankan akan tampil sebagai berikut :

Listing program lebih lengkapnya adalah sebagai berikut :

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Memo1: TMemo;

Button1: TButton;

Edit1: TEdit;

Label1: TLabel;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin
edit1.Text:=”;
memo1.Lines.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i , k : integer;
begin
k:=1;
i:=strtoint(edit1.Text);
while  k<=i do
begin
memo1.Lines.Add(inttostr(k));
k:=k+1;
end;
end;

end.

___________________Selamat_Mencoba___________________

Categories: While do Tags:
%d bloggers like this: