Tugas Data Mining Hari Rabu

Source code buat tugas data mining tanggal 10-03-2010. Saya dan Kiong boy pakai bahasa pemograman J2ME. Sedangkan yang saya kasih disini adalah qbasic biar beda, kalau mau download qbasicnya klik di sini juga bisa. Dan source code ini bisa dipakai di VB.

Source codenya :

CLS
DIM q1 AS STRING
DIM q2 AS STRING
DIM q3 AS STRING
DIM q4 AS STRING
DIM a AS INTEGER
DIM b AS INTEGER
DIM jawab AS STRING
DIM x AS STRING
a = 0
b = 0
INPUT “WARM BODY TEMPERATUR(Y/N): “, q1
INPUT “GIVE BRITH(Y/N) : “, q2
INPUT “FOUR LEGGED(Y / N): “, q3
INPUT “HIBERNATES(Y / N): “, q4
IF q1 = “y” THEN a = a + 1
IF q1 = “n” THEN b = b + 1
IF q1 = “y” THEN x = “y”
IF q1 = “n” THEN x = “x”
IF q2 = “y” THEN a = a + 1
IF q2 = “n” THEN b = b + 1
IF q3 = “y” THEN a = a + 1
IF q3 = “n” THEN b = b + 1
IF q4 = “y” THEN a = a + 1
IF q4 = “n” THEN b = b + 1
PRINT

IF a < b THEN jawab = “non-mamalia”
IF a > b THEN jawab = “mamalia”
IF a = b AND x = “x” THEN jawab = “non-mamalia”
IF a = b AND x = “y” THEN jawab = “mamalia”
PRINT
PRINT “Jawabannya : “, jawab
CLOSE

Outputnya :