Найти корни квадратного уравнения и вывести их на экран, если они есть. Если корней нет, то вывести сообщение об этом. Конкретное квадратное уравнение определяется коэффициентами a , b , c , которые вводит пользователь.
Квадратное уравнение имеет вид ax 2 + bx + c = 0 . Коэффициенты a , b и c — это конкретные числа, а x надо найти, решив уравнение.
- Вычислить дискриминант по формуле d = b 2 — 4ac .
- Если дискриминант больше нуля, то вычислить два корня уравнения:
x1 = (-b+√d) / 2a
x2 = (-b-√d) / 2a - Если дискриминант равен нулю, то вычислить только один корень (второй будет равен ему).
- Если дискриминант отрицателен, то вывести сообщение, что корней нет.
Pascal
квадратное уравнение паскаль
var
a,b,c,d,x1,x2: real;
begin
write(‘a=’); readln(a);
write(‘b=’); readln(b);
write(‘c=’); readln(c);
d := b*b — 4*a*c;
if d > 0 then begin
Pascal (Урок 4) Квадратное уравнение
x1 := (-b + sqrt(d)) / (2*a);
x2 := (-b — sqrt(d)) / (2*a);
writeln(‘x1=’,x1:3:2,’; x2=’,x2:3:2);
end
else
if d = 0 then begin
x1 := (-b) / (2*a);
writeln(‘x=’,x1:5:2);
end
else
writeln(‘Корней нет’);
end.
a=7
b=1
c=-6
x1=0.86; x2=-1.00
Язык Си
#include < stdio.h>
#include < math.h>
main() float a,b,c,d,x1,x2;
printf(«a=»); scanf(«%f»,
printf(«b=»); scanf(«%f»,
printf(«c=»); scanf(«%f»,
d = b*b — 4*a*c;
if (d>0) x1 = (-b + sqrt(d)) / (2*a);
x2 = (-b — sqrt(d)) / (2*a);
printf(«x1=%.2f; x2=%.2f», x1, x2);
>
else
if (d = 0) x1 = -b / (2*a);
printf(«x1=%.2f; x2=%.2f», x1, x2);
>
else printf(«Корней нет.»);
printf(«n»);
>
a=-20
b=8
c=1.5
x1=-0.14; x2=0.54
Ключ -lm при компиляции gcc.
Python
python квадратное уравнение
print(«Введите коэффициенты для квадратного уравнения (ax^2 + bx + c = 0):»)
a = float(input(«a b c Дискриминант D = %.2f» % discr)
if discr > 0:
import math
x1 = (-b + math.sqrt(discr)) / (2 * a)
x2 = (-b — math.sqrt(discr)) / (2 * a)
print(«x1 = %.2f nx2 = %.2f» % (x1, x2))
elif discr == 0:
x = -b / (2 * a)
print(«x = %.2f» % x)
else:
print(«Корней нет»)
КуМир
алг квадратное уравнение
нач
вещ a, b, c, D, x1, x2
ввод a
ввод b
ввод c
D := b**2 — 4*a*c
вывод «D x1 x2 x корней нет», нс
все
все
кон
Basic-256
input «a b c x1 = » + x1 + «, x2 x Корней нет»
Решение квадратного уравнения в PascalABC.NET
endif
endif
Команда decimal указывает сколько знаков после запятой следует выводить.
Источник: gospodaretsva.com
Процедура вычисления корней квадратного уравнения
Написать процедуру, вычисляющую корни квадратного уравнения.
Представленная ниже программа с процедурой вычисления корней квадратного уравнения не возвращает в основную программу ничего (просто выводит результат на экран). Однако можно написать такую процедуру, которая будет использовать глобальные переменные x1 и x2 . В результате в основной ветке программы можно будет использовать полученные корни квадратного уравнения.
Программа на языке Паскаль:
var a, b, c: real; procedure sq (a,b,c: real); var d, x1, x2: real; begin d := b * b — 4 * a * c; if d >= 0 then begin x1 := (-b + sqrt (d)) / (2 * a); x2 := (-b — sqrt (d)) / (2 * a); if x1 = x2 then writeln (‘x1 = ‘, x1:6:2) else writeln (‘x1 = ‘, x1:6:2, ‘; x2 = ‘, x2:6:2) end else writeln (‘Корней нет!’) end; begin write (‘a = ‘); readln (a); write (‘b = ‘); readln (b); write (‘c = ‘); readln (c); writeln (a:6:2,’x*x + ‘,b:6:2,’x + ‘,c:6:2,’ = 0′); sq (a, b, c); end.
Источник: pas1.ru
Решение квадратного уравнения
Уравнение вида a⋅x 2 + b⋅x + c = 0 — квадратное уравнение.
a, b, c — действительные числа, a ≠ 0.
Для того чтобы вычислить корни квадратного уравнения, нужно сначала найти дискриминант.
- если D < 0, то квадратное уравнение не имеет корней;
- если D = 0, то уравнение имеет один действительный корень(иногда говорят, что корней два, но они одинаковые):
- x1 = x2 = -b / (2⋅a);
- x1 = (-b + √D) / (2⋅a);
- x2 = (-b + √D) / (2⋅a).
Программа для решения квадратного уравнения на языке программирования Паскаль
program QuadraticEquation; var a, b, c, x1, x2, discriminant : real; begin write(‘a = ‘); readln(a); write(‘b = ‘); readln(b); write(‘c = ‘); readln(c); discriminant := sqr(b) — 4 * a * c; if discriminant < 0 then writeln(‘Квадратное уравнение не имеет корней’) else begin if discriminant = 0 then begin x1 := -b / (2 * a); x2 := x1; end else begin x1 := (-b + sqrt(discriminant)) / (2 * a); x2 := (-b — sqrt(discriminant)) / (2 * a); end; writeln(‘x1 = ‘, x1:8:3); writeln(‘x2 = ‘, x2:8:3); end; writeln(‘Press Enter to Exit. ‘); readln; end.
Функция sqr языка Pascal используется для возведения числа в квадрат.
Функция sqrt используется для получения квадратного корня числа.
В программе используется форматированный вывод вещественных чисел. variable:8:3 — означает, что для вывода переменной предусмотрено 8 символов, 5 из них под целую часть и 3 под дробную.
Источник: programm.top