PROGRAM LATIHAN 15 ---> ALGORITMA & PEMROGRAMAN BASIC

2 A 6 A 10 A 14 A

CLS
FOR I = 2 TO 16 STEP 2
IF I MOD4 = 0 THEN
PRINT “A”
ELSE
PRINT I ;
END IF
NEXT I
END

PROGRAM LATIHAN 15 ---> ALGORITMA & PEMROGRAMAN BASIC

2 A 6 A 10 A 14 A

CLS
FOR I = 2 TO 16 STEP 2
IF I MOD4 = 0 THEN
PRINT “A”
ELSE
PRINT I ;
END IF
NEXT I
END

PROGRAM LATIHAN 14 ---> ALGORITMA & PEMROGRAMAN BASIC

Menampilkan bilangan kelipatan 3 dari 1 s/d 100

CLS

FOR NILAI = 1 TO 100

IF NILAI MOD3 = 0 THEN PRINT NILAI ;

NEXT NILAI

END

PROGRAM LATIHAN 13 ---> ALGORITMA & PEMROGRAMAN BASIC

Mencetak bilangan Genap dari angka 1 s/d 200

CLS
LET A = 2
FOR I = 1 TO 100
PRINT A ;
LET A = A+2
NEXT I
END

Atau

CLS
FOR I = 2 TO 200 STEP 2
PRINT I ;
NEXT I
END

PROGRAM LATIHAN 12 ---> ALGORITMA & PEMROGRAMAN BASIC

1   2   3   4   5 

CLS

FOR I = 1  TO  5

PRINT  I ;

NEXT  I

END

Atau

CLS

LET A = 1

FOR  I  = 1  TO 5

PRINT A ;

LET A = A + 1

NEXT  I

END

PROGRAM LATIHAN 11 ---> ALGORITMA & PEMROGRAMAN BASIC

Mencetak Kalimat

FIKOM UNISAN
FIKOM UNISAN
FIKOM UNISAN

CLS
FOR I = 1 TO 3
PRINT “FIKOM UNISAN”
NEXT I
END