Turbo basic -pers. Kuadrat-

CLS
10 REM *PROGRAM MENGHITUNG AKAR PERSAMAAN KUADRAT*
20 REM * PERSAMAAN KUADRAT : AX^2 + BX + C = *
30 REM
40 REM --- MEMASUKAN NILAI A, B, DAN C ---
50 GOSUB 1000
60 REM
70 REM --- HITUNG NILAI DISKRIMINAN ---
80 GOSUB 1200
90 REM
100 REM SELEKSI NILAI DISKRIMINAN DAN TAMPILKAN HASILNYA
110 GOSUB 1300
120 END
1000 '
1010 'SUBROUTINE MEMASUKAN NILAI A, B DAN C
1020 INPUT "NILAI A";A
1030 IF A=0 THEN 1020
1040 INPUT "NILAI B";B
1050 INPUT "NILAI C";C
1060 RETURN
1200 '
1210 'SUBROUTINE MENGHITUNG DISKRIMINAN
1220 D=B^2-4*A*C
1230 RETURN
1300 '
1310 'SUBROUTIN SELEKSI NILAI DISKRIMINAN
1320 IF D>0 THEN GOSUB 1400
1330 IF D=0 THEN GOSUB 1600
1340 IF D<0 THEN GOSUB 1800
1350 RETURN
1400 '
1410 'SUBROUTINE MENGHITUNG NILAI 2 AKAR REAL BERLAINAN
1420 X1=(-B+SQR(D))/(2*A)
1430 X2=(-B-SQR(D))/(2*A)
1440 PRINT "AKARNYA ADALAH 2 AKAR REAL BERLAINAN:"
1450 PRINT "X1 = ";X1
1460 PRINT "X2 = ";X2
1470 RETURN
1600 '
1610 'SUBROUTINE MENGHITUNG NILAI 2 AKAR REAL KEMBAR'
1620 X1=-B/(2*A)
1630 PRINT "AKARNYA ADALAH 2 AKAR REAL KEMBAR:"
1640 PRINT "X1 = X2 =";X1
1650 RETURN
1800 '
1810 'SUBROUTINE MENGHITUNG NILAI 2 AKAR IMAGINER BERLAINAN
1820 Z1=-B/(2*A)
1830 Z2=SQR(-D)/(2*A)
1840 PRINT "AKARNYA ADALAH 2 AKAR IMAGINER BERLAINAN"
1850 PRINT "X1 = ";Z1;"+";Z2;"i"
1860 PRINT "X1 = ";Z1;"-";Z2;"i"
1870 RETURN

Makasih,