Struktur Data

Jumat, 19 Juni 2015

Materi Dasar

· Var digunakan untuk merubah Edit1: TEdit1; menjadi variabel nantinya atau Mendefinisikan sebuah variabel

· Integer untuk merubah tipe data bilangan bulat yang hanya mengenal bilangan decimal dan tidak dapat mengenal bilangan pecahan

· StrToInt digunakan untuk merubah tipe data string ke tipe data integer.

· IntToStr untuk merubah tipe data integer ke tipe data string.

· Caption untuk Membuat caption pada table

· End; untuk mengakhiri sebuah scrip namun masih ada lanjutannya

· End. Untuk mengakhiri sebuah scrip

· Begin untuk memulai suatu penulisan scrip pada program

· String Merupakan Tipe data yang isinya berupa Anumerik yang tidak dapat diberikan operator perhitungan karena bukan bersifat numerik value

· If untuk membuat pengandaian atau membuat pernyataan sesuai dengan kondisi

· For todo untuk membuat perulangan angka berurutan atau merupakan struktur pengulangan dimana aksi dilakukan sebanyak hitungan pencacah pengulangan atau for variable := nilai_awal to nilai_akhir do pernyataan

· For downto do for variable := nilai_awal downto nilai_akhir do pernyataan

· While do memasukan fungsi pada awal program

· Repeat until untuk membuat program menjadi perulangan atau struktu pengulangan dimana aksi dilakukan hingga kondisi ( persyaratan ) berhenti terpenuhi.

· While I do struktur pengulangan dimana selama kondisi ( persyaratan ) pengulangan masih benar, maka aksi dikerjakan

Real = untuk bilangan campuran desimal

Tanda petik (‘ ‘) setelah write = digunakan untuk menulis teks (apa adanya)

Writeln = untuk mencetak hasil (output)

Readln = untuk mencetak / (meng-input) nilai konstanta

Luas : 10 : 1 = angka 1 adalah untuk mengatur banyaknya angka dibelekang koma, itu dikarenakan kita menggunakan kode real pada luas

Tanda titik koma (;) adalah untuk meng-akhiri sebuah program

Latihan 6

Senin, 08 Juni 2015

Latihan 5

1. Buatlah tampilan seperti dibawah ini!

2. Buat Kode Program!

Tulis script pada form unit1.pas seperti dibawah ini.

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;

Label4: TLabel;

Button1: TButton;

procedure btnPANGKAT1Click(Sender: TObject);

procedure btnPANGKAT2Click(Sender: TObject);

procedure btnPANGKAT3Click(Sender: TObject);

procedure btnPANGKAT4Click(Sender: TObject);

procedure Button1Click(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}

Klik ganda button PANGKAT1 dan tulis script ini :

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,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;

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

c,i:integer;

begin

i:=1;

c:=1;

while i<=n do

begin

c:=c*m;

i:=i+1;

end;

pangkat3:=c;

end;

Klik ganda button PANGKAT2 dan tulis script ini :

procedure TForm1.btnPANGKAT2Click(Sender: TObject);

begin

pangkat1(edit2.Text,edit1.Text);

end;

Klik ganda button PANGKAT3 dan tulis script ini :

procedure TForm1.btnPANGKAT3Click(Sender: TObject);

begin

edit3.Text:=pangkat2(edit2.Text,edit1.Text);

end;

Klik ganda button PANGKAT4 dan tulis script ini :

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;

Klik ganda button CLOSE dan tulis script ini :

procedure TForm1.Button1Click(Sender: TObject);

begin

CLOSE;

end;

end.

3. Tampilkan hasilnya dengan klik tombol Running!

Ketikkan angka pada kolom BILANGAN. Misalnya angka 4, lalu masukkan PANGKAT 1. Untuk melihat hasilnya, klik button PANGKAT1. Coba hingga PANGKAT4 dengan cara yang sama.

Klik Button CLOSE untuk keluar dari aplikasi.

Latihan 4

1. Buatlah tampilan program seperti dibawah ini

2. Buat Kode Program!

a. Klik ganda Button PROSES, lalu tuliskan script dibawah ini.

procedure TForm1.btnProsesClick(Sender: TObject);
var
a,i,c,b:integer;
begin
a:=strtoint(Edit1.text);
Memo1.Clear;
i:=-1;
c:=-2;
while i<=a do
begin
b:=i;
Memo1.Lines.Add(inttostr(b));
i:=(b+c)*-1;
c:=c*-1;
end;
end;

end.

b. Klik ganda Button TUTUP, lalu tuliskan script dibawah ini.

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

end.

3. Jalankan aplikasi!

Masukkan angka 10

Klik PROSES, dan muncullah deretan angka dengan pola -1, 3, -5, 7, -9

Klik TUTUP untuk mengakhiri program

Latihan 3

Latihan 2

Buat aplikasi dengan tampilan sebagai berikut!

2. Ubah properti dari object inspector!

3. Buat kode Program!

a. Klik ganda Button INPUT

procedure TForm1.Button1Click(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]);
Edit1.text:=inttostr(LBData.Items.count);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
LBData.Clear;
Edit1.text:='';
end;

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

end.

b. Klik ganda Button CLEAR

procedure TForm1.Button2Click(Sender: TObject);
begin
LBData.Clear;
Edit1.text:='';
end;

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

end.

c. Klik ganda Button CLOSE