Page 31 - Pengenalan Bahasa Basic

30 IF Y = 99 THEN 70
40 LET Y = Y + 1
50 GOTO 20
60 DATA 2,7,8,10,99
70 PRINT Y
80 END

Hasil pelaksanaan program tersebut adalah:
Y = 4

Pada program di atas Y diguakan sebagai counter, yaitu setiap statement LET Y =
Y + 1 dilaksanakan, harga Y bertambah 1.

f. 10 REM “MENGHITUNG RATA-RATA”
20 LET Y = 0
30 LET X = 0
40 READ Z
50 DATA 10,20,30,40,99
60 IF Z = 99 THEN 100
70 LET Y = Y + 1
80 LET X = X + 1
90 GOTO 40
100 LET R = S/C
110 PRINT “JUMLAH = “;Y
120 PRINT “BANYAKNYA DATA = “;X
130 PRINT “RATA-RATA = “;R
140 END

Hasil pelaksanaan program tersebut adalah:
JUMLAH = 100
BANYAKNYA DATA = 4
RATA-RATA = 25

g. 10

Program_Turbo Basic 28 Edi Supriyanto, S. Pd.