Pengertian Fungsi beserta Contoh soalnya

Assalamu'alaikum wr.wb.

Pada kesempatan kali ini saya akan share tentang Fungsi beserta contoh soalnya. 

Syarat suatu relasi merupakan pemetaan atau fungsi adalah:

a. setiap anggota A mempunyai pasangan di B;

b. setiap anggota A dipasangkan dengan tepat satu anggota B

Intinya  dari fungsi adalah untuk anggota A semua memiliki pasangan di B dan anggota A tidak boleh ada yang doble

Contoh soal:

Perhatikan diagram panah pada Gambar di samping

Tentukan:

(i) domain;

(ii) kodomain;

(iii) range;

(iv) bayangan dari 1, 2, 3, 4, dan 5 oleh fungsi f.

Penyelesaian:

(i) Domain = A = {1, 2, 3, 4, 5}

(ii) Kodomain = B = {a, b, c, d, e}

(iii) Range = {a, c, e}

(iv) Bayangan 1 oleh fungsi fadalahf(1) = a.

      Bayangan 2 oleh fungsi fadalahf(2) = a.

      Bayangan 3 oleh fungsi fadalahf(3) = c.

      Bayangan 4 oleh fungsif adalahf(4) =c.

      Bayangan 5 oleh fungsif adalahf(5) =e

Demikian yang dapat saya sampaikan semoga bermanfaat, wassalamu'alaikum wr.wb.

Program case of kombinasi dengan combo box pada Delphi

Assalamu'alaikum wr.wb.
Pada kesempatan kali ini saya akan share baris program delphi menggunakan case of dan combo box, untuk desain programnya lihat tampilan di bawah.

procedure TForm1.Button1Click(Sender: TObject);
var Kelas, LamaInap : Integer;
    BiayaInap, Diskon, Total : Real;
begin
  Kelas:= StrToInt(Combobox1.Text);
    LamaInap := StrToInt(Edit1.Text);
    case Kelas of
      1 : BiayaInap:= 150000;
      2 : BiayaInap:= 100000;
      3 : BiayaInap:= 75000;
    end;
    case Lamainap of
      1..7 : Diskon:=0;
      8..15: Diskon:=5;
      else
           Diskon:= 10;
    end;
    Total:=BiayaInap*LamaInap * (1 - Diskon/100);
    Edit2.Text := FloatToStr(BiayaInap);
    Edit3.Text := FloatToStr(Diskon);
    Edit4.Text := FloatToStr(Total);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  Combobox1.setfocus;
  Combobox1.ItemIndex:=-1;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;

end.

Tampilan:

Demikian yang dapat saya sampaikan kurang lebihnya mohon maaf, wassalamu'alaikum wr.wb.

Pengertian Relasi beserta contoh soal dan jawabanya

Assalamu'alaikum wr.wb.

Pada kesempatan kali ini saya akan share tentang relasi dan cara mengerjakannya.

Pengertian Relasi

Relasi dari himpunan A ke himpunan B adalah hubungan yang memasangkan anggota-anggota himpunan A dengan anggota-anggota himpunan B. Dalam mengerjakan soal relasi dapat dikerjakan menggunakan tiga metode yaitu diagram panah, diagram cartesius, dan himpunan pasangan berurutan.

contoh soal: 

A = {Buyung, Doni, Vita, Putri}, B = {IPS, kesenian, keterampilan, olahraga, matematika, IPA, bahasa Inggris}, dan “pelajaran yang disukai” adalah relasi yang menghubungkan himpunan A ke himpunan B.

keterangan: Buyung suka IPS dan kesenian, Doni suka Ketrampilan dan Olahraga, Vita suka IPA, dan Putri suka Matematika dan Bahasa Inggris.

Jawaban dengan tiga metode:

a. Dengan metode diagram panah

b. Dengan metode diagram Cartesius

c. Dengan metode himpunan pasangan berurutan

{(Buyung, IPS), (Buyung, kesenian), (Doni, keterampilan), (Doni, olahraga), (Vita, IPA), (Putri, matematika), (Putri, bahasa Inggris)}

Demikian yang dapat saya sampaikan tentang relasi semoga bermanfaat, wassalamu'alaikum wr.wb.

Sumber:BSE

Contoh Program Menggunakan Combo box pada Delphi

Assalamu'alaikum wr. wb.
Pada kesempatan kali ini saya akan share baris program Delphi menggunakan combo box dikombinasi dengan case of.
Baris Program:
procedure TForm1.ComboBox1Change(Sender: TObject);
var tarif : real;
    fasilitas : string;
    kelas : integer;
begin
    Kelas := ComboBox1.ItemIndex;
    case kelas of
    0: begin
        tarif := 1000000;
        fasilitas := 'AC + Double bed +Breakfast';
        end;
    1: begin
        tarif := 700000;
        fasilitas := 'AC + Single bed + Breakfast';
        end;
    2: begin
        tarif := 500000;
        fasilitas := 'AC + Single bed';
        end;
    3: begin
        tarif := 300000;
        fasilitas := 'Single bed';
        end;
    end;
    Edit1.Text:=FloatToStr(tarif);
    Edit2.Text:=fasilitas;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;
end.

Tampilan:

Demikian yang dapat saya sampaikan semoga bermanfaat, wassalamu'alaikum wr. wb.

Cara Mudah Menentukan FPB dan KPK

Assalamu'alaikum wr.wb.

Ada beberapa cara untuk menentukan nilai FPB dan KPK, yang paling umum digunakan adalah dengan cara pohon faktor dan sengkedan/tabel. Dari dua metode tersebut, cara sengkedan lebih mudah dan lebih cepat dalam pengerjaannya. Berikut saya share cara mudah menentukan FPB dan KPK sekaligus dengan cara sengkedan.

Sebagai contoh mencari FPB dan KPK dari 12, 36, 72

2      12          36        72

2       6            18        36

3       3            9         18

3       1            3          6

2       1            1          2

         1            1          1

Hasilnya adalah:

FPB = 2 x 2 x 3 = 12

KPK = 2 x 2 x 2 x 3 x 3 = 72

Keterangan

Yang digaris bawah adalah bilangan yang akan dicari FPB dan KPK nya dan yang disebelah kirinya adalah bilangan pembaginya. Untuk bilangan pembagi yang dapat membagi ketiga bilangan yang akan dicari FPB dan KPK nya sebaiknya ditandai lingkaran atau yang lainnya, contoh diatas saya blog. Tujuanya adalah mempermudah untuk mencarari FPB nya. FPB didapat dari mengalikan bilangan pembagi hanya yang ditandai saja sedangkan untuk mencari KPK dengan cara mengalikan semua bilangan pembagi . Demikian yang dapat saya sampaikan pada kesempatan kali ini, semoga barmanfaat. Wassalamu'alaikum wr.wb.

Program Delphi If Then Else Menggunakan and or

Assalamu'alaikum wr.wb
Program Delphi If Then Else menggunkan and or yang akan saya share kali ini adalah program seleksi Mahasiswa dengan menggabungkan beberapa kriteria. Di bawah ini saya cantumkan baris program dan tampilannya.

Program Seleksi  Mahasiswa

procedure TfrmSeleksiMhs.Button1Click(Sender: TObject);
var TB,U,BI,IPA,MTK:Integer;
Hasil:String;
begin
   TB:=StrToInt(edit1.Text);
    U:=StrToInt(edit2.Text);
   BI:=StrToInt(edit3.Text);
  IPA:=StrToInt(edit4.Text);
  MTK:=StrToInt(edit5.Text);
  If(TB>150)and (U<50) and (BI>60) and ((IPA>70) or (MTK>70))
  then
  Hasil:='Lulus'
  Else
  Hasil:='Tidak Lulus';
  edit6.text:=hasil;
end;
procedure TfrmSeleksiMhs.Button3Click(Sender: TObject);
begin
 close;
end;
procedure TfrmSeleksiMhs.Button2Click(Sender: TObject);
begin
 edit1.Text:='';
 edit2.Text:='';
 edit3.Text:='';
 edit4.Text:='';
 edit5.Text:='';
 edit6.Text:='';
 edit1.setfocus;
end;
end.

Tampilan:

Demikian yang dapat saya sampaikan kurang lebihnya mohon ma'af, wassalamu'alaikum wr.wb.