Tugas Deret kedua

Program membuat deret
1.    Buatlah aplication seperti di bawah ini.

2.    Selanjutnya edit object inspector seperti di bawah ini.

 3.    Setelah itu double klik pada proses dan tulis scrip di bawah ini.

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;

4.    Setelah itu double klik pada proses dan tulis scrip di bawah ini.

begin
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
end;
end.

5.    Setelah itu klik run

selamat mencoba.