Delphi : Program Quick Sort

Nama           : ANDI KHOIRUDIN

Kelas           : 2-B SMT 2

Jurusan       : Teknik Informatika

STIMIK YADIKA BANGIL 2015

Membuat Program 'Quick Sort' Sederhana dengan DELPHI 

Langkah-langkahnya  : 

1. Buka Aplikasi Delphi 

2. Pilih Menu File --> New --> Form Delphi 

3. Kemudian Desain Propertiesnya :

Hingga seperti gambar di bawah ini : 

4. Ketik atau copykan script di bawah ini 

unit UContohh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, sSkinManager;

type
  TFQuickSort = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    ListBox2: TListBox;
    Button3: TButton;
    Label2: TLabel;
    Label4: TLabel;
    Button4: TButton;
    Label5: TLabel;
    sSkinManager1: TsSkinManager;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  Data:array of integer;
  public
    { Public declarations }
  end;

var
  FQuickSort: TFQuickSort;

implementation

{$R *.dfm}

procedure QuickSort(var A:array of integer; iLo,iHi:integer);
var
 Lo,Hi,Pivot,T:Integer;
begin
 Lo:=iLo;
 Hi:=iHi;
 Pivot:=A[(Lo+Hi)div 2];

repeat

 while A[Lo]<Pivot do Inc(Lo);
 while A[Hi]>Pivot do Dec(Hi);

 if Lo <= Hi then
 begin
  T:= A[Lo];
  A[Lo]:=A[Hi];
  A[HI]:=T;
  Inc (Lo);
  Dec(Hi);
 end;

until Lo>Hi;
 if Hi>iLo then QuickSort(A,iLo,Hi);
 if Lo<iHi then QuickSort(A,Lo,iHi);
end;

procedure TFQuickSort.Button1Click(Sender: TObject);
var
 nilai:integer;
begin
//menambahkan nilai ke listbox
if TryStrToInt(Edit1.Text,Nilai)then
LISTBOX1.Items.ADD(INTTOSTR(NILAI));
//membersihkan komponen inputan nilai
Edit1.Clear;

 //focus kursor ke inputan nilai
 Edit1.SetFocus;
end;

procedure TFQuickSort.Button2Click(Sender: TObject);
var
 indek:Word;
begin

//Menentukan panjang array
SetLength(Data,ListBox1.Items.Count);

//Pemasukan nilai ke array
for indek := 0 to ListBox1.Items. Count - 1 do
Data[indek]:=StrToInt(ListBox1.Items[indek]);
//proses pengurutan/sorting
QuickSort(data,Low(Data),High(Data));
//Kosongkan hasil
ListBox2.Items.Clear;

//Memasukkan nilai hasil
for indek := 0 to Listbox1.Items. Count - 1 do
ListBox2.Items.Add(IntToStr(Data[indek]));
end;

procedure TFQuickSort.Button3Click(Sender: TObject);
begin
 Close;
end;
procedure TFQuickSort.Button4Click(Sender: TObject);
begin
ListBox1.Items.Clear;
ListBox2.Items.Clear;
 END;
end.

5. Terakhir coba jalankan program dengan tekan F9 atau klik tombol Run , apabila tidak ada pesan kesalahan maka program akan terlihat seperti di bawah ini :

6. Ketika program di coba untuk digunakan maka akan tampil seperti di bawah ini :

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Jika ada kesalahan Mohon maaf dan terima kasih sudah berkunjung 

Baca Selengkapnya »

Delphi : Pembagian Deret

Nama           : ANDI KHOIRUDIN

Kelas           : 2-B SMT 2

Jurusan       : Teknik Informatika

STIMIK YADIKA BANGIL 2015

Membuat Program Pembagian Deret Sederhana dengan DELPHI 

Langkah-langkahnya  : 

1. Buka Aplikasi Delphi 

2. Pilih Menu File --> New --> Form Delphi 

3. Kemudian Desain Propertiesnya :

Hingga seperti gambar di bawah ini : 

4.Kemudian Double Klik Button Proses dan Sisipkan script di bawah ini : 

Function TForm1.Tambah(m,n:integer):integer;
var
a,b,c,i:integer;
begin
 i:=1;
 hasil:=0;
 repeat
 begin
 hasil:=hasil+m;
 i:=i+1;
 end;
 until i>10;
 tambah:=hasil;
end;

procedure TForm1.btnProsesClick(Sender: TObject);
var
 A,B,C:integer;
begin
 A:=StrToInt(txtA.Text);
 B:=StrToInt(txtB.Text);
 C:=StrToInt(txtC.text);

 D:=(A+B)/C;
 txtD.Text:=FloatToStr(D);
end;

5. Tambahkan Script dibawah ini di atas btnproses :

Function Tambah(m,n:integer):integer;
  end;

var
  Form1: TForm1;
  hasil:integer;
  D:real;

6.Kemudian Double Klik Button Clear  dan Sisipkan script di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
  txtA.Clear;
  txtB.Clear;
  txtC.Clear;
  txtD.Clear;
end;

7.Kemudian Double Klik Button Close dan Sisipkan script di bawah ini :

procedure TForm1.Button2Click(Sender: TObject);
begin
  CLOSE;
end;

8. Terakhir coba jalankan program dengan tekan F9 atau klik tombol Run , apabila tidak ada pesan kesalahan maka program akan terlihat seperti di bawah ini :

9. Ketika program di coba untuk digunakan maka akan tampil seperti di bawah ini :

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba

Jika ada kesalahan Mohon maaf dan terima kasih sudah berkunjung 

Baca Selengkapnya »

Delphi : Pembagian Pangkat

Nama           : ANDI KHOIRUDIN

Kelas           : 2-B SMT 2

Jurusan       : Teknik Informatika

STIMIK YADIKA BANGIL 2015

Membuat Program Pembagian Pangkat Sederhana dengan DELPHI 

Langkah-langkahnya  : 

1. Buka Aplikasi Delphi 

2. Pilih Menu File --> New --> Form Delphi 

3. Kemudian Desain Propertiesnya :

Hingga seperti gambar di bawah ini : 

4.Kemudian Double Klik Button Proses dan Sisipkan script di bawah ini : 

procedure TForm1.btnprosesClick(Sender: TObject);

var
a2,b3,c3,a,b,c:integer;
begin
a:=strtoint(txta.text);
b:=strtoint(txtb.text);
c:=strtoint(txtc.text);
a2:=DERET(a,2);
b3:=DERET(b,3);
c3:=DERET(c,3);

d:=(a2+b3)/c3;
txtd.text:=floattostr(d);
end;

5. Tambahkan Script dibawah ini di atas btnproses :

function DERET(m,n:integer):integer;
      end;

var
  Form1:TForm1;
  hasil:integer;
  d:real;

implementation

{$R *.dfm}
 function tform1.DERET(m,n:integer):integer;
 var
 a,b,i:integer;
 begin
 i:=1;
 hasil:=1;
 while i<=n do
 begin
 hasil:=hasil*m;
 i:=i+1;
 end;
 DERET:=hasil;
end;

6. Terakhir coba jalankan program dengan tekan F9 atau klik tombol Run , apabila tidak ada pesan kesalahan maka program akan terlihat seperti di bawah ini :

7. Ketika program di coba untuk digunakan maka akan tampil seperti di bawah ini :

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba

Jika ada kesalahan Mohon maaf dan terima kasih sudah berkunjung 

Baca Selengkapnya »

Delphi : Program Pemangkatan

Nama           : ANDI KHOIRUDIN

Kelas           : 2-B SMT 2

Jurusan       : Teknik Informatika

STIMIK YADIKA BANGIL 2015

Membuat Program Pemangkatan Sederhana dengan DELPHI 

Langkah-langkahnya  : 

1. Buka Aplikasi Delphi 

2. Pilih Menu File --> New --> Form Delphi 

3. Kemudian Desain Propertiesnya :

Hingga seperti gambar di bawah ini : 

4. Ketik atau copykan script di bawah ini 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sSkinManager;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    btnpangkat1: TButton;
    btnpangkat4: TButton;
    btnpangkat3: TButton;
    btnpangkat2: TButton;
    Button1: TButton;
    Button2: TButton;
    Label7: TLabel;
    procedure btnpangkat1Click(Sender: TObject);
    procedure btnpangkat2Click(Sender: TObject);
    procedure btnpangkat3Click(Sender: TObject);
    procedure btnpangkat4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
    procedure pangkat1(p,l:string);
    function pangkat2(p,l:string):string;
    function pangkat3(m,n:integer):integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnpangkat1Click(Sender: TObject);
var
a,b,i,c:integer;

begin
i:=1;
c:=1;
a:=strtoint(edit2.text);
b:=strtoint(edit1.text);
while i <= a do
begin
c:=c*b;
i:=i+1;
end;
edit3.text:=inttostr(c);
end;

procedure tform1.pangkat1(p,l:string);
var
a,b,i,c:integer;

begin
i:=1;
c:=1;
a:=strtoint(p);
b:=strtoint(l);
while i <= a do
begin
c:=c*b;
i:=i+1;
end;
edit3.Text:=inttostr(c);
end;

function tform1.pangkat2(p,l:string):string;
var
a,b,c,i:integer;
begin
i:=1;
c:=1;
a:=strtoint(p);
b:=strtoint(l);
while i <= a do
begin
c:=c*b;
i:=i+1;
end;
pangkat2:=inttostr(c);
end;

function tform1.pangkat3(m,n:integer):integer;
var
a,b,c,i:integer;
begin
i:=1;
c:=1;
while i <= n do
begin
c:=c*m;
i:=i+1;
end;
pangkat3:=c;
end;


procedure TForm1.btnpangkat2Click(Sender: TObject);
begin
pangkat1(edit2.Text,edit1.Text);
end;

procedure TForm1.btnpangkat3Click(Sender: TObject);
begin
edit3.Text:=pangkat2(edit2.Text,edit1.Text);
end;

procedure TForm1.btnpangkat4Click(Sender: TObject);
var
a,b,c:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=pangkat3(a,b);
edit3.Text:=inttostr(c);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EDIT1.CLEAR;
EDIT2.CLEAR;
EDIT3.CLEAR;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
CLOSE;
end;

end.

5. Terakhir coba jalankan program dengan tekan F9 atau klik tombol Run , apabila tidak ada pesan kesalahan maka program akan terlihat seperti di bawah ini :

6. Ketika program di coba untuk digunakan maka akan tampil seperti di bawah ini :

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Jika ada kesalahan Mohon maaf dan terima kasih sudah berkunjung 

Baca Selengkapnya »

Delphi : Program Deret Ganjil dan Minus

Nama           : ANDI KHOIRUDIN

Kelas           : 2-B SMT 2

Jurusan       : Teknik Informatika

STIMIK YADIKA BANGIL 2015

Membuat Program Sederhana 'Deret Ganjil dan Minus dengan DELPHI 

Langkah-langkahnya  : 

1. Buka Aplikasi Delphi 

2. Pilih Menu File --> New --> Form Delphi 

3. Kemudian Desain Propertiesnya :

Hingga seperti gambar di bawah ini : 

4.Kemudian Double Klik Button Proses dan Sisipkan script di bawah ini : 

procedure TForm1.Button1Click(Sender: TObject);
VAR
A, I, B, d, e: INTEGER;

BEGIN

A:=STRTOINT(EDIT1.Text);

I:=1;
D:=-1;
E:=-1;
WHILE I<= A DO
BEGIN

B:=E;
i:=i+2;

MEMO1.LINES.ADD(INTTOSTR(B));
D:=D*-1;
E:=D*I;

END;
end ;

5.Kemudian Double Klik Button Clear  dan Sisipkan script di bawah ini :

procedure TForm1.Button2Click(Sender: TObject);
begin
MEMO1.Clear;
end;

6.Kemudian Double Klik Button Close dan Sisipkan script di bawah ini :

procedure TForm1.Button3Click(Sender: TObject);
begin
CLOSE;
end;

7. Terakhir coba jalankan program dengan tekan F9 atau klik tombol Run , apabila tidak ada pesan kesalahan maka program akan terlihat seperti di bawah ini :

8. Ketika program di coba untuk digunakan maka akan tampil seperti di bawah ini :

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Jika ada kesalahan Mohon maaf dan terima kasih sudah berkunjung 

Baca Selengkapnya »

Delphi : Program Deret Aritmatika

Nama           : ANDI KHOIRUDIN

Kelas           : 2-B SMT 2

Jurusan       : Teknik Informatika

STIMIK YADIKA BANGIL 2015

Membuat Program Sederhana 'Deret Aritmatika sampai suku ke - n ' dengan DELPHI 

Langkah-langkahnya  : 

1. Buka Aplikasi Delphi 

2. Pilih Menu File --> New --> Form Delphi 

3. Kemudian Desain Propertiesnya : 

Hingga seperti gambar di bawah ini : 

4.Kemudian Double Klik Button Proses dan Sisipkan script di bawah ini : 

procedure TForm1.Button1Click(Sender: TObject);
VAR
A, I, B, d, e: INTEGER;

BEGIN

A:=STRTOINT(EDIT1.Text);

I:=1;
WHILE I<= A DO
BEGIN

B:=I;
i:=i+1;

MEMO1.LINES.ADD(INTTOSTR(B));

END;
end ;

5.Kemudian Double Klik Button Clear  dan Sisipkan script di bawah ini :

procedure TForm1.Button2Click(Sender: TObject);
begin
MEMO1.Clear;
end;

6.Kemudian Double Klik Button Close dan Sisipkan script di bawah ini :

procedure TForm1.Button3Click(Sender: TObject);
begin
CLOSE;
end;

7. Terakhir coba jalankan program dengan tekan F9 atau klik tombol Run , apabila tidak ada pesan kesalahan maka program akan terlihat seperti di bawah ini :

8. Ketika program di coba untuk digunakan maka akan tampil seperti di bawah ini :

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Jika ada kesalahan Mohon maaf dan terima kasih sudah berkunjung 

Baca Selengkapnya »

Delphi : Mengurutkan Data Metode Quick Sort

Nama           : ANDI KHOIRUDIN

Kelas           : 2-B SMT 2

Jurusan       : Teknik Informatika

STIMIK YADIKA BANGIL 2015

Membuat Program Sederhana ''Mengurutkan Data Metode Quick Sort dengan DELPHI 

Langkah-langkahnya  : 

1. Buka Aplikasi Delphi 

2. Pilih Menu File --> New --> Other --> Console Application 
3. Ketik atau Copykan script di bawah ini 

program Program_Rekursi_Mengurutkan_Data_Metode_Quick_Sort;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Type
TipeArray = string[200];
ArrayUrut = array[1..10000] of TipeArray;

procedure QuickSort(Var x : ArrayUrut;
          Bawah,atas:word);
var
   I, J   : word;
   Sementara : TipeArray;
 Begin
   While Atas > bawah Do
   begin
   I := Bawah;
   J := Atas;
   Sementara := X[Bawah];

   While I < J Do Begin
     While X[J] > Sementara Do J := J - 1;
     X[I] := X[J];
     While (I<J) And (X[I] <= Sementara) Do I := I + 1;
     X[J] := x[I];
   end;

   X[i] := Sementara;
   QuickSort(X, Bawah, I-1);
   Bawah := I + 1;
 end;
end;
Var
  Nama : ArrayUrut;
  N, I : word;
Begin
  writeln ('Nama      : Andi Khoirudin');
  writeln ('Kelas/NIM : 2B/114224042');
  writeln;
  writeln('>>> Program Rekursi Mengurutkan Data Metode Quick Sort <<<');
  writeln;
  Write('Masukkan Jumlah data yang akan diurutkan ?'); ReadLn(N);
  WriteLn;
  WriteLn('Masukkan data :');
  For I:=1 to N Do Begin
     Write('Data ke ',I,' ? '); ReadLn(Nama[I]);
 end;
 for i:= 1 to n do
 begin
 QuickSort(Nama,1,N);
 end;
 WriteLn;
 WriteLn('Data yang telah di urut :');
 WriteLn('-------------------------');
 For I := 1 To N Do
    WriteLn('  --->   ', Nama[I]);
  writeln;
  writeln;
  writeln;
  writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
readln;
 end.

4. Terakhir coba jalankan program dengan tekan F9 atau klik tombol Run , apabila tidak ada pesan kesalahan maka program akan terlihat seperti di bawah ini :

5. Ketika program di coba untuk digunakan maka akan tampil seperti di bawah ini :

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Jika ada kesalahan Mohon maaf dan terima kasih sudah berkunjung 

Baca Selengkapnya »