CLS
PRINT "--PROGRAM BIL.PRIMA 1-500--"
PRINT "======================================"
FOR A= 2 TO 500
FOR B =2 TO A/2
NIL = 0
C = A MOD B
IF C=0 THEN
NIL = 1
EXIT FOR
END IF
NEXT B
IF NIL=0 THEN PRINT A;
NEXT A
END
Selasa, 17 Juni 2014
Program Untuk Menampilkan Bilangan Prima dari 1-500 Di QBASIC
Program
CLS
PRINT "--PROGRAM BIL.PRIMA 1-500--"
PRINT "======================================"
FOR A= 2 TO 500
FOR B =2 TO A/2
NIL = 0
C = A MOD B
IF C=0 THEN
NIL = 1
EXIT FOR
END IF
NEXT B
IF NIL=0 THEN PRINT A;
NEXT A
END
CLS
PRINT "--PROGRAM BIL.PRIMA 1-500--"
PRINT "======================================"
FOR A= 2 TO 500
FOR B =2 TO A/2
NIL = 0
C = A MOD B
IF C=0 THEN
NIL = 1
EXIT FOR
END IF
NEXT B
IF NIL=0 THEN PRINT A;
NEXT A
END
Langganan:
Postingan (Atom)