Вопрос по информатике:
Где здесь ошибка
program n_11;
var a, b, c:Real;
var d:Real;
var x, x1, x2:Real;
begin
WriteLn('Расширение квадратного уровнения');
Write('Введите коофиценты a, b, c >>');
ReadLn(a, b, c,);
d:=b*b-4*a*c;
if d<0 then WriteLn('Корней нет')
else
if d=0 then
begin
x:=-b/2/a;
WriteLn('Корнень уровненияx=',x:9:3)
end
else
begin
x1:=(-b+sqrt(d))/2/a;
x2:=(-b+sqrt(d))/2/a;
WriteLn('Корни уровнения:');
writeln(x1=',x1:9:3);
WriteLn(x2=',x2:9:3)
end
end.
- 24.03.2018 18:05
- Информатика
- remove_red_eye 6572
- thumb_up 27
Ответы и объяснения 1
var a, b, c, d, x, x1, x2:Real;
begin
WriteLn('Решение квадратного уравнения');
Write('Введите коэффициенты a, b, c >>');
ReadLn(a, b, c);
d:=b*b-4*a*c;
if d<0 then WriteLn('Корней нет')
else
if d=0 then
begin
x:=-b/2/a;
WriteLn('Корень уравнения=',x:9:3)
end
else
begin
x1:=(-b+sqrt(d))/2/a;
x2:=(-b-sqrt(d))/2/a;
WriteLn('Корни уравнения:');
writeln('x1=',x1:9:3);
WriteLn('x2=',x2:9:3);
end
end.
- 25.03.2018 18:45
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.