Nilai Kuadrat TURBO BASIC
Nilai Kuadrat TURBO BASIC
Selamat Sore Teman Semua,,
Hehehe...
Langsung Sobat,, Copy Paste Scrib ini
Cara Membuat Nilai Kuadrat
CLS
INPUT "NILAI A",A
INPUT "NILAI B",B
INPUT "NILAI C",C
D=(B*B)-(4*A*C)
IF D > 0 THEN
X1=((-1*B)+(D^0.5))/(2*A)
X2=((-1*B)-(D^0.5))/(2*A)
ELSE
IF D=0 THEN
X=((-1*B)+(D^0.5))/(2*A)
X1= X
X2= X
ELSE
PRINT "TIDAK PUNYA AKAR KUADRAT"
END
END IF
END IF
PRINT "NILAI X1=",X1
PRINT "NILAI X2=",X2
END
SELAMAT MENCOBA....!!
