BAB 2

BAB II. PROSES PENCABANGAN IF SATU PERNYATAAN

I. ALGORITMA
   Output('Lama Menginap')
    Input(TLM)
   Output('Harga Kamar/Hari')
    Input(THK)
   Tjumlah ← TLM*THK
   If Tjumlah >=100000 then
                    TDIS ← Tjumlah * 0.1
   Else
          TDIS ← 0
Endif
          Tbayar ← Tjumlah - TDIS
          Output(TDIS)
          Output(Tjumlah)
          Output(TBAYAR)

II. LISTING PROGRAM LENGKAP
   Unit Prak2;
   Interface
   Uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs ,
           StdCtrls;
       Type
           TForm1 = class(TForm)
           Label1 : Tlabel;
           Label2 : Tlabel;
           Label3 : Tlabel;
           TLM : TEdit;
           THK : TEdit;
           TJUMLAH : TEdit;
           CMULAI : TButton;
           CSELESAI : TButton;
           Label4 : Tlabel;

           Label5 : Tlabel;

           Label6 : Tlabel;

          TDIS : TEdit;
          TBAYAR : TEdit;
          Procedure CMULAIClick (sender : Tobject);
          Procedure CSELESAIClick (sender : TObject);

          Procedure FormCreate (sender : TObject);

          Procedure THKChange (sender : TObject);

          Procedure TLMChange (sender : TObject);

Private

   { Private declarations }

Public

   { Public declarations }

end;

var

 Form1 : Form1;

implementation

{ $R *. DFM}

procedure TForm1.CMULAIClick (sender : Tobject);

begin

  TLM.Text :=' ';

  THK.Text :=' ';

  TJUMLAH.Text :=' ';

  TDIS.Text :=' ';

  TBAYAR.Text :=' ';

  TLM.setfocus;

end;

procedure TForm1.CSELESAIClick (sender : Tobject);

begin

    Application.Terminate;

end;

procedure TForm1.FormCreate (sender : Tobject);

begin

  Tjumlah.enabled := False;

  Tjumlah.color := clbtnface;

  Tdis.enabled := False;

  Tdis.color := clbtnface;

  Tbayar.enabled := False;

  Tbayar.color := clbtnface;

end;

procedure TForm1 . THKChange (sender : Tobject);

var

 Sjml, Sbyr, Sds : string[30];

 Tsem : integer;

 Slm, Shk, Sjumlah, Sdis, Sbayar : single;

begin

 Val(Tlm.text, Slm, Tsem);

 Val(Thk,text, Shk,Tsem);

 Sjumlah := Slm*Shk

 Str (Sjumlah : 30 : 0,Sjml);

 Tjumlah.text := Sjml;

 if Sjumlah >= 100000

     then

    Sdis := Sjumlah*0,1

 else

    Sdis :=0;

Sbayar := Sjumlah-Sdis;

Str(Sbayar:30:0, Sbyr);

Str(Sdis:30:0, Sbyr);

Tdis.text := Sds;

Tbayar.text := Sbyr;

end;

procedure TForm1.TLMChange(sender : Tobject);

var

   Sjml, Sbyr, Sds : string[30];

   Tsem : integer;

   Slm, Shk, Sjumlah, Sdis, Sbayar : single;

begin

  Val(Tlm.text, Slm, Tsem);

  Val(Thk.text, Shk, Tsem);

  Sjumlah := Slm*Shk;

  Str(Sjumlah:30:0, Sjml);

  Tjumlah.text := Sjml;

if sjumlah >= 100000

   then

     Sdis := Sjumlah*0.1

   else

     Sdis := 0;

Sbayar := Sjumlah - Sdis;

Str(Sbayar:30:0,Sbyr);

Str(Sdis:30:0, Sds);

Tdis.text :=Sds;

Tbayar.text := Sbyr;

end;

end.

*HASIL RUN*