Tugas logika dan algoritma


PERULANGAN

Nama : silvia natalia

Kelas : 12.4C.06

Nim : 12123838

Codding :

procedure TForm1.FormCreate(Sender: TObject);
begin
DateSeparator := ‘-’;
ShortDateFormat := ‘mm/dd/yyyy’;
etgl.Text := ‘Hari ini ‘ + DateToStr(Date);
end;
procedure TForm1.blagiClick(Sender: TObject);
begin
eitem.Text :=”;
efaktur.Text := ”;
lnama.Clear;
lharga.Clear;
etotal.Text :=”;
end;

procedure TForm1.bokClick(Sender: TObject);
var
inputnama : string;
inputharga : string;
i : integer;
j : integer;
harga : real;
begin
harga := 0;
j := 0;
j:= strtoint(eitem.Text);
if j <= 0 then
begin
showmessage(‘Data Tidak boleh lebih kecil dariNol’);
exit;
end
else
begin
for i := 1 to j do
begin
inputnama := inputbox(‘INput’,’Ketikan Nama Barang’,”);
inputharga := inputbox(‘INput’,’Ketikan Harga Barang’,”);
lnama.Items.Add(inputnama) ;
lharga.Items.Add(inputharga);
harga := harga + strtofloat(inputharga);
end;
end;
etotal.Text := floattostr(harga);
end;

procedure TForm1.bcloseClick(Sender: TObject);
begin
if(Application.MessageBox(‘Are you sure want to exit?’,’Confirmation’,MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2)=IDYES)then close;
end;

end.

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