INPUT "a="; a INPUT "b="; b INPUT "c="; c IF c = 0 THEN IF b = 0 THEN PRINT "x=0" ELSE x1 = 0: x2 = -b / a PRINT "x1="; x1, "x2="; x2 END IF ELSE IF b = 0 THEN x1 = -c / a: x2 = -x1 PRINT "x1="; x1, "x2="; x2 ELSE D = b ^ 2 - 4 * a * c IF D < 0 THEN PRINT "Нет действительных корней" ELSE IF D = 0 THEN x = -b / (2 * a) PRINT "x="; x ELSE D = SQR(D) x1 = (-b - D) / (2 * a): x2 = (-b + D) / (2 * a) PRINT "x1="; x1, "x2="; x2 END IF END IF END IF END IF END
Одним из таких свойств является дискретность. Под дискретностью понимается то, что алгоритм состоит из описания последовательности шагов обработки, организованный таким образом, что в начальный момент задаётся исходная ситуация, а после каждого следующего шага ситуация преобразуется на основе данных, полученные в предшествующие шаги обработки. Дискретность алгоритма означает, что он исполняется по шагам: каждое действие, предусмотренное алгоритмом, исполняется только после того, как закончилось исполнение предыдущего.
INPUT "b="; b
INPUT "c="; c
IF c = 0 THEN
IF b = 0 THEN
PRINT "x=0"
ELSE
x1 = 0: x2 = -b / a
PRINT "x1="; x1, "x2="; x2
END IF
ELSE
IF b = 0 THEN
x1 = -c / a: x2 = -x1
PRINT "x1="; x1, "x2="; x2
ELSE
D = b ^ 2 - 4 * a * c
IF D < 0 THEN
PRINT "Нет действительных корней"
ELSE
IF D = 0 THEN
x = -b / (2 * a)
PRINT "x="; x
ELSE
D = SQR(D)
x1 = (-b - D) / (2 * a): x2 = (-b + D) / (2 * a)
PRINT "x1="; x1, "x2="; x2
END IF
END IF
END IF
END IF
END