Вопрос по информатике:
Составить алгоритм и программу квадратного уравнения, вариант D=0 не учитывать. A, B, C-вводится с клавиатуры. Если >0 вычислить корни , если меньше вывести на экран. Нет корней.
Программа на языке паскаль.
- 03.06.2015 18:43
- Информатика
- remove_red_eye 18672
- thumb_up 26
Ответы и объяснения 1
var a,b,c,d,x1,x2: real;
BeginWriteln ('Введите значение a',a);
Readln (a);Writeln ('Введите значение b',b);
Readln (b);Writeln ('Введите значение c',c);
Readln (c);d:=sqr(b)-4*a*c;
writeln ('d=', d);
if d>0 then
beginx1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
Writeln (' x1=', x1);
Writeln(' x2=', x2);
end;if d<0 then writeln('Нет корней');
end.- 04.06.2015 00:21
- thumb_up 22
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.