Nama : sukur laa
kelas :2C
NIM :113223093
jurusan teknik informatika
blogger : www.ilawelaploy.blogspot.com
Array
unit Unit1;kelas :2C
NIM :113223093
jurusan teknik informatika
blogger : www.ilawelaploy.blogspot.com
Array
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.
0 komentar:
Posting Komentar