Source Code Program Deret

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,n,un:integer;
sn,x,p:real;
begin
memo1.Clear;
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
n:=StrToInt(Edit3.Text);
x:=n;
for n:=1 to n do
begin
un:=b*(n-1)+a;
memo1.lines.Add(inttostr(un));
p:=un;
end;
sn:=0.5 * x * (a + p);
memo1.lines.Add('Jumlah Sn = '+floattostr(sn));
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
begin
edit1.Text:=' ';
edit2.Text:=' ';
edit3.Text:=' ';
memo1.Clear;
end;

end;

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

end.

Posted in: