Membuat Program sederhana "Penentuan Grade Nilai" dengan Delphi 7

1. Buka Aplikasi Delphi anda, tampilan awal akan muncul form 1

2. Isi dengan label untuk memberikan keterangan pada langkah langkahnya, pilih menu label pada icon " A" , kemudian sesuaikan dengan kebutuhan anda

3. Kemudian Buatlah tempat untuk penginputan data dengan memilih menu edit.text pada icon, seperti berikut 

untuk membuat kolom inputan

4. kemudian buatlah button untuk memproses program tersebut dengan memilih menu button click

button.click

5. Kemudian klik 2x pada button click tersebut untuk mengisi script. isi script seperti contoh dibawah ini 

procedure TForm1.Button1Click(Sender: TObject);

Var

  N1, N2, N3, NA : real;

begin

  N1 := strtofloat(edit1.Text);

  N2 := strtofloat(edit2.Text);

  N3 := strtofloat(edit3.Text);

  NA := (N1+N2+N3)/3;

  edit4.Text := floattostr(NA);

  if (NA >= 90) AND (NA <= 100) then

  edit5.Text := 'A'

  else if (NA >= 75) AND (NA <= 89) then

  edit5.Text := 'B'

  else

  edit5.Text := 'C';

end;

6. Setelah itu coba jalankan program tersebut dengan menekan F9,

Program sederhana penentuan grade nilai anda telah selesai.

Read more »

Perulangan Pada Delphi

Perulangan

Perulangan adalah cara mengulang perintah-perintah sampai pada kondisi tertentu. Ada beberapa perulangan dalam pemrograman Delphi Antara lain :

-          For …To…Do

-          For…DOwnTo…Do

-          Repeat…Until

-          While…Do

Untuk lebih jelasnya mari kita bahas satu per satu. 
For …To…Do
Bentuk Umum : 

For (counter):= (nilai awal) To (nilai akhir) Do
Begin
Perintah;
Perintah;
End; 

For …DownTo…Do
Bentuk Umum : 

For (counter):= (nilai awal) DownTo (nilai akhir) Do
Begin
Perintah;
Perintah;
End;

Catatan : Perbedaan perulangan For…To…Do dan For…Down…To…Do adalah : Jika perulangan For…To…Do bergerak naik dari kecil ke besar. Sedangkan For…DownTo…Do bergerak turun dari besar ke kecil. 

Repeat…Until
Repeat..Until disini program akan mengulang terlebih dahulu perintah-perintahnya. Sedangkan pengecekannya atau program counternya diakhir di akhir.
Bentuk Umum : 

Repeat
Perintah;
Perintah;
Until (Kondisi); 

While…Do
While…Do disini batas akhir perulangannya dikondisikan di awal. Setelah itu program akan mengulang perintah-perintah sampai batas yang telah ditentukan diawal tersebut. Pada perulangan ini menggunakan program counter (mis. i :=i + 1).
Bentuk Umum : 

While (Kondisi) Do
Begin
Perintah;
Perintah;
End;

Sumber :

http://awaludin22tugas.wordpress.com/2013/04/26/perulangan-pada-delphi/

Read more »

Semantic Rule (Aturan Semantik) dan Hukum Hukum pada Logika

Semantic Rule (Aturan Semantik)

Adalah suatu aturan yang digunakan untuk menentukan “truth value” dari suatu sentence,  yaitu :

1.  Negation Rule (Aturan NOT)

Negasi akan memiliki truth value yang berlawanan dengan proposisinya.

p	not p
true	false
false	true

2.  Conjunction Rule (Aturan AND)

Konjungsi hanya akan bernilai true jika kedua proposisinya bernilaitrue.

p	q	p and q
true	true	true
true	false	false
false	true	false
false	false	false

3.  Disjunction Rule (Aturan OR)

Disjungsi hanya akan bernilai false jika kedua proposisinya bernilaifalse.

p	q	p or q
true	true	true
true	false	true
false	true	true
false	false	false

4.  Implication Rule (Aturan IF-THEN)

Implikasi hanya akan bernilai false jika anteseden (p) = true dan konsekuen (q) = false.

p	q	if p then q
true	true	true
true	false	false
false	true	true
false	false	true

Jika (pàq) adalah implikasi, maka :

(qàp) adalah konvers

(not pànot q) adalah invers

(not qànot p) adalah kontraposisi

Jika (pàq) bernilai benar, maka:

belum tentu (q à p), (not p à not q), dan (not q à not p) bernilai benar.

5.  Equivalence Rule (Aturan IF -AND ONLY IF -)

Biimplikasi hanya akan bernilai true jika kedua penyusun proposisi bernilai sama

p	q	p if and only if q
true	true	true
true	false	false
false	true	false
false	false	true

6.  Conditional Rule (Aturan IF–THEN-ELSE)

Jika p bernilai true maka nilai q yang berlaku.

Jika p bernilai false maka nilai r yang berlaku.

p	q	r	if p then q else r
true	true	true	true
true	true	false	true
true	false	true	false
true	false	false	false
false	true	true	true
false	true	false	false
false	false	true	true
false	false	false	false

Sifat-sifat aljabar logika untuk konjungsi dan disjungsi:

a.            Hukum Idempoten

p v p                      = p

p ^ p                      = p

b.            Hukum Komutatif

p v q                      = q v p

p ^ q                      = q ^ p

c.             Hukum Assosiatif

(p v q) v r                          =  p v (q v r)

(p ^ q) ^ r              =  p ^ (q ^ r)

d.            Hukum Distributif

p v (q ^ r)                          =  (p v q) ^ (p v r)

p ^ (q v r)              =  (p ^ q) v (p ^ r)

e.            Hukum Identitas

p v false                            =  p

p ^ true                 =  p

p v true                 =  true

p ^ false                            =  false

f.              Hukum Komplemen

p v not p                =  true

p ^ not p                =  false

not (not p)             =  p

g.            Hukum De Morgan

Negasi dari konjungsi dan disjungsi:

not (p v q)             =  not p ^ not q

not (p ^ q)             =  not p v not q

sumber : 

http://ikakurniasujana.blogspot.com/2012/05/logif-1-logika-proposisional.html

Read more »