разработайте алгоритм для вычисления квадратного уравнения ах(в квадрате)+бх+с=0
5-9 класс
|
var a,b,c,d,x1,x2:real;
begin
writeln('Введите коэффициенты уравнения через пробел');
read( a,b,c);
d:=sqr(b)-4*a*c;
if d<0
then writeln( 'Нет корней');
if d>0 then begin x1:=(-b-sqrt(d))/(2*a); x2:=(-b+sqrt(d))/(2*a);
writeln(x1:6:2, x2:6:2); end
else begin x1:=-b/(2*a);
writeln(x1:6:2); end;
readln;
end;
Другие вопросы из категории
Читайте также
типа. Ввод организуйе без использования цикла 2) разработайте алгоритм для ввода в память ЭВМ одномерного массива С состоященр из 7 элементов целого тип. Ввод организуйе с исползованием цикла "ДЛЯ". 3) разработайте алгоритм для ввода в память ЭВМ одномерного массива Д состоящего из 10 элементов целого типа. Каждый элемнт вычислите по формуле: значение элемента равно квадрату его индекса
R обруча. Протестировать алгоритм для а) L=5.8, D=0.2, б) L=3.25, D=0.1
+sin3x+...+sinn*x.Протестировать алгоритм для х=1,5 и n=3
3) Какая фигура в блок-схеме предназначена для выводы данных?
4) Определите результат работы программы : a:=-6 b:=-5 a:=a-2*b;b"=a
5) Скольких команд ввода исходных данных достаточно для решения квадратного уравнения?
значении корней квадратного уравнения.