Tugas Deret

Pada postingan sebelumnnya saya membuat program menghitung deret aritmetika bilangan sampai suku ke N apabila hasil dari program tersebut mau di buat menjadi -1, 3, -5, 7, -9 maka kita bisa menggunakan cara seperti dibawah ini.
caranya sama seperti pada postingan sebeumnya klik disini untuk melihat akan tetapi yang perlu kita rubah adalah scrip pada buttom proses di ganti dengan scrip seperti di bawah ini.

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*2) do
  begin
    b:=i;
    Memo1.Lines.Add(inttostr(b));
    i:=(b+c)*-1;
    c:=c*-1;
  end;
end;

Setelah scrip tersebut di ganti setelah itu langsung jalankan dengan tekan f9 atau klik run.

selamat mencoba :)