TUGAS 5 (DERET - FUNCTION - FAKTORIAL)

Form

dengan menggunakan function, buat program untuk menghitung penjumlahan deret dengan ketentuan :

- nilai A, B, C adal

ah hasil penjumlahan deret 1+2+3...sampai nilai A, B, C (faktorial)

- nilai A, B, C minimal 1

Untuk kriteria form sebagai berikut :

Items	Name	Caption	Text
Label1	Label1	Deret A	-
Label2	Label2	Deret B	-
Label3	Label3	Deret C	-
Label4	Label4	Jumlah D	-
Button1	Button1	PROSES	-
Button2	Button2	CLEAR	-
Edit1	Edit1	-	{kosongkan}
Edit2	Edit2	-	{kosongkan}
Edit3	Edit3	-	{kosongkan}
Edit4	Edit4	-	{kosongkan}

Untuk pengetikan listing program :

double-klik pada tombol PROSES

procedure TForm1.Button1Click(Sender: TObject);

var

  DA,DB,DC,A,B,C:integer;

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;

double-klik pada tombol CLEAR

procedure TForm1.Button2Click(Sender: TObject);

begin

  txtA.Text:='';

  txtB.Text:='';

  txtC.Text:='';

  txtD.Text:='';

end;

setelah pengetikan listing program, lakukan penyimpanan :

·         Save as : untuk menyimpan editor

·         Save Project As : untuk menyimpan project

Kemudian lakukan pengujian aplikasi dengan menekan tombol fungsi F9.

<contoh program dan script lengkap lihat disini>

{CAUTION!!!}

ð  penyimpanan editor dengan project harus berbeda nama! Misalnya editor = latihan, maka project = latihan1

ð  nama penyimpanan tidak boleh menggunakan kata yang terdapat pada listing program. Seperti procedure, function, public, private dan lain-lain.