Page 30 - Pengenalan Bahasa Basic

b. 10 READ A
20 REM LOOP
30 DATA 9,8,7
40 PRINT A
50 GOTO 10
60 END

Hasil pelaksanaan program tersebut adalah:
9
8
7

c. 10 LET Y = 0
20 REM MENGHITUNG JUMLAH
30 READ X
40 LET Y = Y + X
50 DATA 15,20,30,40
60 GOTO 30
70 PRINT “Y = “;Y
80 END

Hasil pelaksanaan program tersebut adalah:
?OUT OF DATA ERROR IN 30

Program di atas meskipun benar Y = 105, namun baris 70 tidak pernah terlaksana,
sehingga pada layar computer muncul berita kesalahan OUT OF DATA ERROR
IN 30

d. 10 LET Y = 0
20 REM MENGHITUNG JUMLAH
25 READ X
30 IF X = 99 THEN 70
40 LET Y = Y + X
50 DATA 15,20,30,40
60 GOTO 25
70 PRINT “Y = “;Y
80 END

Hasil pelaksanaan program tersebut adalah:
?OUT OF DATA ERROR IN 30

Untuk menghitung banyaknya data dalam program tabulasi data biasanya digunakan
penghitung (counter). Perhatikan beberapa contoh program berikut!

e. 10 LET Y = 0
15 REM LOOP
20 READ X

Program_Turbo Basic 27 Edi Supriyanto, S. Pd.