Допълнение към квадратно уравнение

Ето и решението на задачата от предишната публикация на Microsoft Basic, която без проблем можете да компилирате на Правец

10 HOME
20 PRINT "-------PROGRAMA ZA RESHAVANE NA KVADRATNI URAVNENIQ-------"
30 PRINT "VAVEDETE A "
40 INPUT A
50 PRINT "VAVEDETE B "
60 INPUT B
70 PRINT "VAVEDETE C "
80 INPUT C
90 D=B^2-4*A*C
100 PRINT "DISCRIMINANTATA E RAVNA NA ",D
110 IF D<0 THEN PRINT "DISKRIMINANTATA E OTRICATELNA ZATOVA URAVNENIETO NQMA RESHENIE"
130 IF D=0 THEN GOTO 200
140 X1 = ((-B)-SQR(D))/(2*A)
150 X2 = ((-B)+SQR(D))/(2*A)
160 PRINT "X1 = ",X1
170 PRINT "X2 = ",X2
180 GOTO 210
190 X = -B/(2*A)
200 PRINT "DISCRIMINANTATA E RAVNA NA NULA ZATOVA URAVNENIETO IMA EDNO RESHENIE: ",X
210 PRINT "EXIT"