Assalamu'alaikum Wr Wb
Ketemu lagi bersama saya. Kali ini saya akan membagikan program aplikasi Barisan Fibonacci, tentunya menggunakan Delphi. Perhatikan Gambar berikut.
Jadi, seperti biasa aturlah atribut seperti di atas. Ingat, pakai ListBox ya bukan Memo. Langsung aja ke sintaksis.
Langkah 1.
Buatkan deklarasi function di private.
private
{ Private
declarations }
function FiboIterasi(const
pInput: Integer): Double;
Langkah 2.
Buatkan functionnya di bawah implementation
implementation
{$R *.dfm}
function TForm1.FiboIterasi(const pInput:
Integer): Double;
var
i:Integer;
a,
b, total,hasil : Double;
begin
//
Inisialisasi variabel
hasil:= 0;
a :=
1;
b
:= 0;
total:=a+1;
//
mulai iterasi
for
i:=1 to pInput do
begin
hasil := a+b;
a
:= b;
b
:= hasil;
total:=b;
end;
for
i:=0 to listbox1.Items.Count-1 do
total:=total+strtofloat(listbox1.Items.Strings[i]);
edit5.text:=floattostr(total);
//
kembalikan hasil ke pemanggil
Result := hasil;
end;
Langkah 3.
Ketikkan sintaksis di tombol Hitung (Kalkulator) tanpa array (sebelah kiri)
//Tombol Proses Tanpa Array
procedure TForm1.BitBtn1Click(Sender:
TObject);
var i,input,total : integer;
begin
listbox1.Clear;
try
if
trim(edit1.Text) <> '' then
input:=strtoint(trim(edit1.Text))
else
input:=-1;
except
exit;
end;
if input <= 0 then
begin
messagedlg('Maaf, Inputan Salah',mtError,[MbOK],0);
exit;
end;
if input >= 1001 then
begin
messagebox(self.Handle,'Maaf, n <= 1000 saja','Peringatan',MB_OK +
MB_ICONWARNING);
edit1.Clear;
edit1.SetFocus;
exit;
end;
for i:=1 to input do
listbox1.Items.Add(floattostr(fiboIterasi(i)));
end;
Langkah 4.
Ketikkan sintaksis di tombol Hitung (Kalkulator) pakai array (sebelah kanan)
Var
i:integer;
a,b,c,z
: longint;
total:real;
deret: array[1..100] of integer;
begin
listbox2.Clear;
total:=0;
if (edit2.Text = '') or (edit3.Text = '')
or (edit4.Text = '') then
begin
messagedlg('Maaf, Anda belum input nilai',mtError,[mbOk],0);
edit2.SetFocus;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end
else
begin
try
a:=strtoint(edit2.Text);
b:=strtoint(edit3.Text);
c:=strtoint(edit4.Text);
deret[1]:=a;
deret[2]:=b;
listbox2.Items.Add(inttostr(a));
listbox2.Items.Add(inttostr(b));
for z:=3 to c do
begin
deret[z]:=deret[z-1]+deret[z-2];
listbox2.Items.Add(inttostr(deret[z]));
end;
except
exit;
end;
for i:=0 to listbox2.Items.Count-1 do
total:=total+strtofloat(listbox2.Items.Strings[i]);
edit6.text:=floattostr(total);
end;
end;
OK, mungkin itu saja dulu. Sampai ketemu lagi ya. Download programnya disini.
Wassalamu'alaikum Wr Wb.
No comments:
Write komentar