Deret Pola -1, 3, -5, 7, -9

Disini ratih akan memberi tahu bagaimana cara mencari rumus deret bilangan, bukan cara mencari suku ke-n. Oke tadi di awal ratih udah jelasin contoh-contoh barisan bilangan, nah di setiap barisan mempunyai rumusnya masing-masing untuk menemukan rumus itu ada dua cara yang bisa di kerjakan, pertama kamu bisa mencoba dan memikirkan bagaimana rumusnya yg memakan waktu cukup lama atau yang kedua kamu pake cara yang udah pasti kebenarannya Cuma kamu harus menghafal rumusnya aja tapi ingat cara ini hanya bisa dipakai di barisan bilangan yang memiliki pola. Nah kali ini ratih bakal nerangin bagaimana cara untuk membuat deret pola pada program delphi. Bagi yg butuh langsung liat aje dan bagi yang ada kesulitan matematika bisa langsung coment aja. Oke ga usah nungu lama langsung tengok kebawah aja masbro
Berikut scriptnya ......
unit deretpola;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c,i:integer;
begin
  a:=strtoint(Edit1.Text);
  Memo1.Clear;
  i:=-1;
  c:=-2;
  while i<=a do
  begin
    b:=i;
    Memo1.Lines.Add(inttostr(b));
    i:=(b+c)*-1;
    c:=c*-1; 
  end;
end;

end.

Tampilan script

 

Form

 

Hasil ketika di run