BAB 9

BAB IX. PROSES PENGULANGAN DENGAN REPEAT UNTIL

unit prak9;
interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Form, Dialogs,
  stdCtrls;

type
TForm1 : class(TForm)
   Label1 : Tlabel;
   Label2 : Tlabel;
   TPOSISI : TEdit;
   Label3 : Tlabel;
   Label4 : Tlabel;
   Label5 : Tlabel;
   Label6 : Tlabel;
   Ts : TEdit;
   Label7 : Tlabel;
   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 }
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;
I:=1;
repeat
F:=F*A;
Ss:+SS+(F-1);
I:=I+1;
until I=Sposisi
end;
str(Ss:30,Tss);
Ts.text:=Tss;
end;
end.
 Hasil Program: