Skip to main content

Posts

Showing posts from 2011

Qosidah Modern Al Falah

By
        AL FALAH adalah sebuah group Qosidah Modern yang didirikan sekitar tahun 90an dan sampai sekarang alhamdulillah masih tetap ada,, Al falah ini didirikan oleh Ustad Zainal Arifin yang bertempat tinggal di Ds jetis Dk Bulu Kec,Banyuputih Kab.Batang,Group ini bisa diajak untuk meramaikan suasana dengan nada nada qosidahnya dalam berbagai acara sepertihalnya acara Resepsi pernikahan,,Khitanan,Iringan iringan dalam pengajian,dan hiburan yang lainya yang bernada Qosidahan Dll (dikawasan sekitar Batang), Download Qosidah Modern Al Falah (dalam rangka akhirussanah Madrasah diniyah Miftakhul Ulum) 1. My Juz 2. Sukriyah 3. Tabah untuk mp3 nya 1. tabah   2. kehormatan   3. bismilah  
Post a Comment
Read more

Kumpulan soal Matematika Diskrit (Himpunan Relasi, Fungsi)

By
Berikut ini contoh contoh soal matematika diskrit untuk materi Himpunan, Relasi, Dan Fungsi)  Dari 100.000 buah bilangan bulat positif pertama, berapa banyak bilangan yang mengandung tepat 1 buah angka 3, 1 buah angka 4, dan 1 buah angka 5? Dari survei di sebuah kelas diketahui bahwa ada 25 siswa yang menyukai matematika dan 30  yang menyukai bahasa Inggris. Ditemukan pula bahwa di kelas itu ada 15 orang yang suka  matematika dan bahasa Inggris. Ada berapa siswa dalam kelas itu? Sederhanakan A ∪ (A ∩ B) Berapa banyak bilangan bulat antara 501 sampai 1000 yang tidak habis dibagi 3 atau 5? Tunjukan bahwa untuk sembarang himpunan A dan B, berlaku  (i) A ∪ (A ∩ B) = A ∪ B dan (ii) A ∩ (A ∪ B) = A ∩ B Misalkan A = {2, 3, 4} dan B = {2, 4, 8, 9, 15}. Jika kita definisikan relasi R dari A ke B dengan aturan :  (a, b) ∈ R jika a faktor prima dari b.       Lihat Juga Modul Matematika Diskrit
Read more

contoh Delphi7 (Perhitungan gaji)

By
Selama malaam, ini saya bagikan sedikit logika contoh program delphi, apa itu delphi,, kalian cari saja ke simbah, yang jelas saya muak kelau ada eror pada setiap baris code. - Proses nya adalah apabila golongan Gaji A1 : 1.000.000 A2 : 1.250.000 B1 : 1.500.000 B2 : 2.000.000 apabila alamat asal = yogyakarta gaji=tetap ` apabila alamat asal luar yogyakarta gaji=gaji+250.000 Tunjangan Suami : 0 Tunjangan Istri : 750.000 Tunjagan Anak   : 100.000/anak
Read more

program perhitungan kuadrat

By
unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls; type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Button1: TButton;     Button2: TButton;     Button3: TButton;     Panel1: TPanel;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   x,y:Real; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin x:=...
Read more

Contoh Potongan Program perhitungan IPK (memakai case)

By
unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls; type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     Label1: TLabel;     Label2: TLabel;     Button1: TButton;     Button2: TButton;     Panel1: TPanel;     Button3: TButton;     procedure Button3Click(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Edit1Click(Sender: TObject);     procedure FormClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   IPK:integer; implementation {$R *.dfm} procedure...
Read more

program perhitungan IPK (memakai if...then)

By
unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls; type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     Label1: TLabel;     Label2: TLabel;     Button1: TButton;     Button2: TButton;     Panel1: TPanel;     Button3: TButton;     procedure Button3Click(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Edit1Click(Sender: TObject);     procedure FormClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   IPK:real; implementation {$R *.dfm} procedure TF...
Read more