Вопрос по информатике:
Составьте компьютерную программу, которая считает значение корней квадратного уравнения ах2+вх+с=0.
Блок схема не нужна.
Пожаловаться
- 16.05.2018 02:53
- Информатика
- remove_red_eye 18846
- thumb_up 33
Ответы и объяснения 1
Var b,a,c: integer;
x1,x2,x,d: Real;
begin
writeln('Введите a,b,c');
readln(a,b,c);
d:=sqr(b)-4*a*c;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('D=',sqrt(d));
writeln('x1=',x1);
writeln('x2=',x2);
end;
if d=0 then
begin
x:=(-b)/(2*a);
writeln('D=',sqrt(d));
writeln('x=',x);
end;
if d<0 then
begin
writeln('D=',sqrt(d));
writeln('Нет корней');
end;
end.
x1,x2,x,d: Real;
begin
writeln('Введите a,b,c');
readln(a,b,c);
d:=sqr(b)-4*a*c;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('D=',sqrt(d));
writeln('x1=',x1);
writeln('x2=',x2);
end;
if d=0 then
begin
x:=(-b)/(2*a);
writeln('D=',sqrt(d));
writeln('x=',x);
end;
if d<0 then
begin
writeln('D=',sqrt(d));
writeln('Нет корней');
end;
end.
Пожаловаться
- 17.05.2018 16:37
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы