Вопрос по информатике:
60 Балов
Написать программу решения квадратного уравнения:
Ax²+Bx+C=0
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 13.03.2015 08:41
- Информатика
- remove_red_eye 11256
- thumb_up 38
Ответы и объяснения 2
Var
a,b,c,D,x1,x2:double;
begin
Write('Введите коэффициенты квадратного уравнения А В С: ');
Read(a,b,c);
if a=0 then
Writeln('А не может равняться нулю: уравнение не будет квадратным')
else begin
D:=sqr(b)-4*a*c;
if D<0 then Writeln('Нет корней')
else
if D=0 then Writeln('x=',-b/(2*a))
else begin
D:=sqrt(D);
x1:=(-b-D)/(2*a); x2:=(-b+D)/(2*a);
Writeln('x1=',x1,', x2=',x2)
end
end
end.
Тестовое решение:
Введите коэффициенты квадратного уравнения А В С: 2 -5 3
x1=1, x2=1.5
- 14.03.2015 07:54
- thumb_up 33
Var a,b,c,D,x1,x2:double; begin Write('Введите коэффициенты квадратного уравнения А В С: '); Read(a,b,c); if a=0 then Writeln('А не может равняться нулю: уравнение не будет квадратным') else begin D:=sqr(b)-4*a*c; if D<0 then Writeln('Нет корней') else if D=0 then Writeln('x=',-b/(2*a)) else begin D:=sqrt(D); x1:=(-b-D)/(2*a); x2:=(-b+D)/(2*a); Writeln('x1=',x1,', x2=',x2) end end end. Тестовое решение: Введите коэффициенты квадратного уравнения А В С: 2 -5 3 x1=1, x2=1.5 ответ у модератора совершенно верен.
- 15.03.2015 02:58
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.