Contoh coodingan mencari nilai rata-rata pada qbasic

CLS

DIM A(3)

DIM B(3)

DIM C(3)

DIM D(3)

FOR I = 1 TO 3

INPUT "MASUKKAN NILAI ANI =", A(I)

TOTAL1 = TOTAL1 + A(I)

NEXT I

FOR I = 1 TO 3

INPUT "MASUKKAN NILAI BUDI =", B(I)

TOTAL2 = TOTAL2 + B(I)

NEXT I

FOR I = 1 TO 3

INPUT "MASUKKAN NILAI CITRA =", C(I)

TOTAL3 = TOTAL3 + C(I)

NEXT I

RATA1 = TOTAL1 / 3

RATA2 = TOTAL2 / 3

RATA3 = TOTAL3 / 3

PRINT "RATA ANI = ", RATA1

PRINT "RATA BUDI =", RATA2

PRINT "RATA CITRA =", RATA3

D(1) = RATA1

D(2) = RATA2

D(3) = RATA3

FOR I = 1 TO 3

IF D(I) >= MAX THEN

MAX = D(I)

END IF

NEXT I

PRINT "NILAI RATA-RATA MAKSIMAL = ", MAX

END

Anda sedang membaca artikel tentang Contoh coodingan mencari nilai rata-rata pada qbasic dan anda bisa menemukan artikel Contoh coodingan mencari nilai rata-rata pada qbasic ini dengan url http://clouddhia.blogspot.com/2012/11/contoh-coodingan-mencari-nilai-rata.html,anda boleh menyebar luaskannya atau mengcopy paste-nya jika artikel Contoh coodingan mencari nilai rata-rata pada qbasic ini sangat bermanfaat bagi teman-teman anda,namun jangan lupa untuk meletakkan link Contoh coodingan mencari nilai rata-rata pada qbasic sumbernya.