Operator Aritmatika, Logika dan Perbandingan

Nama : silvia natalia
Nim: 12123838
Kelas : 12.4C.06

Codding:

procedure TF_Operator.btntambahClick(Sender: TObject);
var
nilai1,nilai2:integer;
hasil: real;
begin
nilai1:= StrToInt(e_nilai1.Text);
nilai2:= StrToInt(e_nilai2.Text);
hasil:= nilai1+nilai2;
e_hasil.Text:= FloatToStr(hasil);
end;

procedure TF_Operator.btnkurangClick(Sender: TObject);
var
nilai1,nilai2:integer;
hasil: real;
begin
nilai1:= StrToInt(e_nilai1.Text);
nilai2:= StrToInt(e_nilai2.Text);
hasil:= nilai1-nilai2;
e_hasil.Text:= FloatToStr(hasil);
end;

procedure TF_Operator.btnkaliClick(Sender: TObject);
var
nilai1,nilai2:integer;
hasil: real;
begin
nilai1:= StrToInt(e_nilai1.Text);
nilai2:= StrToInt(e_nilai2.Text);
hasil:= nilai1*nilai2;
e_hasil.Text:= FloatToStr(hasil);
end;

procedure TF_Operator.btnbagiClick(Sender: TObject);
var
nilai1,nilai2:integer;
hasil: real;
begin
nilai1:= StrToInt(e_nilai1.Text);
nilai2:= StrToInt(e_nilai2.Text);
hasil:= nilai1/nilai2;
e_hasil.Text:= FloatToStr(hasil);
end;

procedure TF_Operator.btnandClick(Sender: TObject);
var
n1, n2: integer;
n3: boolean;
begin
n1:= StrToInt (e_nilai1.Text);
n2:= StrToInt (e_nilai2.Text);
n3:= (n1>n2)AND(n1>5);
e_hasil.Text:= BoolToStr(n3);
end;

procedure TF_Operator.btnorClick(Sender: TObject);
var
n1, n2: integer;
n3: boolean;
begin
n1:= StrToInt (e_nilai1.Text);
n2:= StrToInt (e_nilai2.Text);
n3:= (n1>n2)OR(n1>5);
e_hasil.Text:= BoolToStr(n3);
end;

procedure TF_Operator.btnxorClick(Sender: TObject);
var
n1, n2: integer;
n3: boolean;
begin
n1:= StrToInt (e_nilai1.Text);
n2:= StrToInt (e_nilai2.Text);
n3:= (n1>n2)XOR(n1>5);
e_hasil.Text:= BoolToStr(n3);
end;

procedure TF_Operator.btnkurangdariClick(Sender: TObject);
var
n1, n2: integer;
n3: boolean;
begin
n1:=strtoint(e_nilai1.Text);
n2:=strtoint(e_nilai2.Text);
n3:= n1<n2;
e_hasil.Text:=booltostr(n3);
end;
procedure TF_Operator.btnsamadenganClick(Sender: TObject);
var
n1, n2: integer;
n3: boolean;
begin
n1:=strtoint(e_nilai1.Text);
n2:=strtoint(e_nilai2.Text);
n3:= n1=n2;
e_hasil.Text:=booltostr(n3);
end;

procedure TF_Operator.btntidaksamaClick(Sender: TObject);
var
n1, n2: integer;
n3: boolean;
begin
n1:=strtoint(e_nilai1.Text);
n2:=strtoint(e_nilai2.Text);
n3:= n1<>n2;
e_hasil.Text:=booltostr(n3);
end;

procedure TF_Operator.btnclearClick(Sender: TObject);
begin
e_nilai1.text:=”;
e_nilai2.text:=”;
e_hasil.text:=”;
end;

procedure TF_Operator.btnexitClick(Sender: TObject);
begin
MessageDlg(‘Form Akan Ditutup’,mtError,[mbOK],0);
close;
end;

procedure TF_Operator.e_nilai1KeyPress(Sender: TObject; var Key: Char);
begin
if(key=#13) then e_nilai2.SetFocus;
end;

procedure TF_Operator.e_nilai2KeyPress(Sender: TObject; var Key: Char);
begin
if(key=#13) then e_hasil.SetFocus;
end;

end