TUGAS DERET

sebelumnya saya minta maaf karna saya lupa tugas deret tinggal 1 , tapi kali ini saya akan share mengenai tugas deret tersebut

listing 1

berikut skripnya supaya lebih jelas:

• unit deret;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label4: TLabel;

    Edit4: TEdit;

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

    function deret(x:integer):integer;

  end;

var

  Form1: TForm1;

  hasil:integer;

  D:real;

implementation

{$R *.dfm}

function TForm1.deret(x:integer):integer;

var

  i:integer;

begin

  i:=1;

  hasil:=0;

  while i<=x do

  begin

    hasil:=hasil+i;

    i:=i+1;

  end;

  deret:=hasil;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

  DA,DB,DC,A,B,C:integer;

begin

  A:=strtoint(Edit1.Text);

  B:=strtoint(Edit2.Text);

  C:=strtoint(Edit3.Text);

  DA:=deret(A);

  DB:=deret(B);

  DC:=deret(C);

  D:=(DA+DB)/DC;

  Edit4.Text:=floattostr(D);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  Edit1.Text:='';

  Edit2.Text:='';

  Edit3.Text:='';

  Edit4.Text:='';

end;

end.

setelah semua skrip diketik langkah selanjutnyya yaitu menyimpan file tersebut dengan cara File > Save/Save As atau tekan tombol Ctrl+S.

kemudian kia running dengan tekan F9

running 1

kemudian setelah muncul gambar di atas kita bisa memasukkan angka yang kita inginkan 

running 2

>>>Terima Kasih<<<

>>>>Selamat Mencoba<<<<