BAB 3

BAB III. PROSES PENCABANGAN IF BEBERAPA PERNYATAAN

I. ALGORITMA
   Output ('Lama Menginap');
   Input (TLM)
   Output ('Harga Kamar/Hari);
   Input(THK)
   Tjumlah ← TLM*THK
   If TJUMLAH >= 100000 then
                        TKDIS ← 'DAPAT DISKON'
                        TDIS ← TJUMLAH*0.1
   else
                         TKDIS ← 'TAK DISKON'
                         TDIS ← 0
Endif
   TBAYAR ← TJUMLAH - TDIS
   Output(TDIS)
   Output(TJUMLAH)
   Output(TKDIS)
   Output(TBAYAR)


II. LISTING PROGRAM LENGKAP
Unit Prak3;
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;
    THK : TEdit;
    CMULAI : TButton;
    CSELESAI : TButton;
    Label4 : Tlabel;
    Label5 : Tlabel;
    Label6 : Tlabel;
    TDIS : TEdit;
    TBAYAR : TEdit;
    Label7 : Tlabel;
    TKDIS : TEdit;
    procedure CMULAIClick (sender : Tobject);
    procedure CSELESAIClick (sender : Tobject);
    procedure FormCreate (sender : Tobject);
    procedure THKChange (sender : Tobject);
    procedure TLMChange (sender : object);
private
   { private declarations }
public
  { public declarations }
end;
var
 Form1 : TForm1;
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 : Tobejct);
begin
   Application.Terminate;
end;
procedure TForm1.FormCreate (sender : Tobject);
begin
  Tjumlah.enabled := False;
  Tjumlah.color := clbtnface;
  Tkdis.enabled := False;
  Tkdis.color := clbtnface;
  Tdis.enabled := false;
  Tdis.color := clbtnface;
  Tbayar.enabled := false;
  Tbayar.color := clbtnface;
end;
procedure RForm1.THKChange (sender : Tobject);
var
 Sjml, Sbyr, Sds, Skdis : 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
   begin
   Sdis := Sjumlah*0.1;
   Skdis := ' DAPAT DISKON';
   end
else
begin
  Sdis := 0;
  Skdis := 'TAK DISKON';
end;
Tkdis.text := Skdis;
Sbayar := Sjumlah-Sdis;
Str(Sbayar:30:0, Sbyr);
str(Sdis:30:0, Sds);
Tdis.text :=sds;
Tbyar.text := Sbyr;
end;
procedure TForm1.TLMChange (sender : Tobject);
Var
 Sjml, Sbyr, Sds, Skdis :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
begin
  Sdis := Sjumlah*0.1;
  Skdis := ' DAPAT DISKON';
end
else
begin
Sdis := 0;
Skdis := "TAK DISKON';
end;
TKDIS.text := Skdis;
Sbayar := Sjumlah - Sdis;
str(sbayar:30:0,sbyr);
str(sdis:30:0, sds);
Tdis.text := sds;
Tbayar.text :=sbyr;
end;
end.
*HASIL PROGRAM*