Вопрос по информатике:
Написать програму решения уравнения ах^3 + вх = 0 для произвольных а, в
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 10.01.2015 23:32
- Информатика
- remove_red_eye 18437
- thumb_up 14
Ответы и объяснения 2
(Pascal.)
program ...;
var a,b,x1,x2,x3:real;
begin
writeln('Введите коэффициент a');
readln(a);
writeln('Введите коэффициен b');
readln(b);
x1:=0;
if (b>0) and (a>0) then writeln('Корни ур-я равны ',x1)
else
x2:=sqrt(-b/a);
x3:=-sqrt(-b/a);
writeln('Корни ур-я равны ',x1,x2,x3);
end.
- 12.01.2015 05:48
- thumb_up 20
var
a, b, x2, x3 : real;
begin
writeln('Введите коэффициент a');
readln (a);
writeln('Введите коэффициен b');
readln (b);
if b = 0 then
begin
if a = 0 then writeln ('X - любое число')
else writeln('Корни ур-я равны: 0')
end
else
if (a = 0) or (- b / a <= 0) then writeln ('Корни ур-я равны: 0')
else
begin
x2 := sqrt(-b / a);
x3 := -sqrt(-b / a);
writeln('Корни ур-я равны 0, ', x2,' ',x3);
end;
readln;
end.
- 12.01.2015 23:46
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.