Решить квадратное уравнение
Формулировка. Даны вещественные числа a, b и c, причем a отлично от 0. Решить квадратное уравнение ax 2 + bx + c = 0 или сообщить о том, что действительных решений нет.
Решение. Из алгебры известно, что:
– если D > 0, имеет два решения: , ;
– если D = 0, имеет единственное решение: ;
– если D 0 then begin
x1 := (-b + sqrt(d)) / 2 * a;
x2 := (-b — sqrt(d)) / 2 * a;
writeln(‘x1 = ‘, x1:4:2, ‘, x2 = ‘, x2:4:2)
Код:
- program QuadraticEquation;
- var
- a, b, c, d, x1, x2: real;
- begin
- readln(a, b, c);
- d := b * b — 4 * a * c;
- if d >= 0 then begin
- if d <> 0 then begin
- x1 := (-b + sqrt(d)) / 2 * a;
- x2 := (-b — sqrt(d)) / 2 * a;
- writeln(‘x1 = ‘, x1:4:2, ‘, x2 = ‘, x2:4:2)
- end
- else begin
- x1 := -(b / 2 * a);
- writeln(‘x = ‘, x1:4:2)
- end
- end
- else begin
- writeln(‘No real solutions!’);
- end
- end.
Решить квадратное уравнение
Найти корни квадратного уравнения и вывести их на экран, если они есть. Если корней нет, то вывести сообщение об этом. Конкретное квадратное уравнение определяется коэффициентами 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
квадратное уравнение паскаль
Язык Си
Ключ -lm при компиляции gcc.
Python
КуМир
Basic-256
- Total 0
- 0
- 0
- 0
- 0
квадратное уравнение паскаль
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
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.
main() <
float a,b,c,d,x1,x2;
printf(«a=»); scanf(«%f»,&a);
printf(«b=»); scanf(«%f»,&b);
printf(«c=»); scanf(«%f»,&c);
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»);
>
Ключ -lm при компиляции gcc.
python квадратное уравнение
print(«Введите коэффициенты для квадратного уравнения (ax^2 + bx + c = 0):»)
a = float(input(«a = «))
b = float(input(«b = «))
c = float(input(«c = «))
discr = b**2 — 4 * a * c;
print(«Дискриминант 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(«Корней нет»)
input «a = «, a
input «b = «, b
input «c = «, c
d = b^2 — 4*a*c
if d > 0 then
x1 = (-b + sqrt(d)) / (2*a)
x2 = (-b — sqrt(d)) / (2*a)
print «x1 = » + x1 + «, x2 = » + x2
else
if d = 0 then
x = -b / (2*a)
print «x = » + x
else
print «Корней нет»
endif
endif
Команда decimal указывает сколько знаков после запятой следует выводить.
Решение квадратного уравнения
Уравнение вида a⋅x 2 + b⋅x + c = 0 — квадратное уравнение.
a, b, c — действительные числа, a ≠ 0.
Для того чтобы вычислить корни квадратного уравнения, нужно сначала найти дискриминант.
- если D 0, то уравнение имеет два действительных корня:
- x1 = (-b + √D) / (2⋅a);
- x2 = (-b + √D) / (2⋅a).
Программа для решения квадратного уравнения на языке программирования Паскаль
Функция sqr языка Pascal используется для возведения числа в квадрат.
Функция sqrt используется для получения квадратного корня числа.
В программе используется форматированный вывод вещественных чисел. variable:8:3 — означает, что для вывода переменной предусмотрено 8 символов, 5 из них под целую часть и 3 под дробную.
http://gospodaretsva.com/quadratic-equation.html
http://programm.top/pascal/programm/quadratic-equation/