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:
Posting Komentar