LATIHAN 1

1. Buat susunan tampilan seperti ini

2. Klik ganda Button HASIL dan tulis scriptnya seperti dibawah ini

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

gaji,tot,tunjangan:integer;

begin

gaji:=StrToInt(tGaji.Text);

if tGol.Text = 'A' then tunjangan:=10000;

if tGol.Text = 'B' then tunjangan:=20000;

if tGol.Text = 'C' then tunjangan:=30000;

Tunj.Caption := IntToStr (tunjangan);

tot:=Tunjangan+Gaji;

Total.Caption := IntToStr(Tot);

end;

end.

3. Program berhasil dijalankan