0 Membuat Program Deret Aritmatika dan Geometri dengan Delphi

Buat temen-temen masih ingatkah dengan yang namanya deret Aritmatika dan juga Geometri?? yaph..pasti temen-temen udah males banget kalau denger istilah Matematika (*males mikir).. ckckk.. nah disini saya akan mencoba membuat tutorial program yang bisa menghitung cepat deret aritmatika dan geometri tanpa perlu mikir-mikir...praktik'in juga okkey..

Didefinisikan deret aritmatika sbb:

                      u_i = u_i-1 + b, dengan i = 1, 2, 3, ..., n
                      b adalah beda antara suku

Didefinisikan deret geometri sbb:

                     u_i = u_i-1 * r, dengan i = 1, 2, 3, ..., n
                     r adalah rasio antar suku

Pertama: Design Form dan juga komponen'nya okke..

Dari form kosong, sisipkan komponen PAGE CONTROL (ada di dalam pallete WIN 32) dan atur lebar dan panjangnya.

Untuk membuat TAB SHEET, caranya klik kanan pada PAGE CONTROL, pilih NEW PAGE
Tab Deret Aritmatika

Nama Komponen	Properties	Value
Tabsheet1	Caption	Deret Aritmatika
Label1	Caption	Suku Awal
Label2	Caption	Beda
Label3	Caption	Jumlah Suku
Edit1	Name	ESukuA
.	Text	[kosongkan]
Edit2	Name	EBedaA
.	Text	[kosongkan]
Edit3	Name	EJmlA
.	Text	[kosongkan]
Button1	Caption	Hitung
Button2	Caption	CLEAR
Memo1	Lines	[kosongkan]
.	Name	MemoA
.	ReadOnly	True
.	Scrollbars	ssVertical

Tab Geo

Nama Komponen	Properties	Value
Tabsheet1	Caption	Deret Aritmatika
Label4	Caption	Suku Awal
Label5	Caption	Rasio
Label6	Caption	Jumlah Suku
Edit4	Name	ESukuG
.	Text	[kosongkan]
Edit5	Name	ERasio
.	Text	[kosongkan]
Edit6	Name	EJmlG
.	Text	[kosongkan]
Button3	Caption	Hitung
Button4	Caption	CLEAR
Memo1	Lines	[kosongkan]
.	Name	MemoA
.	ReadOnly	True
.	Scrollbars	ssVertical

nah langsung aja ya ke scriptnya..

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    ESukuA: TEdit;
    Label2: TLabel;
    EBedaA: TEdit;
    Label3: TLabel;
    EJmlA: TEdit;
    TabSheet2: TTabSheet;
    BHitungA: TButton;
    BClearA: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    ESukuG: TEdit;
    ERasio: TEdit;
    EJmlG: TEdit;
    BHitungG: TButton;
    BClearG: TButton;
    MemoA: TMemo;
    MemoG: TMemo;
    Label7: TLabel;
    procedure BHitungAClick(Sender: TObject);
    procedure BClearAClick(Sender: TObject);
    procedure BHitungGClick(Sender: TObject);
    procedure BClearGClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BHitungAClick(Sender: TObject);
var i, n, x, b : integer;
begin
MemoA.Clear;
n := strtoint(EJmlA.Text);
x := strtoint(ESukuA.text);
b := strtoint(EBedaA.text);
if n > 0 then
begin
for i:=1 to n do
begin
MemoA.Lines.Add(format('Suku ke-%3d : %4d',[i,x]));
x := x + b;
end;
end
else
begin
if messagedlg('Jmlh suku harus positif',mtwarning,[mbOK,
mbcancel],0) = mrOK then EJmlA.SetFocus
else
begin
messagedlg('Lho kok malah dicancel!!! Ayo ganti dulu',mtwarning,[mbOK],0);
EJmlA.SetFocus;
end;
end;
end;

procedure TForm1.BClearAClick(Sender: TObject);
begin
     ESukuA.Clear;
     EBedaA.Clear;
     EJmlA.Clear;
     MemoA.Clear;
end;

procedure TForm1.BHitungGClick(Sender: TObject);
var i, n, x, r : integer;
begin
MemoG.Clear;
n := strtoint(EJmlG.Text);
x := strtoint(ESukuG.text);
r := strtoint(ERasio.text);
if n > 0 then
begin
for i:=1 to n do
begin
MemoG.Lines.Add(format('Suku ke-%3d : %4d',[i,x]));
x := x * r;
end;
end
else
begin
if messagedlg('Jmlh suku harus positif',mtwarning,[mbOK,
mbcancel],0) = mrOK then EJmlA.SetFocus
else
begin
messagedlg('Lho kok malah dicancel!!! Ayo ganti dulu',mtwarning,[mbOK],0);
EJmlA.SetFocus;
end;
end;

end;

procedure TForm1.BClearGClick(Sender: TObject);
begin
      ESukuG.Clear;
      EJmlG.Clear;
      ERasio.Clear;
      MemoG.Clear;
end;

end.

coba dan lihat hasilnya.. (^^")

BACA JUGA!!