Mengurutkan Angka Ganjil Menggunakan Repeat Until

Aku akan menepati janji aku kepada kalian sebelumnya hihi xD
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? Sama saya juga HAHAHA :D
Gak... Gak...


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

Semoga Bermanfaat yah :) :) :)

Wassalamu'alaikum....