Delphi 7

Berikut cara membuat program untuk menghitung penjumlahan deret dengan rumus d=a+b/c, dengan menggunakan function-faktorial. nilai a, b ,c adalah hasil penjumlahan deret 1+2+3 . . .
nilai a, b, c minimal 1
contoh
jika :
a=3, b=5, c=6
maka :
a=1+2+3=6
b=1+2+3+4+5=15
c=1+2+3+4+5+6=21

d = 6+15/21
d =. . .

berikut langkah-langkahnya.
pertama buat dulu interface program seperti gambar dibawah ini. kemudian klik 2 kali button 'PROSES' selanjutnya lihat gambar Listing Program 1 dan 2.

tulis Listing Program seperti gambar dibawah ini.

Listing Program1

Listing Program 2

Listing Program 3

rumus program :
-----------------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
  DA,DB,DC,A,B,C:integer;
  D:real;
begin
  A:=strtoint(Edit1.Text);
  B:=strtoint(Edit2.Text);
  
  C:=strtoint(Edit3.Text);
  DA:=deret(A);
  DB:=deret(B);
  DC:=deret(C);
  D:=(DA+DB)/DC;
  Edit4.Text:=floattostr(D);
end;
-----------------------------------------------------------------------------------------

Running Program

Gambar 1 menunjukkan awal program yang sedang berjalan, gambar 2 menunjukkan angka telah dimasukkan dan gambar 3 menunjukkan tombol 'PROSES' sedang dijalankan.



_________________________________________________________________________________

Dan berikut ini adalah program yang sama dengan rumus yang berbeda yaitu menggunakan Function dan berpangkat jadi hasilnya pun akan berbeda.

berikut tampilan programnya.

interface

Listing Program 1

Listing Program 2

Perbedaannya terletak disini :
-------------------------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
  A2,B3,C3,A,B,C:integer;
  D:real;
begin
  A:=strtoint(txtA.Text);
  B:=strtoint(txtB.Text);
  C:=strtoint(txtC.Text);
  A2:=pangkat(A,2);           -------> nilai 'A' berpangkat 2
  B3:=pangkat(B,3);           -------> nilai 'B' berpangkat 3
  C3:=pangkat(C,3);           -------> nilai 'C' berpangkat 3
  D:=(A2+B3)/C3;
  txtD.Text:=floattostr(D);

end;
-------------------------------------------------------------------------------------------------

Function Pangkat(m,n:integer):integer;
m mewakili bilangan bernilai integer/bilangan bulat
n mewakili pangkat bernilai integer/bilangan bulat
sedangkan Function Pangkat adalah hasil perpangkatan itu sendiri yang bernilai integer/bilangan bulat

Setelah selesai, jalankan program dengan tekan "F9" dan running program berjalan seperti gambar dibawah ini.

Running Program

Gambar 1 menunjukkan awal program yang sedang berjalan, gambar 2 menunjukkan  kotak a, b, dan c diisi dengan angka masing-masing 2 dan gambar 3 menunjukkan button 'PROSES' menghasilkan keluaran d menjadi 1,5