Minggu, 04 Januari 2015
Aku akan berbagi ilmu lagi nii tentang masalh pemrograman dasar…
Kali ini kita akan membahas cara menampilkan angka 1,3,5,7,9....
Yah, itu angka ganjil. kali ini aku bagi program tentang cara menentukan angka ganjil dengan mudah tanpa menghafal di Delphi dengan menggunakan perulangan Repeat Until.
Bagaimana sih cara mengurutkan angka ganjil menggunakan Repeat Until? Penasaran? Penasaran?
Oke, langsung aja aku bagi scriptnya biar pada gak penasaran semuanya.
uses
SysUtils;
var
I,A:integer;
begin
writeln('PERULANGAN ANGKA GANJIL MENGGUNAKAN REPEAT UNTIL');
writeln('================================================');
I :=1;
repeat
A :=i*2-1;
writeln(A);
I :=I+1;
until I>10;
readln;
end.
Selepas itu apa guyss??
yupss diketikkan pada delphi, sampai hafal ya kalian HEHE xD
seperti pada gambar dibawah ini.
Terus jalankan programnya, dan akan muncul tampilan yang diinginkan yaitu urutan angka ganjil.
Seperti inilah hasilnyaaa... :D
Mudah bukan? jadi kita gak usah susah~susah hafalin semua angka ganjil, tinggal ketikkan script, tentukan berapa digit yang diminta, udah deh?? keluar hasilnya :D simple bukannnn???
