BAB 8

BAB VII.PROSES PENGULANGAN DENGAN FOR

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
type
 TForm1 = class(TForm)
 Label1: TLabel;
 Label2: TLabel;
 Label3: TLabel;
 Label4: TLabel;
 Label5: TLabel;
 Label6: TLabel;
 Label7: TLabel;
 TPOSISI: TEdit;
 TS: TEdit;
 CMULAI: TButton;
 CSELESAI: TButton;
 procedure CMULAIClick(Sender: TObject);
 procedure FormCreate(Sender: TObject);
 procedure CSELESAIClick(Sender: TObject);
 procedure TPOSISIChange(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CMULAIClick(Sender: TObject);
begin
 tposisi.text:=' ';
 ts.text:=' ';
 tposisi.SetFocus;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 ts.enabled:=false;
 ts.color:=clbtnface;
end;
procedure TForm1.CSELESAIClick(Sender: TObject);
begin
 Application.Terminate;
end;
procedure TForm1.TPOSISIChange(Sender: TObject);
var
 tsem, a, ss, i, f, sposisi: integer;
 tss: string[30];
begin
 val(tposisi.text,sposisi,tsem);
 if sposisi<1
 then
 ss:=0
 else
 if sposisi=1
 then
 ss:=1
 else
 begin
 a:=2;
 ss:=1;
 f:=2;
 for i:=2 to sposisi
 do
 begin
 f:=f*a;
 ss:=ss+(f-1);
 end;
 end;
 str(ss:30,tss);
 ts.text:=tss;
end;
end.

Hasil Program: