Решить уравнение 12 x^2-3.8 x-9.6 12.2 x^2 +7.1 x -15.81 найти максимальное и минимальное значение корней — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
CLS
DATA 12,3.8,-9.6,12.2,7.1,-15.81
min = 1E+38
max = 9.999999E-39
FOR i = 1 TO 2
    READ a, b, c
    d = b ^ 2 - 4 * a * c
    IF d >= 0 THEN
        PRINT "uravnenie"; i
        x = (-b + SQR(d)) / (2 * a)
        PRINT "x1="; x
        IF x > max THEN max = x
        IF x < min THEN min = x
        x = (b + SQR(d)) / (2 * a)
        PRINT "x2="; x
        IF x > max THEN max = x
        IF x < min THEN min = x
    END IF
NEXT
PRINT "max koren="; max
PRINT "min koren="; min

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

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

Leave a Comment