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

PROGRAM LATIHAN 10 ---> ALGORITMA & PEMROGRAMAN BASIC

Membuat program untuk Mencetak hasil nilai huruf seorang Mahasiswa dengan ketentuan sebagai berikut :

Nilai Huruf                     Keterangan

     A                             Sangat Baik

     B                             Baik

     C                             Cukup

     D                             Kurang

     E                             Sangat Kurang

LAYOUT :

NAMA ANDA    : NURHAYATI MURSALIN

MATA KULIAH   : ALGORITMA DAN PEMROGRAMAN

NILAI HURUF    : B

KETERANGAN  : BAIK

' Program Latihan 10

DIM NAMA AS STRING

DIM NAMAMK AS STRING

DIM NHURUF AS STRING

CLS

NAMA = "NURHAYATI MURSALIN"

NAMAMK = "ALGORITMA DAN PEMROGRAMAN"

NHURUF = "B"

PRINT "NAMA ANDA  : " ;  NAMA

PRINT "MATA KULIAH  : " ;  NAMAMK

PRINT "NILAI HURUF  : " ;  NHURUF

IF NHURUF = "A" THEN

PRINT "KETERANGAN  :  "SANGAT BAIK"

ELSEIF NHURUF = "B" THEN

PRINT "KETERANGAN  : "BAIK"

ELSEIF NHURUF = "C" THEN

PRINT "KETERANGAN  :  "CUKUP"

ELSEIF NHURUF = "D" THEN

PRINT "KETERANGAN  :  "KURANG"

ELSEIF NHURUF = "E" THEN

PRINT "KETERANGAN  :  "SANGAT KURANG"

END IF

END

*Tekan F5 untuk menjalankan program

PROGRAM LATIHAN 9 ---> ALGORITMA & PEMROGRAMAN BASIC

DIM JENKEL AS STRING

CLS

JENKEL = "WANITA"

IF JENKEL = "PRIA"  THEN

PRINT "ANDA PRIA"

ELSE

PRINT "ANDA WANITA"

END IF

END

*Tekan F5 untuk menjalankan program

Cat : Karena kondisinya salah, maka Perintah 2 yang dikerjakan.

PROGRAM LATIHAN 8 ---> ALGORITMA & PEMROGRAMAN BASIC

DIM angka AS INTEGER

CLS

angka = 10

IF angka > 10 THEN PRINT "Lebih Besar"

END

*Tekan F5 untuk menjalankan program

Cat : karena kondisinya salah, maka tidak ada yang dicetak