PROGRAM UAS,,ARRAY,FUNCTION,QUICKSORT,PROCEDURE

    Nama : sukur laa
 kelas :2C
NIM :113223093
jurusan teknik informatika 
blogger : www.ilawelaploy.blogspot.com

                                                                    
Array

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    edt1: TEdit;
    lbl1: TLabel;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    LBData: TListBox;
    lbl2: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
  var i:Integer;
  nama1,nama2:array[1..5] of string;
  S:string;
begin
  s:=InputBox('Input Data','Masukkan Jumlah Data:','0');
for i:=1 to StrToInt(s) do
  begin
    nama1[i]:=InputBox('Data ke:'+inttostr(i),'Nama awal','');
    nama2[i]:=InputBox('Data ke:'+inttostr(i),'Nama belakang','');
    LBData.Items.Add(nama1[i]+ ' ' +nama2[i]);
    edt1.Text :=IntToStr(LBData.Items.Count);
  end;
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
  LBData.Clear;
  edt1.Text:='';
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
  Close;
end;
end.




Array merupakan tipe data struktur yang berfungsi untuk menyimpan sejumlah data yang bertipe sama,bagian yang menyusun array di sebut elemen array,mencari kesamaan data,



function
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    btnPangkat1: TButton;
    btnPangkat2: TButton;
    btnPangkat3: TButton;
    btnPangkat4: TButton;
    procedure btnPangkat1Click(Sender: TObject);
    procedure btnPangkat2Click(Sender: TObject);
    procedure btnPangkat3Click(Sender: TObject);
    procedure btnPangkat4Click(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; c:Integer;

implementation

{$R *.dfm}

procedure TForm1.btnPangkat1Click(Sender: TObject);
var
  a,b,c,i: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: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,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,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;

end.

function adalah suatu kumpulan intruksi yang di kelompokan menjadi satu,perpangkatan.





quicksort: fungsih quicksort adal untuk mencari hasil data dari data yang terbesar menjadi data yang terkecil,ataw urutan data.

dibawa ini adalah program quicksort

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ListBox1: TListBox;
    ListBox2: TListBox;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    data: array of Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

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 TForm1.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 TForm1.Button2Click(Sender: TObject);
var
  indek:Word;
begin
  //menentukan panjang array
  SetLength(data,ListBox1.Items.Count);
  //pemasukkan 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 TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;

end.

prosedure,,,

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    btnPangkat1: TButton;
    btnPangkat2: TButton;
    btnPangkat3: TButton;
    btnPangkat4: TButton;
    procedure btnPangkat1Click(Sender: TObject);
    procedure btnPangkat2Click(Sender: TObject);
    procedure btnPangkat3Click(Sender: TObject);
    procedure btnPangkat4Click(Sender: TObject);
    procedure FormCreate(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; c:Integer;

implementation

{$R *.dfm}

procedure TForm1.btnPangkat1Click(Sender: TObject);
var
  a,b,c,i: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: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,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,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.FormCreate(Sender: TObject);
begin

end;

end.

ProcedureProsedur adalah suatu program terpisah dan berdiri dalam suatu blok program dan befungsi sebagai sebuah sub program (program bagian). Penulisan prosedur diawali dengan kata Procedure pada bagian deklarasi program dan cukup menuliskan nama prosedur yang dibuat pada bagian Implementasi.