Решение квадратного уравнения через дискриминант паскаль

Решить квадратное уравнение

Найти корни квадратного уравнения и вывести их на экран, если они есть. Если корней нет, то вывести сообщение об этом. Конкретное квадратное уравнение определяется коэффициентами a , b , c , которые вводит пользователь.

Квадратное уравнение имеет вид ax 2 + bx + c = 0 . Коэффициенты a , b и c — это конкретные числа, а x надо найти, решив уравнение.

1. Вычислить дискриминант по формуле d = b 2 — 4ac .
2. Если дискриминант больше нуля, то вычислить два корня уравнения:
   x₁ = (-b+√d) / 2a
   x₂ = (-b-√d) / 2a
3. Если дискриминант равен нулю, то вычислить только один корень (второй будет равен ему).
4. Если дискриминант отрицателен, то вывести сообщение, что корней нет.

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, то уравнение имеет два действительных корня:
  • x₁ = (-b + √D) / (2⋅a);
  • x₂ = (-b + √D) / (2⋅a).

Программа для решения квадратного уравнения на языке программирования Паскаль

Функция sqr языка Pascal используется для возведения числа в квадрат.
Функция sqrt используется для получения квадратного корня числа.
В программе используется форматированный вывод вещественных чисел. variable:8:3 — означает, что для вывода переменной предусмотрено 8 символов, 5 из них под целую часть и 3 под дробную.

Решение квадратного уравнения через дискриминант паскаль

Введение.

Здравствуйте. На этот раз я хотел бы предложить вам исходник программы на языке PascalABC, которая решает квадратное уравнение, строя его на считанных с клавиатуры коэффициентов.

Задача.

Перед нами поставлена задача написать программу, которая будет искать решения квадратного уравнения по заранее указанным значениям его коэффициентов. Данное решение можно считать достаточно простым, использовать мы будем цикл IF. Для выполнения задачи необходимо считать данные в соответствующее количество переменных, затем найти значение дискриминанта, проверить больше, меньше, или равен ли он нулю. Далее в зависимости от результатов проверки высчитываются и выводятся корни, либо сообщение о том, что корней нет. Для ясности понимания к каждой строке кода приложены необходимые комментарии.