Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.08.2016 16:59
- Информатика
- remove_red_eye 5327
- thumb_up 41
Ответы и объяснения 2
Var
A, B, C, D, x1, x2:integer ;
Begin
Readln(a, B, c) ;
D:=(sqr(b)-4*a*c);
If d<0 then
Writeln(''корней нет'')
Else
If D = 0 then
X1:= (-b) /2a
Writeln(x1) ;
Else
If D > 0 then
X1 :=( - b + sqrt(d)) /(2*a)
X2:=(-b-sqrt(d))/(2*a)
Writeln(x1, x2)
End.
- 21.08.2016 15:50
- thumb_up 31
Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3;
var d:=b*b-4*a*c;
if d<0 then Writeln('Корней нет')
else
if d=0 then begin
var x:=-b/2/a;
Writeln('Корень уравнения x=',x)
end
else begin
var x1:=(-b-Sqrt(d))/2/a;
var x2:=(-b+Sqrt(d))/2/a;
Writeln('Корни уравнения: x1=',x1,', x2=',x2)
end
end.
- 22.08.2016 22:18
- thumb_up 12
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.