You can replace this text by going to "Layout" and then "Page Elements" section. Edit " About "

scrope. Diberdayakan oleh Blogger.

Categories

ada keinginan semua pasti bisa dilakukan

Blog ini hanyalah ungkapan akan ketidaksempurnaan seseorang yang haus terhadap ilmu pengetahuan.
[+] Post Title :

bilangan ganjil genap pada delphi


[+] Date : Sabtu, 13 April 2013
[+] Admin : eyzha
[+] Link : http://scropee.blogspot.com/2013/04/bilangan-ganjil-genap-pada-delphi.html
[+] Type :








Buatlah 1 label, 1button, 1edit, 1memo
Klik icon label  untuk memberi nama, klik icon  button untuk memprosess program, klik icon edit  untuk menginput, klik icon memo untuk output.
Sekarang kita buat variable dengan  Tipe Data Integer, tipe data integer merupakan variable tipe data bilangan bulat contoh nya 1, 2 cara p
terdapat variable a, b, c, d, berfungsi untuk mendeklarasikan suatu program ada beberapa jenis variable : integer = untuk bilngan bulat, real = untuk bilangan yang ber koma(,) dan lain-lainnya.
Lihat gambar berikut strtoint berfungsi untuk merubah tipe data string ke integer dan inttostr berfungsi untuk mengganti nilai integer ke string kebalikan dari ststoint.


untuk perulangannya kita menggunakan perulangan repeat until Anda bisa lihat yang didalam kotak merah itu adalah source code repeat untuk pengulangan yang mentukan bilangan ganjil dan genap.
source code untuk memuncul outputnya di dalam Memo1 sebanyak dengan angka yang kita input di dalam edit1.text. Yang dimulai dari 1 dan berakhir sampai dengan yang kita inputkan. Fungsi dari mod untuk mencari sisa hasil bagi  dan. Saya memasukan percabangan if else diatas berfungsi untuk output ganjil dan genap. Jika sisa hasil pembagian dari fungsi c := b mod 2 adalah 1 tercetak di memo1 adalah Angka 1 adalah angka ganjil. Jika hasil pembagian c:=b mod adalah 0 tercetak Angka 2 adalah angka genap. b := b + 1; pada variable b  nilai yang kita inputkan ditambah 1 Misalkan yang kita inputkan adalah 6, maka nilai b akan bernilai maksimal 7. Data yang akan tercetak sebanyak 6kali, bukan 7kali. Jadi counter disini hanya untuk memaksimalkan suatu nilai.





lines.add di atas berfungsi untuk menambah line pada memo seperti sebelumnya. Variable d yang sudah kita buat tadi berfungsi untuk mencari sisa hasil bagi dan menentukan apakah angka yang kita inputkan merupakan angka ganjil atau genap

0 komentar:

Poskan Komentar