Program Qbasic Genap Dan Ganjil

Nov 28th, 2013

Kali ini saya akan membuat contoh pencarian bilangan genap dan ganjil, dengan penggunaan looping dan kondisi.

Genap dan ganjil :

CLS

DIM a, b AS INTEGER
INPUT "Masukan Angka : ", a

b = 1

WHILE b <= a
  IF b MOD 2 = 0 THEN
      PRINT b;" Bilangan Genap"
  ELSE
      PRINT b;" Bilangan Ganjil"
  END IF
  b = b + 1
WEND

END

Output :

Comments