Program deret bilangan pada program delphi

Salam Statistika!!!! Di laman ini anda akan disajikan beberapa hasil keringat saya dan hasil ketidaktiduran saya untuk mengerjankan tugas...

Deskripsi Program

Program ini adalah program perhitungan deret aritmetika dan geometri. Program ini menghitung bilangan suku ke-n yang ingin diketahui, barisan dari suku pertama hingga suku ke-n, dan jumlah deret yang dihasilkan. Program ini menggunakan logika perulangan dan logika percabangan. Logika percabangan yang dipakai adalah case-of pada penentuan perhitungan deret aritmetika atau geometri dan if-then pada penentuan rumus jumlah deret geometri berdasarkan rasionya. Logika perulangan yang dipakai adalah for-to-do pada penulisan deret bilangan dalam listbox. Program ini dibuat dengan menggunakan Delphi 7. Komponen yang digunakan pada program ini adalah  ListBox (1), button (3), edit (3), dan label (8).

1. Interface program

2. Kemudian klik pada proses button dan ketikkan teks di bawah ini :

unit deret;

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,i,b:integer;
begin
  a:=strtoint(Edit1.Text);
  Memo1.Clear;
  i:=1;
  while i<=a do
  begin
    b:=i;
    Memo1.Lines.Add(inttostr(b));
    i:=i+1;
  end;
end;

end.
3. setelah mari kita coba jalankan program tersebut

Hasil ketika di run

Oke, uah dulu yah postingan ratih kali ini, semoga bermanfaat guys...:)