Решить квадратное уравнение -QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
CLS
INPUT "vvedite a", a
INPUT "vvedite b", b
INPUT "vvedite c", c
d = b ^ 2 - 4 * a * c
IF d>0
PRINT "x1 = "; (-b - SQRT(d)) / (2 * a)
PRINT "x2 = "; (-b + SQRT(d)) / (2 * a)
ELSE
IF d=0 THEN "x= "; (-b ) / (2 * a)
ELSE
PRINT "net kornei"
END IF
END IF
END

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment