Program Deret Aritmatika

unit unitderet1a;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons, AppEvnts;

type
TForm1 = class(TForm)
StaticText1: TStaticText;
StaticText2: TStaticText;
StaticText3: TStaticText;
StaticText4: TStaticText;
StaticText5: TStaticText;
StaticText6: TStaticText;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
ListBox1: TListBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
Image1: TImage;
StaticText7: TStaticText;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var deret,beda,jmlgan,jmlgen,hasil,k:integer;
begin
deret:=strtoint(edit1.Text);
beda :=strtoint(edit2.Text);

for k:=1 to deret do
begin
hasil:=beda+((k-1)*beda);
listbox1.items.Add(inttostr(hasil));


if hasil mod 2 = 0 then
begin
jmlgen:=jmlgen + hasil;
end;
edit3.text:=inttostr(jmlgen);

if hasil mod 2 <> 0 then
begin
jmlgan:=jmlgan + hasil;
end;
edit4.Text:=inttostr(jmlgan);
end;
edit5.text:=inttostr(jmlgen+jmlgan);
end;


procedure TForm1.BitBtn2Click(Sender: TObject);
begin
edit1.text:=' ';
edit2.Text:=' ';
edit3.Text:=' ';
edit4.Text:=' ';
edit5.clear;
listbox1.clear;
edit1.setfocus;


end;

end.