BASIC. Составить метод и программку решения квадратного уравнения ax^2+bx+c=0
BASIC.
Составить метод и программу решения квадратного уравнения ax^2+bx+c=0
Провести контрольное выполнение метода.
Примечание: d=b^2-4ac; x1=(-b+sqr(d))/2a; x2=(-b-sqr(d))/2a
Составить метод и программу вычисления суммы N членов последовательности, общий член которой задан формулой ai=i^2-2i. Исполнить для N = 3.
Aleksandra Katashkina
QBasic
Kostjan Nifanov
??
Есения
угу
1 ответ
Вера Карпиловская
1)
CLS
INPUT "a = ", a
INPUT "b = ", b
INPUT "c = ", c
D = b * b - 4 * a * c
IF D gt;= 0 THEN
PRINT "x1 = "; (-b + SQR(D)) / (2 * a)
PRINT "x2 = "; (-b - SQR(D)) / (2 * a)
ELSE
PRINT "Korney net"
END IF
a = 3
b = 7
c = 4
x1 = -1
x2 = -1.333333
2)
CLS
INPUT "N = ", N
FOR i = 1 TO N
S = S + i * (i - 2)
NEXT i
PRINT "S = "; S
N = 3
S = 2
CLS
INPUT "a = ", a
INPUT "b = ", b
INPUT "c = ", c
D = b * b - 4 * a * c
IF D gt;= 0 THEN
PRINT "x1 = "; (-b + SQR(D)) / (2 * a)
PRINT "x2 = "; (-b - SQR(D)) / (2 * a)
ELSE
PRINT "Korney net"
END IF
a = 3
b = 7
c = 4
x1 = -1
x2 = -1.333333
2)
CLS
INPUT "N = ", N
FOR i = 1 TO N
S = S + i * (i - 2)
NEXT i
PRINT "S = "; S
N = 3
S = 2
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов