Program mencari nilai rata - rata menggunakan Qbasic

Mencari nilai rata - rata dengan Qbasic?

Tentunya kita pasti tau dong apa itu nilai rata - rata dan bagaimana cara mencarinya?

Nah kali ini saya akan membahas bagaimana cara mencari nilai rata - rata tersebut, etss.. tapi tunggu dulu.. yang saya maksud itu bukan akan memberikan rumusnya, tapiiii... ini berbeda, yaitu dengan membuat program rata - rata menggunakan Qbasic. 

Oke kita akan langsung membahasnya.....

1. Langkah pertama yaitu menuliskan program rata - ratanya, seperti berikut :

CLS
PRINT ""
COLOR 14
PRINT "                NILAI RATA-RATA QUIZ MATEMATIKA DASAR KELAS 1KA04"
COLOR 13
PRINT "         ________________________________________________________________"
PRINT "               ___________________________________________________"
PRINT ""
PRINT ""
COLOR 11
INPUT "ISI BANYAK DATA YANG DIINGINKAN : ", X
FOR i = 1 TO X
    PRINT ""
    COLOR 10
    PRINT "MASUKAN DATA ANDA"
    PRINT ""
    PRINT "DATA KE: "; i
    COLOR 3
    INPUT "  NAMA         : ", N$(i)
    INPUT "  NPM          : ", M$(i)
    INPUT "  NILAI QUIZ 1 : ", A(i)
    INPUT "  NILAI QUIZ 2 : ", B(i)
    INPUT "  NILAI QUIZ 3 : ", C(i)
    PRINT ""
NEXT i

DIM H AS STRING
CLS
COLOR 13
PRINT "                      %%% TABEL QUIZ MATEMATIKA DASAR %%%"
COLOR 14
PRINT "________________________________________________________________________________"
COLOR 3
T = 0
PRINT "________________________________________________________________________________"
PRINT ""
PRINT TAB(1); "NAMA"; TAB(9); "NPM"; TAB(19); "QUIZ KE-1"; TAB(32); "QUIZ KE-2"; TAB(44); "QUIZ KE-3"; TAB(56); "RATA-RATA"; TAB(68); "HASIL";
PRINT "________________________________________________________________________________"
FOR i = 1 TO X
    LET Y = 3
    R = (A(i) + B(i) + C(i)) / Y
    IF R > 95 THEN
        H = "SANGAT BAIK"
    ELSEIF R > 80 THEN
        H = "BAIK"
    ELSEIF R > 75 THEN
        H = "CUKUP"
    ELSEIF R > 65 THEN
        H = "KURANG"
    ELSE
        H = "TIDAK ADA"
    END IF
    T = T + R
    PRINT TAB(1); N$(i); TAB(9); M$(i); TAB(19); A(i); TAB(32); B(i); TAB(44); C(i); TAB(56); R; TAB(68); H;
    PRINT "________________________________________________________________________________"
NEXT i
PRINT ""
PRINT ""
KEL = T / X
PRINT "NILAI RATA - RATA ADALAH ", KEL
END

1

Pada program tersebut kita misalkan akan mencari rata - rata dari nilai quis matematika dasar kelas 1KA04. Pada program tersebut saya menggunakan statement CLS, Print, Input, Color dan For I - Next I.

 2. Kemudian kita buat program untuk tabel nilainya :

2

Untuk membuat tabel kita tambahkan statement Tab yaitu untuk memberi jarak, For I - Next I dan statement If - Else If - End If.

Nahh.. ini dia hasil dari program di atas setelah kita masukan datanya. banyak data dapat kita isi sebanyak yang kita butuhkan.

3

Kemudian ini hasil dari nilai rata - rata data yang sudah diinputkan tadi..

Jadi begitulah langkah - langkah singkat untuk membuat program mencari nilai rata - rata menggunakan Qbasic.
Semoga Bermanfaat..
Arigatou ^_^