Найти корень квадратного уравнения - Turbo Pascal
Формулировка задачи:
Помогите!!! Нужна программа которая должна находить корень квадратного уравнения(любого).
Решение задачи: «Найти корень квадратного уравнения»
textual
Листинг программы
Var a,b,c,d : Real;
Begin
Write('Введите коэффициенты A B C: '); Readln(a,b,c);
d:=b*b-4*a*c;
If d<0 then Writeln('Решений нет') else
Case d=0 of
True : Writeln('x1 и x2 = ',-b/(2*a):8:4);
False : Writeln('x1 = ',(-b+sqrt(d))/(2*a):8:4,' x2 = ',(-b-sqrt(d))/(2*a):8:4);
end;
end.
Объяснение кода листинга программы
- В начале объявляются переменные a, b, c и d типа Real.
- Затем выводится сообщение с просьбой ввести коэффициенты A, B и C.
- Значение переменной d вычисляется как bb - 4a*c.
- Проверяется, является ли значение переменной d меньше нуля. Если это так, выводится сообщение о том, что решений нет.
- Если значение переменной d равно нулю, то выполняется case-условие:
- Если значение переменной d равно 0 и True (т.е. b = 0), выводится сообщение x1 и x2 = -b/(2*a):8:4.
- Если значение переменной d равно 0 и False (т.е. b = 0), выводится сообщение x1 = -b/(2*a):8:4, x2 = 0.
- Если значение переменной d не равно 0, выводится сообщение x1 = (-b+sqrt(d))/(2a):8:4, x2 = (-b-sqrt(d))/(2a):8:4.